/ / Excel VBA التابعة مربعات تحرير وسرد

Excel VBA التابعة تحرير وسرد مربعات

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

يختار المستخدم الحيوانات من القائمة المنسدلة. وكنتيجة لذلك ، يمكن للمستخدم تحديد حيوان من قائمة منسدلة ثانية.

مربعات تحرير Combo في Excel VBA

يختار المستخدم الرياضة من القائمة المنسدلة. نتيجة لذلك ، يمكن للمستخدم تحديد رياضة من قائمة منسدلة ثانية.

مربعات تحرير Combo في Excel VBA

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

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

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

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

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

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

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

Private Sub CommandButton1_Click()

UserForm1.Show

End Sub

نحن الآن بصدد إنشاء Sub UserForm_Initialize. عند استخدام طريقة Show لـ Userform ، سيتم تنفيذ هذا الفرعي تلقائيًا.

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

7. في Project Explorer ، انقر بزر الماوس الأيمن فوق UserForm1 ، ثم انقر فوق عرض التعليمات البرمجية.

8. اختر Userform من القائمة المنسدلة اليسرى. اختر Initialize من القائمة المنسدلة اليمنى.

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

Private Sub UserForm_Initialize()

With ComboBox1
    .AddItem "Animals"
    .AddItem "Sports"
    .AddItem "Food"
End With

End Sub

Explanation: تملأ خطوط التعليمات البرمجية هذه أول مربع تحرير وسرد.

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

10. في مستكشف المشاريع ، انقر مرتين على UserForm1.

11. انقر مرتين على مربع التحرير والسرد الأول.

12. أضف خطوط التعليمات البرمجية التالية:

Private Sub ComboBox1_Change()

Dim index As Integer
index = ComboBox1.ListIndex

ComboBox2.Clear

Select Case index
    Case Is = 0
        With ComboBox2
            .AddItem "Dog"
            .AddItem "Cat"
            .AddItem "Horse"
        End With
    Case Is = 1
        With ComboBox2
            .AddItem "Tennis"
            .AddItem "Swimming"
            .AddItem "Basketball"
        End With
    Case Is = 2
        With ComboBox2
            .AddItem "Pancakes"
            .AddItem "Pizza"
            .AddItem "Chinese"
        End With
End Select

End Sub

تفسير: يستخدم Excel VBA قيمة فهرس متغير لاختبار كل بيان حالة لاحقة لمشاهدة العناصر التي يجب ملء مربع التحرير والسرد الثاني. انتقل من خلال برنامج Select Case للتعرف على المزيد حول بنية Select Case.

13. انقر مرتين على زر استيراد.

14. أضف سطر الرمز التالي:

Private Sub CommandButton1_Click()

Range("A1").Value = ComboBox2.Value

End Sub

نتيجة:

مربعات تحرير Combo في Excel VBA

اقرأ أيضًا: