نجوم المشاركات

وعليكم السلام أخي ملاحظة نحوية في ملفك (لابد من الإشارة إليها حتى لا تضيع اللغة العربية ) يوجد في قسم التصريح الأمني هذه العبارة ((نؤكد لكم بأن المواطن الملصقة صورته أعلاه والمبينة بيانته و المؤشر الأمني أدناه .)) أن : حرف نصب المواطن : اسمها خبرها غير موجود بالتالي الكلام فيه نقص الصواب هكذا ((نؤكد لكم بأن المواطن الملصقة صورته أعلاه والمبينة بيانته يحمل المؤشر الأمني أدناه .)) يحمل : خبر أن بإمكانك تغيير الخبر كما تشاء ليناسب الكلام عذرا أخي العزيز ================= اكتب الرقم 1 في العمود Q أمام التصاريح التي تريد طباعتها ثم وصل الطابعة واضغط زر الطباعة بعد الطباعة سيتم إدراج النص (تم الصرف) في كل خلية ملاحظة : في ورقة التصاريح تم استخدام الورقة الأولى فقط تفضل التصاريح1.rar

نهنئ أنفسنا بانضمام الأخ جعفر لفريق الموقع أهلا وسهلا

أسف نسيت أنني أشتغل على نسخة الاكسيل باللغة الفرنسية و بالتالي ال Filter Box ShortCuts مختلفة عن الانجليزية المرجو القيام باستبدال كود الماكرو FilterRecords بالكود التالي (لاحظ التغيير باللون الأحمر) Public Sub FilterRecords(ByVal FilterRange As Range, ByVal InputCell As Range) On Error GoTo ErrHandler Set oInpuCell = InputCell If GetKeyState(VK_CAPSLOCK) = 1 Then SendKeys "{CAPSLOCK}", True Application.Goto FilterRange.Cells(1) Call SendMessage(GetDesktopWindow, WM_SETREDRAW, False, 0&) SendKeys "%{DOWN}" SendKeys "+{E}" SendKeys oInpuCell SetTimer Application.hwnd, 0, 1, AddressOf FilterNow Exit Sub ErrHandler: Call RefreshScreen End Sub الكود المعدل Public Sub FilterRecords(ByVal FilterRange As Range, ByVal InputCell As Range) On Error GoTo ErrHandler Set oInpuCell = InputCell If GetKeyState(VK_CAPSLOCK) = 1 Then SendKeys "{CAPSLOCK}", True Application.Goto FilterRange.Cells(1) Call SendMessage(GetDesktopWindow, WM_SETREDRAW, False, 0&) SendKeys "%{DOWN}" SendKeys "+{E}" SendKeys oInpuCell SetTimer Application.hwnd, 0, 1, AddressOf FilterNow Exit Sub ErrHandler: Call RefreshScreen End Sub باقي الكود يبقى كما هو

انت المهندس ياسر تتحفنا كل يوم بجديد لا حرمنا الله منك ولا رد لك سؤال ولا خاب رجاءك

إنت قلت ايه ؟؟ صعب ..يعني مش مستحيل .. لأن فيه حاجة اسمها الهندسة العكسية ... حتى لو كان التعرف على بيانات الجهاز فدا عشان يقوم بعمليات حسابية ومنطقية على أساس البيانات دي ودا ممكن بردو ينضرب .. من الآخر لكل فعل رد فعل مساوي له في المقدار ومضاد له في الاتجاه وطالما وجدت الحماية وجدت كسر الحماية والعكس صحيح تقبل تحياتي

الله يسترك دنيا وآخرة اخي ياسر اللطش تخصصي لكن الشرح خليك معاي وورايا اخي جمال كما تكرم الفاضل ياسر الكود مشروح باللون الاخضر

لم أفهم الموضوع بشكل كامل ولكن هذه محاولة المستخدم : ADMIN المرور : 3333 صلاحية دخول مع حفظ التغييرات1.rar

