اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

السلام عليكم ...

هذا شرح بشكل سريع أرجو أن يفيدك، وأنا جاهز لأسئلتك

اضغط على Alt+f11 ومن ثم أدرج Module من القائمة Insert ، وفي داخل المودل اكتب الإجراء Open1 التالي:

Sub Open1()
 Worksheets("m").Select
End Sub

الإجراء السابق يقوم بفتح الصفحة m ...

الآن اذهب لنافذة العمل واضغط بزر الفأرة اليميني على الزر المطلوب و اختر Assign Macro من القائمة المنسدلة لتظهر لك نافذة ، اختر الماكرو Open1 .

الآن تستطيع بالضغط على الزر فتح الصفحة m

قام بنشر

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

قام بنشر (معدل)

السلام عليكم ...

أظن أن شرح الأستاذ حسام يفي بالغرض ، وعذراً من الأخ أبو مؤنس فالرابط بعد التصحيح :

http://www.officena.net/ib/index.php?showtopic=2407

أما عن كيفية إنشاء موديل فإليك الشرح التالي :

اضغط مفتاحي Alt+F11 لتظهر لك النافذة التالية :

cc1.gif

أدرج موديل من القائمة Insert

الآن افتح الموديل واكتب فيه الإجراء السابق :

cc2.gif

كرر كتابة الإجراء السابق ، ولكن بعد تغيير اسمه واسم الورقة التي تريد فتحها ...

الآن وبعد كتابة الكود ، يصبح لديك مايكروات بعدد الإجراءات التي كتبتها :

cc3.gif

اربط كل مايكرو بالزر المخصص له ...

تحياتي ... :lol:

تم تعديل بواسطه محمد حجازي
  • 1 month later...
زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information