/ / Excel مربع قائمة VBA

Excel مربع قائمة VBA

مربع القائمة هو قائمة من حيث يمكن للمستخدم تحديد عنصر. لخلق مربع القائمة في Excel VBAقم بتنفيذ الخطوات التالية.

1. في علامة التبويب Developer ، انقر فوق Insert.

2. في مجموعة عناصر تحكم ActiveX ، انقر فوق مربع القائمة.

قم بإنشاء مربع قائمة في Excel VBA

3. اسحب مربع قائمة في ورقة العمل الخاصة بك.

اسحب مربع قائمة

ملحوظة: يمكنك تغيير اسم عنصر التحكم عن طريق النقر بزر الماوس الأيمن على عنصر التحكم (تأكد من تحديد وضع التصميم) ثم النقر فوق خصائص. في الوقت الحالي ، سنترك ListBox1 كاسمًا لمربع القائمة.

إنشاء مصنف افتح الحدث. سيتم تنفيذ الأكواد المضافة إلى Event Open Open Event بواسطة Excel VBA عند فتح المصنف.

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

5. انقر نقرًا مزدوجًا فوق هذا المصنف في Project Explorer.

6. اختر المصنف من القائمة المنسدلة اليسرى واختر فتح من القائمة المنسدلة اليمنى.

المصنف الحدث المفتوح في Excel VBA

7. لإضافة عناصر إلى مربع القائمة ، أضف أسطر التعليمات البرمجية التالية إلى "حدث فتح المصنف":

With Sheet1.ListBox1
    .AddItem "Paris"
    .AddItem "New York"
    .AddItem "London"
End With

ملحوظة: استخدم Sheet2 إذا كان مربع القائمة موجودًا في ورقة العمل الثانية ، Sheet3 إذا كان مربع القائمة موجودًا في ورقة العمل الثالثة ، إلخ. إذا كنت تستخدم خطوط التعليمات البرمجية هذه خارج الحدث Open Workbook ، فقد ترغب في إضافة سطر التعليمات البرمجية التالي قبل خطوط الكود. هذا سطر رمز مسح مربع القائمة. بهذه الطريقة لن تتم إضافة العناصر الخاصة بك إلى عدة مرات إذا قمت بتنفيذ التعليمات البرمجية أكثر من مرة.

ListBox1.Clear

8. لربط مربع القائمة هذا بالخلية ، انقر بزر الماوس الأيمن على مربع القائمة (تأكد من تحديد وضع التصميم) وانقر على خصائص. املأ D3 لـ LinkedCell.

LinkedCell

ملاحظة: راجع أيضًا الخاصية ListFillRange لملء مربع قائمة بنطاق من الخلايا.

9. احفظ وأغلق وأعد فتح ملف Excel.

نتيجة:

مربع القائمة

على الرغم من أنه في بعض الحالات ، قد يكون من المفيد وضع مربع قائمة في ورقة العمل الخاصة بك مباشرة ، يكون مربع القائمة مفيدًا بشكل خاص عند وضعه على Userform.

اقرأ أيضًا: