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

السلام عليكم ورحمة الله وبركاته في الملف المرفق استخدمنا متغير معرف على مستوى الملف ارجو ان يكون الحل مقبول في امان الله مثال2.rar

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

بعد أذن أساتذتى حل أخر تم تعديل المرفق لتتناسب المعادلة مع أوفيس 2007 عفوا فأنا أعمل على أوفيس 2003 تقبلوا تحياتى مقارنة قائمتين وأرجاع القيم الفريدة فى قائمة ثالثة (2003 -2007 ).rar

بارك الله فيك أستاذ محمد الريفي واسمح لي إذا لم يكن يضايقك طبعا (أما لو ضايقك هعمل حذف علطول أو على عرض) لإثراء الموضوع هذه دالة توضع في موديول تقوم بالمهمة Function Two_Con_Vlookup(Table_Range As Range, Return_Col As Long, Col1_Fnd, Col2_Fnd) Dim rCheck As Range, bFound As Boolean, lLoop As Long On Error Resume Next Set rCheck = Table_Range.Columns(1).Cells(1, 1) With WorksheetFunction For lLoop = 1 To .CountIf(Table_Range.Columns(1), Col1_Fnd) Set rCheck = Table_Range.Columns(1).Find(Col1_Fnd, rCheck, xlValues, xlWhole, xlNext, xlRows, False) If UCase(rCheck(1, 2)) = UCase(Col2_Fnd) Then bFound = True Exit For End If Next lLoop End With If bFound = True Then Two_Con_Vlookup = rCheck(1, Return_Col) Else Two_Con_Vlookup = "#N/A" End If End Function وهذا ملف مرفق مثال على الدالة VLOOKUPTwoCriteria.rar

ملحق الدرس الرابع الخاص بالرسائل نستعرض هنا الرساله التى تحتوى على مربع ادخال بيان قد يكون اسم ما وقد يكون كلمه سر للدخول فيما يختص بالجزئية الأولى يكون كود الرساله بهذا الشكل وهذا الكود على سبيل المثال Sub example() Dim result As String result = InputBox("Text?", "Title") If result <> "" Then End If End Sub فتكون الرساله بهذا الشكل كما بالصورة التالية وإذا أفترضنا أننا نريد أن يجعل الاكسل يظهر الاسم او الكلمه التى ستكتب داخل هذا المربع فيكون الكود بهذا الشكل Sub example_1 () Dim result As String ("result = InputBox("Text ?", "Title", "write the name If result <> "" Then MsgBox result End If End Sub الاختلاف بين الكودين فى اضافة هذه الجملة Msgbox result وهى تعنى ظهور رساله تاليه بها الجملة التى تم ادخالها بالمربع فتظهر الرساله كما بالصورتيين التاليتين بعد كتابه الاسم على سبيل المثال تظهر الرساله بالشكل التالى نأتى لجزئية كلمة السر لقد جعلت الكود خاص بالمثال العملى المرفق يختص بالدخول الى الشيت الثانى وقد سجلت الكود بمحرر الأكواد الخاص بحدث الشيت الثانى أى داخل الصفحه نفسها من خلال الفيجوال بيسك وان شاء الرحمن سوف نتطرق لأمر الأكواد بشىء من التفصيل فى الدروس القادمة وما هو الفرق بين الكود داخل موديول أو بحدث الشيت أو بحدث المصنف بالكامل والكود الخاص برساله كلمه السر كالتالى Private Sub Worksheet_Activate() xx: Dim x x = InputBox("Password required" & Chr(13) & "يلزم معرفة كلمة السر للدخول لهذه الصفحه ", "فضلاً أدخل كلمة السر") If IsNull(x) Or x = "" Then GoTo xx If x = "بسم الله" Then MsgBox "كلمة السر تم قبولها تفضل لتنفيذ العمليه" Else MsgBox "Wrong Password" & Chr(13) & " عفواً لم تدخل كلمة السر الصحيحه سيتم العوده بك للصفحة الرئيسيه !!", vbOKOnly Sheets("sheet1").Activate End If End Sub فعند محاولة الدخول للشيت الثانى تظهر لنا الرساله كما بالصورة التالية وعند كتابة كلمه السر وهى بسم الله بين الكلمتين مسافة واحده فقط تظهر لنا رساله بهذا الشكل وبالضغط على زر OK يتم الدخول الى الشيت الثانى فى حال كوننا لم ندخل كلمه السر الصحيحة تظهر لنا رساله توضح ذلك وتنتقل مباشرة الى الشيت الأول والرساله كما بالشكل التالى مرفق ملفين الأول ملحق الدرس الرابع PDF الثانى مثال عملى لما ورد بالدرس وتقبلوا منى وافر الاحترام والتقدير ملحق الدرس4.rar مثال عملى ملحق الدرس 4.rar

بسم الله الرحمن الرحيم دروس فى VBA Excel هذه الدروس نتيجة جهد مستفاد من شروحات وأعمال السادة أساتذة منتديات أوفيسنا أسأل الله عز وجل لهم أن تكون فى ميزان حسناتهم http://www.officena.net/ib/index.php الدرس الأول قبل أن نبدأ، دعونا نتأكد من أن الأدوات التي نحتاجها موجودة. إذا كنت تستخدم ( Excel 2007) أو إصدار أعلى click ". Office button, then click Excel Options بالاسفل سيتم إضافة علامة تبويب جديدة وهى Developer سوف نحتاج فى العمل مع التعليمات البرمجية ل VBA ، محرر، يتم تثبيته بشكل افتراضى. يمكنك فتحه عن طريق الضغط على تركيبة مفتاح الاختصار " Alt+ F11 ": او انقر على الشكل المشار له بالسهم بالصورة السابقة انتهى الدرس الأول مرفق ملف PDF يرجى ان كان هناك أى استفسار يكون فى مضمون الدرس حتى لا يتم التشتيت وتقبلوا منى وافر الإحترام والتقدير الدرس 1VBA Excel.rar

السلام عليكم ورحمة الله وبركاته إخواني الكرام أقدم لكم اليوم موضوعاً فيه الشرح بالتفصيل لعمل الدوائر الحمراء ، وهو فيديو للأستاذ الكبير / يحيى حسين ، جزاه الله عنا خير الجزاء وهذا هو رابط الفيديو وفيه شرح لعمل الدوائر الحمراء ... فقمت بتطبيق المثال في الملف المرفق مع إضافة بسيطة بعد إذن الأستاذ الكبير يحيى حسين وهو حذف هذه الدوائر Add-Remove Red Circles.rar

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

السلام عليكم كثرت الاسئلة عن لوائح منسدلة مترابطة و اليكم موضوع بهذا الشأن لوائح منسدلة مترابطة.rar

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

كود كامل للطباعة sub macro1 Application.ScreenUpdating = False With ActiveSheet.PageSetup .Zoom = False .FitToPagesWide = 2 .FitToPagesTall = 1 On Error Resume Next End With ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False end sub انسخ هذا الكود في موديول جديد ثم ارسم أي شكل تلقائي دلخل الصفحة المراد طباعتها وواربطه بهذا الماكرو مرفق ملفك بعد التعديل طباعة.rar

أخي الكريم جرب المرفق التالي وأي استفسار أنا في الانتظار Show-Hide Rows If Value Is Zero.rar

ممكن أعرف -XLFND دي فين ؟؟؟؟ استاذى ياسر خليل هذا الاختصار XLFN يوضع مباشرة فى الخليه عند تحويل الاصدارات ابتداء من 2007 الى 2003 او 97 ويظهر هذا الاختصار مع الصيغ المستحدثه فى الاصدارات الجديده IFERROR ايضا بظهر فى جميع المعادلات الجديده مثلا SUMIFS , COUNTIFS ......... تقبل تحيات تلميذكم

هذا الملف شامل كل حلول وافكار معادلة /محمد الريفى كود استاذنا /ياسر خليل معادلة استاذنا/ يحيى حسين تقبلوا خالص تحياتى VLOOKUP11111 بشرطين.rar

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

السلام عليكم و رحمة الله على نفس ملف الأخ حسام في المشاركة الثالثة و لكن مع بعض التعديل في أن تكون أسماء الفصول في العامود D معمول لها فرز Sort إستخدم المعادلة التالية في الـ datavlidation =OFFSET($E$2,MATCH($A$2,$D$3:$D$14,0),0,COUNTIF($D$3:$D$14,$A$2)) دمتم في حفظ الله

مشكور على مرورك العطر أخي في الله يحيى حسين فأنت علم من أعلام هذا المنتدى بارك الله فيك وزادك علما

اذا يكون التحديث بعد التحديث Dim i As Integer i = Khet Me.Requery Khet = i 333_6.rar

عذرا أخى يبدو أنك أخطأت المنتدى المطلوب لأن هذا المنتدى منتدى تعليمى وليس منتدى تعدى على الحقوق الفكرية للغير لأن هذا المرفق يحتوى على كلمتان باسورد وبفرض أنك نسيت كلمة منهم فليس من المنطقى أن تنسى الأخرى تقبل تحياتنا

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

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

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

الاخت الكريمة تفضلى الملف ان شاء الله يكون هو المطلوب البحث فى قائمة منسدله بالحرف.zip

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

السلام عليكم ورحمة الله وبركاته هذا من اصلكم الكريم جزاكم الله خيرا تقبلوا تحياتي وشكري

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

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته كثير منا ممكن ان يقوم بعمل معادلة مخصصة او يقوم بإنشاء ماكرو معين ولكن كيف يمكنه جعل هذا الماكرو موجود في كل ملفات اكسل القديمة والجديدة منها وكيف يمكن ان يجعل من المعادلة التي قام بتعريفها موجودة تلقائيا في كل ملفات اكسل . للقيام بذلك اتبع الخطوات التالية : 1 - طبعا سوف تقوم بكتابة الماكرو او المعادلة ضمن مودويل 2 - تقوم بحفظ ملف اكسل باسم وتختار النوع Excel add-in واختر له اسم مميز تعرفه به لاحقا 3 - سوف يقوم اكسل تلقائيا بفتح مكان الحفظ الافتراضي لمثل هذه الصيغة قم بالحفظ والمسار هو : C:\Users\hp\AppData\Roaming\Microsoft\AddIns على فرض أن اسم المستخدم هنا هو hp ويختلف من جهاز لجهاز عموما اكسل سوف يختار المكان بشكل تلقائي 4 - تقوم بفتح ملف اكسل جديد سواء كان جديد كليا او كنت تعمل عليه من قبل 5 - تذهب الى خيارات اكسل ومنها الى الوظائف الإضافية تظهر عندك شاشة فيها كافة الإضافات الموجودة 6 - سوف تجد زر مكتوب عليه انتقال اضغط عليه يفتح لك قائمة اختر منها الإضافة التي قمت بها ثم موافق مبروك لقد قمت بتفعيل المعادلة الخاصة بك في كل ملفات اكسل هناك طريقة ثانية اسرع توفر عليك الخطوتين الأخيرة من تبويب المطور تجد تجد زر الوظائف الإضافية اضغط عليه واختر الوظيفة التي تريد أرجو ان يكون الشرح واضحا لهذه الجزئية تقبلوا مروري وتحياتي

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

الدرس الرابع الرسائل نتحدث هنا عن استخدام بعض التقنيات التى تجعل استخدامنا للماكرو _ ( برمجه اكسل ) _ أكثر مرونه .. وذات طابع احترافى وأكثر جمالا وذلك من خلال استخدام الرسائل من خلال كتابة بعض الأكواد البسيطه السؤال ؟ أين تكتب تلك الأكواد ؟ تكتب تلك الأكواد داخل حدث الشيت تكتب داخل حدث المصنف تكتب داخل موديول تكتب داخل أكواد اليوزر فورم أى تكتب حسب الحاجه لها على أن تكون داله على الهدف منها سواء كان تحذير من شىء أو طرح سؤال بسيط مثال ( 1 ) نريد أن نتأكد من أن الطابعه فى وضع التشغيل وإعطاء المستخدم فرصة للتأكد من ذلك مع توقف الماكرو عن العمل الى أن يقرر المستخدم الضغط على زر موافق أو OK التالى نص الرساله التى ستظهر كما بالصورة MsgBox “Please make sure that the printer is switched on” جدير بالذكر عند الملاحظة الأولى لشكل الرساله كما بالصورة السابقة نجد نص الرساله ثم زر OK اذا الإستنتاج هنا يدفعنا الى ذكر سؤال هام لمعرفة كيفية ظهورها بهذا الشكل س : مما تتكون الرساله ؟ وكيف تكتب ؟ ج : تتكون الرساله من هذه التركيبة التالية MsgBox (prompt [, buttons] [, title] [, helpfile, context]) السؤال الذى يطرح نفسه هنا س : ماذا تعنى هذه التركيبة ؟ ج : كالتالى كلمة Prompt تعنى ان تكون الرساله سريعه أى عند حدوث أمر ما تظهر الرساله سريعا هناك أيضا أمور يجب ذكرها : 1 - طول الرساله يتكون من 1024 حرف 2 - واذا كانت الرساله تتكون من عده أسطر يجب الفصل بين كل سطر بعلامه (& _ ) 3 – هناك معيار هام فى الرسائل عندما مثلا تريد تحذير المستخدم الى ان الطابعه تعمل مع التأكيد على ذلك بزر OK هنا نستخدم الفواصل وهو امر ضرورى كمثل الرساله التالية MsgBox “Is the printer on?”, , “Caution!” وكما الصورة نأتى الى القيم الرقمية التى سبق الإشارة عنها وبشىء من التفصيل فمثلا إذا كنت تريد القيمة 4 والقيمة 32 يكون النص الذى يكتب فى الكود هكذا MsgBox Prompt:=”Delete this record?”, Buttons:=36 وتظهر الرساله كما بالصورة التالية أو يكتب النص هكذا MsgBox (Prompt:=”Delete this record?”, Buttons:=vbYesNo + vbQuestion) وإذا أردنا كتابة الرسالة بالترتيب الخاص بها كما ذكرنا بكيفية كتابة الرساله فتكون هكذا MsgBox("Text", vbYesNoCancel + vbExclamation + vbDefaultButton2, "Title") فتظهر الرساله كما بالصورة التالية هنا السؤال يطرح نفسه هل يمكن كتابة كل هذه الأزرار فى الرساله ؟ الإجابة بالقطع (( لا )) · فمجموعة القيم من ( 1:5 ) تمثل الأزرار التى ستظهر فى الرساله وعلى حسب ما تريد وتختار · ومجموعة القيم ( 16,32,48,64 ) تمثل نوع الرساله من كونها استفهام أو تعجب .. الخ وعلى حسب ما تختار · ومجموعة القيم ( 0,256,512,768 ) تعنى أى الأزرار YES أو NO أو CANCEL تريدها أن تكون الإفتراضية للمستخدم أى المضيئة يمكن التعبير عن الرساله فى الكود بالقيمة مثل وتظهر الرساله كما بالصورة السابقة MsgBox("Text", 3 + 48 + 256, "Title") مرفق ملف به كامل الدرس الرابع وتقبلوا منى وافر الاحترام والتقدير الدرس 4.rar

الدرس الثالث إعدادات الأمان لغة VBA هي لغة برمجة وهذا يعنى أنه يمكن لبعض المبرمجين أن يستغلها استغلالا سيئا فى إنشاء برامج ضاره تضر بالحاسب الآلى الذى يستخدم هذا البرنامج وعليه قررت شركة مايكروسوفت إضافة خاصية الأمان لحماية المستخدم وللدخول إلى خيارات الأمان نتبع الخطوات التالية : بأوفيس 2007 وما فوق نضغط على زر برنامج الأوفيس كما بالصورة ثم نضغط على Excel Option تظهر لنا نافذة كما بالصورة ثم نختار Trust Center من القائمة تظهر لنا نافذة أخرى كما بالصورة ثم نضغط على Trust Center Settings تظهر لنا نافذة كما بالصورة نجد هنا قسمين بالنافذة الأعلى ( الصورة السابقة ) الجزء الأول به عدد ( 4 ) اختيارات ومعناهم كالتالى : اختيار الخيار الثانى او الثالث عندما يقوم المستخدم بفتح البرنامج تظهر نافذة الاكسيل كما بالصورة التالية وبالضغط على زر Options تظهر لنا نافذة كما بالصورة التالية فإن كنا نثق بالبرنامج والمصدر نضغط على الخيار الثانى وهو Enable this content ونضغط على OK مرفق ملف به كامل الدرس الثالث وتقبلوا منى وافر الاحترام والتقدير الدرس 3.rar

أخى فى الله الأستاذ الكريم // محمد الريفى بارك الله فيكم وألف مبروك للترقية المستحقة عن جداره نسأل الله لكم أن يوفقكم لما يحبه ويرضاه مع تمنياتى القلبية لكم بدوام التقدم والرقى وتقبل منى وافر الاحترام والتقدير

تابع الدرس الثانى ندخل الى مرحله تنفيذ الماكرو الذى قمنا بتسجيله ولها خطوات معينة كالتالى : نذهب الى الشيت ثم نضغط على Insert تظهر لنا نافذة نختار منها Button ثم نقوم بوضعه داخل الشيت كما بالصور التالية ثم نقوم بالضغط على الزر كليك يمين ونختار تعيين ماكرو كالتالى تظهر لنا نافذة نختر منها اسم الماكرو وهنا قد اسميته MZM_ELSHRIEF ثم نختار This Workbook ثم نضغط على OK كالتالى الآن يمكنك تنفيذ الماكرو الذى قمنا بتسجيله بمجرد الضغط على الزر أى Button يمكنك أيضا تغيير اسم الزر اذا اردت ذلك كالتالى بالضغط كليك يمين على الزر تظهر لك نافذة اختر منها اضافة نص حفظ الملف عند حفظ الملف تظهر لنا رساله كما بالصورة التالية نضغط على زر NO فتظهر لنا رساله أخرى كما بالصورة التالية نضغط على زر Yes فتظهر لنا نافذة كما بالصورة التالية نقوم بإختيار من Save as type Excel Macro-Enbled Workbook ثم نضغط على Save الخيار التالى كما بالصورة التالية فتكون أيقونه الملف كما بالصورة التالية انتهى الدرس الثانى مرفق ملف PDF به كامل الدرس الثانى يرجى فى حاله هناك استفسار أن يكون فى مضمون الدرس حتى لا يتم التشتيت وتقبلوا منى وافر الاحترام والتقدير الدرس 2.rar

الدرس الثاني تسجيل الماكرو سنقوم بعمل المثال التالى معا للتعرف على تفاصيل خاصة بالكود والماكرو وأتمنى أن يتم تنفيذه من قبل الدارس أو الراغب فى التعلم المثال - حذف محتويات الأعمدة A و C - نقل محتويات العمود B الى العمود A - نقل محتويات العمود D الى العمود C قم بتعبئة محتويات الأعمده السابقة بأيه بيانات قم بالضغط على "Ok" " Record Macro" قم بتنفيذ المطلوب يدويا الى أن تنفذ جميع الخطوات بالترتيب لأن كل ما تفعله يتم تسجيله من قبل اداه تسجيل الماكرو ثم إضغط على Stop Recording الخطوات بالصور لتسهيل تنفيذ المطلوب بعد تعبئة البيانات قم بالضغط على Record Macro تظهر لنا نافذة 1 - نقوم بكتابه اسم الماكرو نلاحظ أن اسم الماكرو لا يحتوى على ايه مسافات ومن الممكن أن نضع علامه ( _ ) بين كلمتين لو اردنا تسمية الماكرو بأسم مكون من كلمتين مثلا 2 – نجد ان هناك كلمه Ctrl + وبجوارها مربع وتعنى أننا يمكن وضع أى حرف داخل هذا المربع ويكون وسيله لإستدعاء الماكرو فيما بعد لتنفيذ المطلوب وهذا امر غير مطلوب حاليا سيتم توضيح ذلك فيما بعد ان شاء الرحمن بالتفصيل 3 – هناك مستطيل به سهم رأسه الى الأسفل وتعنى اختيار من متعدد وهنا نقوم بإختيار الملف المراد تسجيل به الماكرو فى حاله ان هناك مثلا عدد ( 2 ) ملف اكسل مفتوحين 4 – وهناك مربع آخر وهو الوصف المختصر لهذا الماكرو الذى سيتم تسجيله وحاليا هذا الأمر غير مطلوب 5 – نقوم بالضغط على زر OK بعد الانتهاء من تنفيذ المطلوب بالكامل نقوم بالضغط على ايقاف التسجيل كما بالصورة التالية ملحوظة قد تظهر علامه تسجيل الماكرو بأسفل الشيت نقوم بالضغط عليها لتسجيل الماكرو كما بالصورة ثم بعد الانتهاء من تنفيذ المطلوب نقوم بالضغط على ايقاف التسجيل كما بالصورة لقد تم تسجيل الماكرو ونبدأ الآن فى معرفة تفاصيل الكود الذى قمنا بعمل خطواته من خلال عمليه التسجيل ومعرفة بعض الأمور الأساسية والهامه للكود البرمجى للدخول الى الصفحة التى بها الكود البرمجى والذى تم تسجيله تلقائيا فى موديول نقوم بالضغط على ALT+F11 معا تفتح لنا صفحه تسمى صفحه محرر الأكواد كما بالصورة الملاحظات : 1- يبدأ الكود بكلمه Sub ثم اسم الماكرو ثم هذين القوسين المغلقين ( ) الكود دائما يبدأ بذلك الأمر وخاصة إذا كان داخل موديول وهناك أكواد تكتب ولا تسجل عن طريق الماكرو تبدأ بخلاف ذلك وتلك التى توجد داخل حدث الصفحة ( الشيت ) أو داخل حدث الملف This Workbook وسيأتى الحديث عن ذلك بالتفصيل فيما بعد ان شاء الرحمن داخل تلك الدروس 2 – هناك داخل الكود علامه (( ' )) وهى دائما تكون مصبوغة باللون الأخضر وتسمى علامه اقتباس أحادية تشير الى تعليق يمكنك كتابته يدويا بأى لغة الفائدة منها : وهذا التعليق يكون خاص إما بشرح جزء من الكود أو تشير الى تعليمات برمجيه معينه يتجاهلها الكود تماما أثناء عملية تنفيذ الكود وليس لها اى تأثير مطلق على الكود 3 – ينتهى الكود بجمله End Sub وهذه الجمله هامه جدا لإنهاء عمل الكود 4 – يمكننا هنا ونحن داخل الموديول الذى به الكود البرمجى الذى تم تسجيله تلقائيا بناء على أننا قمنا بتنفيذ الخطوات الخاصة بالمثال يدويا · تغيير اسم الكود الى اى اسم .. اى نقوم بتغيير كلمه Module1 الى اى كلمه أخرى قد تكون معبرة عن طبيعة عمل الكود أو حتى يمكننا وضع اسمنا باللغة الإنجليزية طبعا دون ترك مسافات ويمكننا الاستعانة بوضع تلك العلامه ( _ ) التى تسمى Under Scour يمكننا التعديل والإضافة داخل الكود البرمجى ايضا فى تغيير اسماء الأعمده والمدى وخلافه أو أى أمر آخر كما يتراء لنا وسيأتى فيما بعد ذكر هذا الأمر فى الدروس القادمة بشىء من التفصيل >>>> يتبع الدرس الثانى >>>>>>

اخي الكريم تم التعديل على الملف ليعمل كما تريد لوائح منسدلة مترابط حسام عيسىى.rar

السلام عليكم أخى الفاضل جرب الكود التالى لتنفيذ ما تريد Sub ragab() For i = 1 To Sheets.Count Sheets(i).Cells.EntireRow.Hidden = False x = Sheet1.Range("A4") + 1 Sheets(i).Range("a" & x & ":a" & Rows.Count).EntireRow.Hidden = True Next End Sub اخفاء صفوف حسب عدد الطلاب.rar

الاستاذ بن عليه عمل مميز ومعلومة جميلة نتعلمها عن طريقة عمل مدى متغير بالمعادلات

السلام عليكم ورحمة الله أخي الكريم هذا حل أول، جعلت فيه المدى متغيرا حسب رقم صف الرقم الذي يكتب في الخلية G4 (الخضراء) حسن العمود D... أتمنى ان يكون هذا هو المطلوب... أخوك بن علية HLOOKUP_1.rar

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

السلام عليكم ورحمة الله أنظرت ردك على أسئلتي ولم ترد عليها، وإليك الملف التالي في المرفق حضرته على وورد 2007 بالفرنسية وعليه يمكنك اتباع الخطوات الموجودة فيه بالصور وإن شاء الله تجد حلا لمشكلتك... يمكن أن تجد حلولا أخرى باستعمال مثلا خصائص اللغة في نظام التشغيل WINDOWS في جهازك... وفقك الله إلى كل خير... أخوك بن علية حل مشكل خط الهامش.rar