عمل كود واحد لعدد من ازرار

[حليم ناصر]

سلام عليكم

 

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

(وحسب العمل الذي اقوم به قد انسخ الكود اكثر من 90 مرة ) وهذا كثير

 

 لكن انا اريد ان يكون هناك كود واحد ينفذ عمل جميع الازرار

 

وفي الاخير تقبلوا مني فائق التقدير والاحترام

 

عمل كود واحد لعدد من ازرار.rar

[حسام مصطفي]

الاخ الكريم

يمكنك عمل ما تريده باستخدم كود واحد فقط بسيط للوصول للصفحة الرئيسية بدون نسخة نهائيا

حيث يتم ربط ازرار الانتقال جميعها بكود واحد وهو

Sub hosam()
    Sheets("Feuil2").Select
End Sub

ولكن يجب تغيير الازرار المستخدمة الي الاشكال التلقائية لسهولة استخدام ذلك

كما هو في الملف المرفق

ارجو ان يفي بطلبك

وهذا علي حسب علمي المتواضع جدا جدا جدا

ارجو انني اكون قد افدتك ولو بمعلومة بسيطة

 

عمل كود واحد لعدد من ازرار1.rar

[حليم ناصر]

سلام عليكم

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

 اشكرك على هذه المعلومات وجعلها الله في ميزان حسناتكم 

اخي ان كان ممكن  انا اريدها مثل ما وضعتهم في الملف اقصد الازرار

    اي الازرار بذلك الشكل وتنفذ من كود واحد

 اخي حسام وكل الاعصاء تقبلو مني فائق التقدير والاحترام

             والسلام عليكم ورحمة الله

[حليم ناصر]

سلام عليكم

 الا يوجد اي رد 

[الـعيدروس]

حدد وضع التصميم 

وانقر على كل زر

سيفتح معك حدث الزر

ضيف له الكود الذي تريده

Private Sub CommandButton1_Click()
'------------
 Sheets("Feuil2").Select
'------------
End Sub