/ / حلقة من خلال التحكم في Excel VBA

حلقة من خلال التحكم في Excel VBA

مع بضعة أسطر من التعليمات البرمجية ، يمكننا بسهولة حلقة من خلال الضوابط على Excel VBA Userform. شكل المستخدم الذي سنقوم بإنشائه يبدو كما يلي:

حلقة من خلال التحكم في Excel VBA

لإنشاء Userform ، قم بتنفيذ الخطوات التالية.

1. افتح محرر Visual Basic. إذا لم يكن Project Explorer مرئياً ، فانقر فوق View ، Project Explorer.

2. انقر فوق Insert ، Userform. إذا لم يظهر Toolbox تلقائيًا ، فانقر فوق View ، Toolbox. يجب إعداد الشاشة على النحو التالي.

إعداد شاشة Userform في Excel VBA

3. إضافة التسمية ، خانات الاختيار (الأولى في الجزء العلوي ، والثاني أدناه الأول ، وهلم جرا) وزر الأمر. بمجرد اكتمال ذلك ، يجب أن تكون النتيجة متوافقة مع صورة Userform المعروضة سابقًا. على سبيل المثال ، قم بإنشاء عنصر تحكم مربع الاختيار بالنقر فوق CheckBox من Toolbox. بعد ذلك ، يمكنك سحب خانة اختيار في Userform.

4. يمكنك تغيير الأسماء والتسميات التوضيحية لعناصر التحكم. يتم استخدام الأسماء في التعليمات البرمجية لـ Excel VBA. التسميات التوضيحية هي تلك التي تظهر على الشاشة. من الممارسات الجيدة تغيير أسماء عناصر التحكم ، ولكنها ليست ضرورية هنا لأن لدينا فقط بعض عناصر التحكم في هذا المثال. لتغيير التسمية التوضيحية لـ Userform ، والتسمية ، ومربعات الاختيار وزر الأمر ، انقر فوق عرض ، نافذة الخصائص وانقر فوق كل عنصر تحكم.

5. لإظهار Userform ، ضع زر أمر في ورقة العمل الخاصة بك وقم بإضافة سطر التعليمات البرمجية التالي:

Private Sub CommandButton1_Click()

UserForm1.Show

End Sub

لقد أنشأنا الآن الجزء الأول من Userform. على الرغم من أنه يبدو أنيقًا بالفعل ، لن يحدث أي شيء بعد النقر على زر "مسح".

6. افتح محرر Visual Basic.

7. في Project Explorer ، انقر مرتين على UserForm1.

8. انقر مرتين على زر مسح.

9. قم بإضافة أسطر التعليمات البرمجية التالية:

Private Sub CommandButton1_Click()

Dim contr As control

For Each contr In UserForm1.Controls
    If TypeName(contr) = "CheckBox" Then
        contr.Value = False
    End If
Next

End Sub

تفسير: Excel VBA حلقات عبر كافة عناصر التحكم في Userform. يتم استخدام الدالة TypeName لتصفية عناصر تحكم خانة الاختيار. إذا كان عنصر تحكم مربع الاختيار ، يقوم Excel VBA بإلغاء تحديد خانة الاختيار. يتم اختيار contr عشوائيا هنا ، يمكنك استخدام أي اسم. تذكر الإشارة إلى هذا الاسم في بقية الرمز.

النتيجة عند النقر فوق الزر "مسح":

حلقة من خلال عناصر التحكم

اقرأ أيضًا: