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

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

الاخ الكريم تفضل الحل في المرفقات الملف يحذف نفسه بعد 3 مرات استعمال.rar الملف يحذف نفسه بعد 30يوم استعمال.rar الملف يحذف نفسه بعد دقيقة استعمال.rar الملف يحذف نفسه تلقائيا بعد 3 استعمالات و يشعر المستخدم بعد الحذف.rar

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

السلام عليكم ... أعتذر أولاً عن هذا العنوان الغريب ، ولكن كان لا بد منه (لزوم التشويق :d ). عندما يخوض المرء في غمار الـ VBA فإنه يكتشف الكثير و الكثير من الثنائيات المميزة التي لا يجدها في كتب البرمجة التقليدية . هذه الثنائيات ترقى بالمبرمج إلى مستوى الاحتراف و تسهل عليه الكثير من الأمور. سوف أقوم إنشاء الله بعرض متتابع لهذه الثنائيات و ذلك على شكل مشاركات مرتبة و مرقمة في هذا الموضوع وذلك كلما خطرت على بالي واحدة منها ، وهذا الموضوع مفتوح للنقاش من كل الأعضاء ، ولكن رجائي لكل من يريد عرض تجاربه التقيد بالترقيم الموضح للمشاركات . وشكراً سلفاً على التفاعل

2. الفرق بين Sheets و Worksheets : الكلمة المحجوزة Worksheets تستخدم للإشارة إلى أوراق العمل فقط في المصنف ، أما الكلمة المحجوزة Sheets فتستخدم للإشارة إلى الأوراق بكافة أنواعها (أوراق العمل ، أوراق التخطيط ، ... ، الخ) في المصنف ، لاحظ الأكواد التالية : Sub WorksheetsAndSheets1() Sheets("Sheet1").Activate End Sub Sub WorksheetsAndSheets2() Sheets("Chart1").Activate End Sub Sub WorksheetsAndSheets3() Worksheets("Sheet1").Activate End Sub Sub WorksheetsAndSheets4() Worksheets("Chart1").Activate End Sub نلاحظ أن الكود الرابع يعطي الخطأ رقم 9 عند تشغيله : و هذا ينطبق مع ما قلناه سابقاً ولكن ألم يخطر في بالك السؤال التالي: لماذا لا نستخدم الكلمة المحجوزة Sheets في جميع أكوادنا ؟!!!! هذا بالفعل ما أقوم به وذلك لأن الكلمة المحجوزة Sheets أسهل بالكتابة و أريح على الذهن :d ، ولكن مهلاً يمكننا الاستفادة من التفريق السابق في أكوادنا : بفرض أنه لدينا مصنف يحتوي على ثلاثة أوراق عمل Sheet1 ، Sheet2 ، Sheet3 و ورقة تخطيط واحدة Chart1 ، وبفرض أن ترتيب الأوراق كان كما يلي : Sheet1 ، Sheet2 ، Chart1 ، Sheet3 الآن لنقم بتطبيق الكود التالي : Sub WorksheetsAndSheets5() Worksheets(3).Activate End Sub نلاحظ أنه تم تنشيط الورقة Sheet3 ، هل تعرف لماذا؟ الكود السابق يقوم بتنشيط ورقة العمل الواقعة في الترتيب الثالث ، وبما أننا هنا نتعامل مع الكلمة المحجوزة Worksheets فإنه لم يتم أخذ الورقة Chart1 في الحسبان أثناء حساب ترتيب الأوراق. مرفق ملف يتضمن الحالات السابقة مع أكوادها : بالتوفيق Worksheets_Sheets.zip

1. الفرق بين Select و Activate : قد يتساءل المرء : ما الفرق بين تحديد الهدف Select وتنشيطه Activate : قد يكون من الصعوبة بمكان الإجابة عن هذا السؤال ببضع كلمات ، و لكن وكما تعودنا ، فإن الأمثلة هي خير طريقة لإيصال المعلومات ، لاحظ الكود التالي : Sub SelectAndActivate1() With Sheets("Sheet1") .Range("A1:E10").Select .Range("C5").Activate End With End Sub نلاحظ أننا قمنا بتحديد المجال A1:E10 و لكن الخلية النشطة في هذا المجال (الخلية الجاهزة لإستقبال البيانات) هي الخلية C5 . يمكننا تطبيق نفس الأسلوب السابق على أوراق العمل ، لاحظ الكود التالي : Sub SelectAndActivate2() Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select Sheets("Sheet2").Activate End Sub ولكن يجب عليك الانتباه إلى أن هذه الميزة متوفرة فقط في حال كون الهدف المنشط ينتمي إلى مجال الأهداف المحددة ، لفهم الموضوع بصورة أوضح راقب ما ينج عن هذه الأكواد : Sub SelectAndActivate3() With Sheets("Sheet1") .Range("A1:E10").Select .Range("H6").Activate End With End Sub Sub SelectAndActivate4() Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select Sheets("Sheet4").Activate End Sub لاحظ أن الهدف المحدد هو نفسه الهدف المنشط :p خذ هذا الأمر في الحسبان :pp: نفس الشيء يحصل عندما يكون الهدف المحدد هو هدف واحد ، في هذه الحالة فإن الهدف المحدد يكون منشطاً بصورة تلقائية ، وهنا لا فرق نستطيع استناجه بين هذين الكودين : Sub SelectAndActivate5() Sheets("Sheet1").Activate End Sub Sub SelectAndActivate6() Sheets("Sheet1").Select End Sub مرفق ملف يتضمن الحالات السابقة مع أكوادها : بالتوفيق Select_Activate.zip