استخدام زر الماكرو لتنفيذ عدد 2 ماكرو بالتبادل وليس معا

[احمد ابوزيزو]

السادة الاعضاء المحترمين

بالشيت المرفق عدد 2 زر    تم ربط كل زر منهما ليقوم بتنفيذ ماكرو معين

المطلوب

استخدام زر واحد ليقوم بتنفيذ الماكرو الاول منفردا

وعند استخدامه (نفس الزر ) مره اخري يقوم بتفيذ الماكرو الثاني منفردا

وهكذا زر واحد لتنفيذ عدد 2 ماكرو بالتبادل

الزر الاول باسم  اطبع

الزر الثاني باسم الكل

ضبط الارصدة النظامية.xls

[سليم حاصبيا]

جرب هذا الماكرو

Sub Button1_Click()
Static t%
  If t Mod 2 = 0 Then
    MsgBox "the First Mxcro will be run"
    '++++++++++++++++++++++++++++++++++++++
     'type your macro 1 Here
      'Example
     Range("a1").Select
    '++++++++++++++++++++++++++++++++++++++
   Else
    MsgBox "You choose the Second macro"
    '++++++++++++++++++++++++++++++++++++++
    'type your macro 2 Here
       'Example
    Range("F1").Select
    '++++++++++++++++++++++++++++++++++++++
   End If
   t = t + 1
End Sub

 

[احمد ابوزيزو]

الاستاذ المحترم / سليم حاصبيا ............تحية طيبة ...........متعكم الله بموفور الصحة وتمام العافية

تمام الكود يفي المطلوب

واذا تفضلتم ....هل يمكن تغيير اسم الزر من ( افرز   الي    الكل ) بالتبادل عند استخدام الزر

                    او تغيير لون الزر

شكرا لحضرتك علي الاهتمام والرد

[سليم حاصبيا]

جرب هذا الملف

 

Change_Butt.xlsm

[احمد ابوزيزو]

الاستاذ المحترم سليم حاصيبيا .........شكرا لاهتمامكم

تم تعديل الكود بالشكل التالي

Option Explicit
Sub Click_me()
Static t%
  If t Mod 2 = 0 Then
     Selection.AutoFilter Field:=1, Criteria1:="اطبع"
     Me.Shapes("Button 1").TextFrame. _
     Characters.Text = "الكل"
     Else
   Selection.AutoFilter Field:=1
        Me.Shapes("Button 1").TextFrame. _
        Characters.Text = "افرز"
   End If
   t = t + 1
End Sub

عند الاستخدام تظهر الرسالة التالية

اما عند ايقاف

 (

Me.Shapes("Button 1").TextFrame. _
     Characters.Text = "الكل"

 Me.Shapes("Button 1").TextFrame. _
        Characters.Text = "افرز"

يعمل الكود مثل الكود الاول

شكرا مقدما

[احمد ابوزيزو]

الاستاذ المحترم سليم حاصبيا

تم الانتباه الي رقم الزر BUTTON

وتم تعديل الكود

الكود يعمل بكفاءة

شكرا لحضرتك