السلام عليكم ورحمة الله وبركاته اخواني الكرام عندي مشروع انني اعمل ارشفة الكترونية للوثائق في الادارة تبعنا فكرة الارشفة انني اضع اسماء ١- الموظفين ٢- رقم الهوية الوطنية الخاصة بهم ٣- وثائق الخاص بكل موظف الوثائق هي تكون ادخالها من الماسح الضوئي او استعراضها من الكمبيوتر وادراجها على الاكسس ليتم البحث عنها بٲسم الموظف او رقم الهوية ليتم طباعتها لاحقاً اما جميع الوثائق او اختيار مجموعة معينه من الوثائق على كامل الصفحة ٤- الوثائق لابد من تصنيفها بمجموعات مثلاً ( صورة رقم الهوية الوطنية ، صورة الشهادة الجامعية ) المشكلة انني لا اعرف كيف يتم ادخالها في الاكسس مع الانتباه ان الوثائق تكون اكثر من ١٠ وثائق للموظف هل هذه العملية تثقل برنامج الاكسس ارجوا من الله ثم منكم مساعدتي في عمل هذا حل او اي نصيحة لعمل هذا البرنامج للعلم انني مبتدىء لحد الان في برنامج الاكسس

السلام عليكم ورحمه الله وبركاته أرجو من الفاضل ( رجب جاويش ) مساعدتى فى كيفيه رصد المنازل فى الشيت حيث لا يوجد شيت خاص بالمنازل حاولت كثيرا إجراء تعديل لأجل الرصد ولكن فشلت أرجو التكرم والمساعده (الصف الأول الثانوى - الثانى الثانوى علمى - الثانى الثانوى أدبى ) ياريت متفضلا يكون لكل منهم شيت خاص بالمنازل كامل حيث واجهتنى مشاكل فى كنترول الترم الحالى بسبب رصد المنازل وأسف للإطاله والتكرار ولكن الأمر فعلا مهم

السلام عليكم ورحمة الله وبركاته إخواني الأحباب سبق أن قمنا بكسر حماية محرر الأكواد بدون برامج .. الآن مع كسر حماية أوراق العمل بالاستعانة ببرنامج صغير الحجم اسمه XML Marker وهو برنامج للتعديل على ملفات الـ XML وهو مرفق في الموضوع ... أترككم مع الفيديو ..عسى أن تستفيدوا منه إن شاء الله (ومتنسوش اللايكات !!) تقبلوا تحيات أخوكم أبو البراء xmlmarker_2_2_setup.rar

السلام عليكم ارجو من الله ان تكونوا بخير جميعا صراحه لا اعلم ماذا سأقول ولكنه طلب احد زملائى بالعمل الجديد ووعدته ان اساعده بالمرفق ثلاث جداول يتم فى كل منهم حساب عدد ساعات العمل وعدد ساعات الاضافى طبعا النتيجه سهله بالجدول الذى بالمنتصف ونريد احتساب باقى البيانات بالجدول الاول والثالث مع المحافظه على طريقه ادخال الوقت حساب عدد ساعات العمل ثم الاضافى.rar

تفضل هذا التعديل لعله يفى بالغرض - ولا تنسانا من دعوة بظهر الغيب. dd.rar

السلام عليكم في وقت ما ، اصبحت برامج المايكروسوفت اداة في ايدي المبرمجين المخربين ، واستغلّوا قدرة برامج المايكروسوفت على التحكم في الكمبيوتر عن طريق الـ VBA و Macro ، لذا ، اضطرت شركة مايكروسوفت الى القيام بإيقاف هذه البرامج عن طريق "مستوى أمان البرنامج" ، والطريقة التي تم الوصول لها للحماية ، اصبحت تتغير وتتحسن في اصدارات الاوفيس. اليك الطريقة الصحيحة في تمكين البرامج في استخدام VBA و Macro في الاصدار 2010: افتح برنامج الاكسس مباشرة ، وقم بإتباع الخطوات: بهذه الطريقة تستطيع ان تخبر الاكسس ان احد/بعض المجلدات هو امين/موثوق به ، وان اكسس يمكنه ان يفتح برامجك فيه وبدون رسالة الامان انا شخصيا لا اسمح لأي برنامج ان يغيّر اعدادات كمبيوتري ، واعتبره برنامج غير مرغوب فيه ، واحذفه على طول لذا ، اُفضل اتباع الخطوات اعلاه لأي كمبيوتر اتعامل معاه جعفر

بلاش شغل الفيروسات يا عربي لأحسن الناس تخاف من الإكسيل وتبطل تجرب تتعلم أكواد .. أكيد كل شيء ممكن مفيش مستحيل .. بس لازم الحذر والحيطة ..

أخي الكريم عبد العزيز جرب الكود التالي في وجود الدالة المعرفة ... Sub TestRun() Dim I As Integer For I = 2 To Cells(Rows.Count, "B").End(xlUp).Row If Kh_Names(Cells(I, "B"), 1) = Cells(I, "B") Then Cells(I, "C") = Kh_Names(Cells(I, "B"), 1) ElseIf Kh_Names(Cells(I, "B"), 1, 2) = Cells(I, "B") Then Cells(I, "C") = Kh_Names(Cells(I, "B"), 1) Cells(I, "G") = Kh_Names(Cells(I, "B"), 2) ElseIf Kh_Names(Cells(I, "B"), 1, 2, 3) = Cells(I, "B") Then Cells(I, "C") = Kh_Names(Cells(I, "B"), 1) Cells(I, "D") = Kh_Names(Cells(I, "B"), 2) Cells(I, "G") = Kh_Names(Cells(I, "B"), 3) ElseIf Kh_Names(Cells(I, "B"), 1, 2, 3, 4) = Cells(I, "B") Then Cells(I, "C") = Kh_Names(Cells(I, "B"), 1) Cells(I, "D") = Kh_Names(Cells(I, "B"), 2) Cells(I, "E") = Kh_Names(Cells(I, "B"), 3) Cells(I, "G") = Kh_Names(Cells(I, "B"), 4) ElseIf Kh_Names(Cells(I, "B"), 1, 2, 3, 4, 5) = Cells(I, "B") Then Cells(I, "C") = Kh_Names(Cells(I, "B"), 1) Cells(I, "D") = Kh_Names(Cells(I, "B"), 2) Cells(I, "E") = Kh_Names(Cells(I, "B"), 3) Cells(I, "F") = Kh_Names(Cells(I, "B"), 4) Cells(I, "G") = Kh_Names(Cells(I, "B"), 5) End If Next I End Sub وهذا سيستلزم أن تقوم بالنقر على زر الأمر لكي يقوم الكود باختبار كل اسم على حدا .. حسب ما سترى في الملف المرفق أرجو أن يفي بالغرض Split Compound Names UDF Function V2.rar

اخي الكريم سؤال بسيط كيف تفرمت السي C:\ وانت اصلا شغال علي نفس النظام؟؟؟؟؟؟؟؟؟؟؟؟؟؟ حتى وان وجد فلن يعمل معك الا عن طريق الDOS ياريت توضح الفكرة اللي انت عايزها عشان نقدر نساعدك بس شكلك بيقول انك عايز تضرب ويندوز حد مضايقك او بياخد ملفاتك اذا كان على تدمير الويندوز فممكن نشوفلك بس المفروض يبقي فيرس

حاجة من 4 احتمالات يا كبير يا إما إنت أرفقت ملف آخر غير ملفك الأصلي .. يا إما يكون مفتاح F12 عندك معلق من لوحة المفاتيح ..يا إما ميكونش فيه طابعة منصبة في جهازك وبيطالب الكود بحفظ الملف بامتداد PDF .. أو تكون الطابعة المنصبة هي الطابعة الغير افتراضية ..! ارفق ملفك الأصلي للإطلاع عليه أخي الفاضل

أخي الكريم جمال هل اطلعت على الكود في الملف المرفق من قبل أخونا عبد الله ...؟ الكود بالفعل يحتوي على شرح في التعليقات المرفقة في الكود

لك جزيل الشكر اخى الفاضل ابو البراء على الكود الرائع أما بالنسبه للتنسيق فإن دل فإنما يدل على ذوقك رائع .

اخي الفاضل تم المطلوب حسب ما فهمت وتم استخدام كود تم (لطشه) من المنتدي ولا اعلم صاحبه فله الاجر مضاعفا ان شاء الله اي ملاحظات فانا جاهز حفظك الله كنترول 5.rar

أخي الكريم صلاح أعتذر بشكل مبدئي حيث أنني قمت بتنسيق المصنف المرفق بما أحب أن أره منسقاً (مرض نفسي بعيد عنك) ..معرفش أشتغل على ملف غير لما أنسقه بأسلوبي الأول .. لكن تبقى هيكلة الملف كما هي لا تقلق جرب الكود التالي لعله يفي بالغرض .. ولكن لابد من تواجد أوراق العمل بشكل مسبق لكل لا يحدث خطأ في حالة عدم وجود ورقة العمل المراد الترحيل إليها Sub TransferByRegion() Dim Ws As Worksheet Dim Sh As Worksheet Dim Cel As Range Dim LR As Integer Dim Last As Integer Set Ws = Sheet1 Application.ScreenUpdating = False For Each Sh In ThisWorkbook.Worksheets If Sh.Name <> "العملاء" Then With Sh.Range("A1:C" & Sh.Cells(Rows.Count, 1).End(xlUp).Row) .Offset(1).ClearContents .Borders.LineStyle = xlNone End With End If Next Sh With Ws LR = .Cells(Rows.Count, 1).End(xlUp).Row .Range("A1").CurrentRegion.Copy .Range("H1") Range("H1:J" & LR).Sort Key1:=Range("I1:I" & LR), Order1:=xlAscending, Key2:=Range("J1:J" & LR), Order2:=xlAscending, Header:=xlYes For Each Cel In Ws.Range("I2:I" & LR) Last = Sheets(Cel.Value).Cells(Rows.Count, 2).End(xlUp).Row + 3 Sheets(Cel.Value).Range("B" & Last).Resize(1, 2).Value = Cel.Resize(1, 2).Value Sheets(Cel.Value).Range("A" & Last).Value = Application.WorksheetFunction.CountA(Sheets(Cel.Value).Columns(2)) - 1 Next Cel .Columns("H:J").Delete End With For Each Sh In ThisWorkbook.Worksheets If Sh.Name <> "العملاء" Then With Sh.Range("A1:C" & Sh.Cells(Rows.Count, 1).End(xlUp).Row) .Borders.Weight = xlThin .BorderAround Weight:=xlThin End With End If Next Sh MsgBox "Done. God Bless You Salah", 64 Application.ScreenUpdating = True End Sub تقبل تحياتي Transfer Data Based On Region & Insert Two Empty Rows YasserKhalil.rar

الأخوة الأفاضل أعضاء ومشرفى المنتدى الغالى كل عام وانتم بخير أقدم لكم اليوم افضل وأشمل وأسهل كنترول شيت إلكترونى وذلك بشهادة الأعضاء وقد قمت بتصميمه بمساعدتكم وبفضل اقتراحاتكم المثمرة إنه الأول في عمل أرقام الجلوس وكشوف المناداه والشهادات للفصلين الدراسيين كما أنه يقوم بعمل كشوف مستقله للناجحين والدور الثانى بالنسبة لكنترول التعليم التجاري يتم تغيير أسماء المواد لتتناسب مع الصف الأول أو الثانى حسب الطلب ملاحظة: - البرنامج يعمل على ميكروسوفت إكسل 2007 - عند لصق أي بيانات في الشيت تكون قيم أي نختار لصق خاص ثم القيم كنترول شيت الصفين الأول والثانى الابتدائى http://www.multiupload.com/506MB8R537 كنترول شيت الصفين الرابع والخامس الابتدائى http://www.multiupload.com/CJURCPW9D6 كنترول شيت الصفين الأول والثانى الإعدادى يسع 500 طالب http://www.multiupload.com/J339Z3SJEF كنترول شيت الصفين الأول والثانى الإعدادى يسع 1000 طالب http://www.multiupload.com/AFHJJ0L8D8 كنترول شيت الصفين الأول والثانى التجارى http://www.multiupload.com/BVDDRJRZOL ................................ برنامج حساب المرتبات والأجور المتغيرة لموظفى التربية والتعليم القيم المكررة موجودة http://www.multiupload.com/H519SJ8A78 برنامج حساب المرتبات والأجور المتغيرة لموظفى التربية والتعليم القيم المكررة محذوفة http://www.multiupload.com/8O0OLR5I2T

اضافة الى ما قدمه الاخوة الاجلاء وخطوة لتحقيق طلبك تفضل الاتي http://www.officena.net/ib/topic/64832-اعمل-شاشة-دخول-برنامجك-بنفسك-وسيبك-من-التقليد/ http://www.officena.net/ib/topic/65092-شرح-عمل-صلاحيات-للدخول-على-شيتات-داخل-ملف-الاكسيل/ http://www.officena.net/ib/topic/64201-لعمل-نهاية-لصلاحية-الملف-وعدم-فتحه-الا-بكلمة-مرور/ http://www.officena.net/ib/topic/64153-تغيير-تاريخ-صلاحيه-ملف/

أخي الكريم لا يوجد صعب إن شاء الله ..وضح المطلوب بشيء من التفصيل لتجد الاستجابة من إخوانك بالمنتدى حدد بالضبط من أين تريد البيانات وإلى أين بالتفصيل مع إرفاق بعض النتائج المتوقعة إذا لزم الأمر تقبل تحياتي

أخي الكريم أبو عبد الواحد .. ضع السطر التالي بعد سطر الطباعة الذي تفضل به الأخ الفاضل صلاح المصري ThisWorkbook.Save تقبل تحياتي

السلام عليكم ورحمة الله في الملف المرفق تم وضع معادلة باستعمال الدالة SUMPRODUCT مع اعتبار فترة الإحصاء (بدايته ونهايته)... أرجو أن يكون المطلوب... بن علية احصاء.rar

تفضل اخى لعله يكون المطلوب تصميم زر طباعة البطاقة.rar

السلام عليكم ورحمة الله ماكنت تطلبه حسب شرحك داخل الملف لا علاقة له براس وتذييل الصفحة لانها محدودة اظن انك تريد البيانات التي بالون الاصفر تكون اعلي الشيت واللي باللون الاخر بعدها (تليها).هي بسيطة لكن تتطلب معرفة. إن شاء الله يشاهدها احد الاخوان

اخوانى الاعزاء: لى طلب ضرورى منكم ممكن امدادى بشيت كنترول الصف الاول و الثانى التجارى 3 سنوات كامل وحديث و لو ممكن باللغة العربية لو سمحتم و لكم جزيل الشكر

أخي الكريم نور أفضل من كلمة شكراً كلمة "جزاكم الله خيراً" ..هذه الأخيرة محببة أكثر إلى قلوبنا تقبل تحياتي

أخي الكريم ابن الملك إليك الكود التالي لعله لا يكون المطلوب بشكل كامل كما أردت ولكن قد يكون مفتاح للحل ..حيث أن صفحات ورقة العمل الواحدة تختلف حسب إعدادات الطابعة المنصبة لديك .. ولو غيرت الطابعة ربما تختلف إعدادات الصفحة عموماً إليك الحل التالي يعتمد على النطاق المحدد ..أي قم بتحديد النطاق أولاً ثم تنفيذ الكود ليتم تصديره إلى مصنف جديد Sub Copy_Selected_Range_As_New_Workbook() Dim a As Range, rng As Range Application.ScreenUpdating = False Set rng = Selection ActiveSheet.Copy If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData Columns.Hidden = False Rows.Hidden = False Cells.ClearContents For Each a In rng.SpecialCells(xlCellTypeVisible).Areas Range(a.Address).Value = a.Value Next a ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\YourFileName.xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False ActiveWorkbook.Close Application.ScreenUpdating = True End Sub تقبل تحياتي Export Selected Range To New Workbook YasserKhalil.rar

وعليكم السلام ورحمة الله وبركاته بارك الله فيك أخي الكريم أحمد ولا حرمنا الله من هداياك .. واصل بلا فواصل فما زال في الجعبة الكثير كنت أفضل رفع البرنامج مرفق به بعض البيانات لتجربة الملف من قبل الأخوة الأفاضل بالمنتدى تقبل تحياتي

أخي الحبيب أبو عيد بارك الله فيك أخي الغالي وجزيت خير الجزاء لطالما تمنيت منك عند تقديم المساعدة أن تقدم شرح بسيط لما قمت به من تعديل بالملف .. في حقيقة الأمر لا أحب الإطلاع على المرفق بشكل مباشر ..أحب أن أعرف تفاصيل ما قمت به ثم أطلع في النهاية على المرفق الملف المرفق الأول في الموضوع يؤدي الغرض معي ولا تظهر أي مشكلة ..من ثم أحب أن أعرف ما قمت به بدون الإطلاع على المرفق عموماً يبدو أن فضولي منعني من الانتظار لأرى معادلتك الرائعة والجميلة والتي تؤدي الغرض أيضاً =INDIRECT("Data!A"&MATCH(C5,Data!F$1:F$30000,0)) حيث تقوم الدالة Match بالبحث عن النص المطلوب في الخلية C5 وتتم عملية البحث في ورقة الـ Data في العمود F .. وتكون عملية البحث مطابقة تماماً للنص .. وتقوم الدالة بإرجاع رقم الصف الذي يحتوي على النص المطلوب ، ومن ثم تم استخدام دالة أخرى مفيدة جداً ألا وهي الدالة Indirect لتحول النص الموجود وهو كلمة Data!A ويتبعها رقم الصف ..تحولها لتصبح كأنها معادلة يساوي قيمة أخرى ، فتأتي بالنتيجة المرجوة تقبل وافر تقديري واحترامي أخي الكريم عبد الكريم اتضح لي أن الموضوع مكرر .. فقد تم طرح الموضوع بالأمس وقمت بالرد عليه بأن الملف يعمل بشكل جيد فوجدت اليوم أن ردي غير موجود في الموضوع فشككت أن الموضوع مكرر وبالفعل اتضح أنه مكرر فقمت بدمج الموضوعين رجاءً أخي الفاضل عدم تكرار الموضوعات بدون داعي .. حتى لو كنت مستعجل يكفي أن ترد في الموضوع بكلمة للرفع ليشاهد الأخوة الكرام بالمنتدى الموضوع ويقومون بالرد عليه تقبل تحياتي وتوجيهات المنتدى ويرجى الالتزام بها بارك الله فيك

أخي الكريم رميلي كمال في ورقة العمل المسماة 333 ضع النص التالي في الخلية N3 2016 /2015 وفي ورقة العمل المسماة 111 روح لصندوق الاسم اللي على يسار شريط المعادلات واكتب F15 .. وروح لشريط المعادلات واكتب المعادلة بهذا الشكل ="( " &'333'!$N$1 & "/" & $S$2 &" )" وطالما أن الشهادة المقابلة لها لنفس الشخص كما أرى في المرفق فيمكنك استخدام المعادلات بشكل أبسط في الشهادة المقابلة ..فمثلاً في الخلية AH15 يمكنك وضع المعادلة بحيث تساوي قيمة الخلية F15 بدون داعي لكتابة نفس المعادلة مرة أخرى =$F$15 تقبل تحياتي وإليكم الملف المرفق بتنسيق 2003 .. CERTIFICATE YK.rar

