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

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


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

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

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



TOGGLEBUTTON

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

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




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

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


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

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


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

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

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


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


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
أساسيات VBA إكسل : كيفية استخدام أدوات المراقبة أو التحكم الجزء الثالث


Comments
No comments
Post a Comment



    Reading Mode :
    Font Size
    +
    16
    -
    lines height
    +
    2
    -