أساسيات VBA إكسل : كيفية استخدام أدوات المراقبة أو التحكم الجزء الثالث

أساسيات VBA إكسل : كيفية استخدام أدوات المراقبة أو التحكم في VBA الجزء الثالث

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

إدراج عناصر التحكم على ورقة الاكسيل 

يمكن أيضًا استخدام عناصر التحكم في ورقة الاكسيل  في هذا المثال ، سنضيف عنصر التحكم مباشرة إلى الورقة.

TOGGLEBUTTON

لإدراج زر TOGGLEBUTTON  نضغط على علامة التبويب مطور ثم اختيار الزر انظر الى الصورة التالية لتفهم أكثر:

نلاحظ أنه للتلاعب بعنصر تحكم ActiveX على الورقة ، فإنه يجب علينا أن نقوم بتفعيل وضع إنشاء :

الآن انقر نقرًا مزدوجًا فوق الزر وقم بتعديل خصائصه للحصول على:

الهدف هنا هو إخفاء الورقة 2 عند الضغط على الزر أو عرضها بطريقة أخرى.

النقر المزدوج السابق أضاف الحدث أيضًا انقر للزر في الورقة حيث يوجد الزر:

كل ما عليك فعله هو إدخال التعليمات المراد تنفيذها عند النقر فوق الزر:

Private Sub ToggleButton1_Click()
    
    'Si le bouton est pressé
    If ToggleButton1 Then
        
        'Masquer la feuille et modifier le texte du bouton
        Sheets("Feuil2").Visible = 2
        ToggleButton1.Caption = "La feuille 2 est masquée"
        
    'Sinon
    Else
    
        'Afficher la feuille et modifier le texte du bouton
        Sheets("Feuil2").Visible = -1
        ToggleButton1.Caption = "La feuille 2 est affichée"
        
    End If
    
End Sub