وعليكم السلام أهلا بك يا أخي في هذا الصرح التعليمي وأتمنى أن تقضي فيه وقتا ممتعا وتجد فيه ضالتك تفضل Timberland Stoke.rar

السلام عليكم أستاذ محمود غباشي ان خاصية ال Undo-Redo دائما تتوقف عن العمل في اكسيل كلما تم تنفيذ أي كود يقوم بتغيير محيط الاكسيل مثل تغيير محتوى الخلايا أو الألوان أو الفلترة و غيرها ... و هذا مشكل معروف في الاكسيل يشتكي منه الكثيرون الحل الوحيد الذي يخطر ببالي هو اجراء التغييرات ( أي الفلترة في هذه الحالة) بواسطة ال SendKeys لو عندي وقت سأكتب الكود و أنشره هنا

جميل استاذ جعفر وقد اطلعت على هذه البرامج وهي غاية في الاتقان والشمول ، ويكفي انها معروفةتعمل من سنين ولكن يبقى الاشكال قائما ان هناك وسيط بين الجهاز وأكسس نريد من اكسس التحكم في الجهاز تحكما تاما بدون وسيط مثل : 1- جلب بيانات الحضور والانصراف من الجهاز مباشرة 2- حذف بيانات الحضور والانصراف داخل الجهاز 3- عمل فورمات للجهاز 4- التحكم والسيطرة على جميع خصائص الجهاز كل ما سبق يجب ان يتم من داخل اكسس ادوات التطوير التي تأتي مرفقة مع الجهاز تساعد المبرمج على تحقيق ذلك

تشكر ويعطيك الف عافية

رسالتى هذة المرة للبراء ياسر خليل حبيب قلب وعين عمك سعيد ربنا يبارك فيك وفى والديك جعلك الله تعالى حاملا لكتاب الله العزيز وتكون قرة عين لابويك بلغ بابا يابراء ان عمك سعيد بقى على اده *** النظر من يمه وكبر السن من يمه وبيقولك انه بيتقّل عليك لكن عمو سعيد عارف انك ادها وأدود *** قبلاتى الحارة لك بنى ياأغلى أبن أخ أكن له كامل الحب والتقديروالعرفان **** مع تمنياتى لك بمسقبل باهر مستقبل ترفع به رأس والديك الى عنان السماء وفى الاخير تقبل وافر احترامى وتقديرى أخى الحبيب الغالى ابو البراء وجزاكم الله خيرا

حياك الله اخي الكريم ... شاهد المرفق وان شاء الله ان فيه ماطلبت ... ** ضع مسار الملف في مربع النص pat وهذين رابطين : الأول لدالة SetAtrr والتي تقوم بتغيير خصائص الفولدر . http://www.techonthenet.com/access/functions/file/setattr.php والثاني لدالة GetAtrr والتي تجلب خصائص الفولدر . http://www.techonthenet.com/access/functions/file/getattr.php طبعا كل خاصية لها رمز او رقم وموضحة في الروابط . بالتوفيق ان شاء الله . Show_Hide.rar

تم العمل على الملف دون كود بواسطة المعادلات فقط كنترول 5 salim.rar

طيب شوف الفكرة دي كدا فلتر بقيمة خلية.rar

أخي ياسر , شكرا على الإضافة الجميلة التي أضفتها على الكود رائع جدا ويخدم المطلوب والمجال مفتوح للأخوة الأعضاء لإضافة ما يرونه مناسبا أربع أيام أفكر كيف سأخبر السيد إكسل إن الحماية تم فكها إلى أن وجدت الطريقة هذا السطر Range("XFD1") = "x" مع أنه بسيط ولكنه القشة التي قصمت ظهر البعير بارك الله فيك كن ذا همة تصل للقمة تم التعديل على الملف abo eed file1.rar

السلام عليكم ورحمة الله وبركاته .... تعديل الملفات وإضافة الدور الثانى أوتوماتيكيا تحديث روابط ملفات اعمال الامتحانات والمرتبات بتاريخ اليوم الثلاثاء: 25/01/2015م رقم إصدار البرامج: 15.3 مع أطيب تمنياتي للجميع بالتوفيق 01062507977 – 01091553661 – 01270384484 الروابط على مركز الخليج تمكين الماكرو .... http://www.gulfup.com/?6whkzt سجلات ومستندات الكنترول ... http://www.gulfup.com/?WLXVNL قوائم إكسيل 2003 ..... http://www.gulfup.com/?oGOatC قوائم الفصول 15.2 ..... http://www.gulfup.com/?xHGLCT كشوف الملاحظة 15.2 .. http://www.gulfup.com/?W7pMB8 كشوف المرتبات 15.2 ... http://www.gulfup.com/?RIXIP4 كنترول الابتدائي 1 15.3 ..... http://www.gulfup.com/?FtCrLh كنترول الابتدائي 2 15.3 .... http://www.gulfup.com/?Q84Ezc كنترول الإعدادي 15.3 .... http://www.gulfup.com/?23g8mh كنترول التجاري 15.3 .... http://www.gulfup.com/?1m80DJ كنترول الصناعى 15.3 .... http://www.gulfup.com/?ecD649 كنترول اولى ثانوي 15.3 ... http://www.gulfup.com/?gvD4x7 كنترول ثانية ثانوي 15.3 .... http://www.gulfup.com/?1Up1dX ملف التقويمات 15.2 .... http://www.gulfup.com/?6YtDCl

السلام عليكم ورحمه الله وبركاته أولا/ كل عام وحضراتكم بكل خير ثانيا/ نشكر المعلم الفاضل / محمد أبو البراء على حسن خلقه أما بالنسبه للموضوع لا يوجد مشكله أبدا لأن المنازل لا تدرس فعلا حاسب الى ولا تربيه رياضيه فمن الطبيعى عدم تواجدهم فى الشيت

أخى الكريم بداية أهلا بكم عضوا بمنتديات أوفيسنا ولى رجاء عندكم قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف بخلاف أتمنى تغيير أسم الظهور الخاص بكم الى اللغة العربية ليسهل التواصل بين الأعضاء تطبيقا لقوانين الموقع ضرورة رفع ملف به تصور لما تريد حتى يتسنى للسادة الأعضاء وأساتذة الموقع تقديم المساعدة الممكنة لكم وتوفيرا للوقت والجهد وتقبلوا منى وافر الإحترام والتقدير

ثانية أدبى كنترول رجب 2013 منازل ثانية ثانوى أدبى.rar

أخى الفاضل / Mohammed fahmy شكرا جزيلا وجزاك الله كل خير

كرما منك فك الحمايه

الى جميع الاخوان في هذا المنتدى الرائع جدا ارجو منكم المساعدة في عمل نموذج ادخال في الاكسس مكون من 25 خانه ادخال هذه الادخالات يجب ان تفرغ في جدول اكسل مكون من 25 خليه ايضا بحيث كل خليه في النوذج تفرغ في خلية محددة فقط في الاكسل ولاتقبل التفريغ في غيرها . يعني الادخال في الاكسس والتفريغ في الاكسل والشكر للجميع مسميات بعض خلايا الادخال هي التاريخ ( ميلادي ) - اسم العميل - اسم المفوض - رقم السجل - مصدر السجل - رقم صندوق البريد - مصدر الصندوق - الرمز البريدي - رقم الهاتف- رقم الفاكس - مبلغ الطلب - مبلغ الشراء - عدد الوحدات المشتراة - سعر الوحدة - السعر المخصص للعميل - مبلغ الربح - تاريخ القسط - رقم الحساب . ارجو اهتمامكم كما تعودنا منكم