/ / Excel مجموعة VBA للتحكم

اكسيل VBA الضوابط جمع

عند إنشاء Userforms في Excel VBA، يمكنك استعمال ال جمع الضوابط لإجراء حلقة بسهولة من خلال عناصر التحكم وتعيين خاصية كل عنصر تحكم إلى قيمة محددة.

شكل المستخدم الذي سنقوم بإنشائه يبدو كما يلي:

مجموعة عناصر التحكم في Excel VBA

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

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

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

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

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

4. لتغيير التسمية التوضيحية للزر Userform ، والتسمية ، والأمر ، انقر فوق عرض ، نافذة الخصائص وانقر على كل عنصر تحكم.

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

Private Sub CommandButton1_Click()

UserForm1.Show vbModeless

End Sub

Explanation: بإضافة vbModeless ، يمكنك استخدام Userform والعمل في ورقة العمل الخاصة بك في نفس الوقت.

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

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

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

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

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

Private Sub CommandButton1_Click()

Dim i As Integer

For i = 1 To 10
    Controls("TextBox" & i).Value = Cells(i + 1, 1).Value
Next i

End Sub

تفسير: مع بضعة أسطر من الشفرة ، يمكننا ملء مربعات النص بأرقام الهواتف من الورقة. استخدمنا عامل التشغيل لسَلسَلة (ضم) العناصر. تعمل أسطر التعليمات البرمجية هذه لأننا لم نغير أسماء عناصر تحكم مربع النص (TextBox1 ، TextBox2 ، TextBox3 ، إلخ). لتغيير أسماء عناصر التحكم ، انقر فوق عرض ، ونافذة الخصائص وانقر فوق كل عنصر تحكم.

النتيجة عند النقر فوق زر الأمر الموجود على الورقة:

التحكم في جمع النتيجة

اقرأ أيضًا: