كيفية إنشاء قائمة منسدلة مع خانات اختيار متعددة في Excel؟

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

استخدام صندوق القائمة لإنشاء قائمة منسدلة مع خانات اختيار متعددة
أ: إنشاء صندوق قائمة مع بيانات المصدر
ب: تسمية الخلية التي ستحتوي العناصر المحددة
ج: إدراج شكل لمساعدتك في عرض العناصر المحددة
إنشاء قائمة منسدلة مع خانات اختيار بسهولة باستخدام أداة رائعة
المزيد من الدروس حول القائمة المنسدلة...

استخدام صندوق القائمة لإنشاء قائمة منسدلة مع خانات اختيار متعددة

كما هو موضح في لقطة الشاشة أدناه، جميع الأسماء الموجودة في النطاق A2:A11 في ورقة العمل الحالية ستكون بمثابة بيانات المصدر لصندوق القائمة الموجود في الخلية C4. عند النقر فوق هذا الصندوق، يتم توسيع قائمة العناصر التي يمكنك تحديدها، وسيتم عرض العناصر المحددة في الخلية E4. لتحقيق ذلك، اتبع الخطوات التالية:

أ. إنشاء صندوق قائمة مع بيانات المصدر

1. انقر فوق Developer > Insert > List Box (Active X Control). انظر لقطة الشاشة:

2. ارسم صندوق قائمة في ورقة العمل الحالية، انقر بزر الماوس الأيمن عليه ثم حدد Properties من قائمة النقر بزر الماوس الأيمن.

3. في مربع الحوار Properties، تحتاج إلى تكوين ما يلي:

• 3.1 في مربع ListFillRange، أدخل النطاق المصدر الذي سيتم عرضه في القائمة (هنا أدخل النطاق A2:A11);
• 3.2 في مربع ListStyle، حدد 1 - fmList StyleOption;
• 3.3 في مربع MultiSelect، حدد 1 – fmMultiSelectMulti;
• 3.4 أغلق مربع الحوار Properties. انظر لقطة الشاشة:

  

ب: تسمية الخلية التي ستحتوي العناصر المحددة

إذا كنت بحاجة إلى عرض جميع العناصر المحددة في خلية محددة مثل E4، يرجى اتباع الخطوات التالية:

1. حدد الخلية E4، أدخل ListBoxOutput في مربع الاسم واضغط مفتاح Enter.

ج. إدراج شكل لمساعدتك في عرض العناصر المحددة

1. انقر فوق Insert > Shapes > Rectangle. انظر لقطة الشاشة:

2. ارسم مستطيلاً في ورقة عملك (هنا رسمت المستطيل في الخلية C4). بعد ذلك، انقر بزر الماوس الأيمن على المستطيل وحدد Assign Macro من قائمة النقر بزر الماوس الأيمن.

3. في مربع الحوار Assign Macro، انقر فوق الزر New.

4. في نافذة Microsoft Visual Basic for Applications التي ستفتح، يرجى استبدال الكود الأصلي في نافذة الوحدة بالكود VBA أدناه.

كود VBA: إنشاء قائمة مع خانات اختيار متعددة

Sub Rectangle1_Click()
'Updated by Extendoffice 20200730
Dim xSelShp As Shape, xSelLst As Variant, I, J As Integer
Dim xV As String
Set xSelShp = ActiveSheet.Shapes(Application.Caller)
Set xLstBox = ActiveSheet.ListBox1
If xLstBox.Visible = False Then
    xLstBox.Visible = True
    xSelShp.TextFrame2.TextRange.Characters.Text = "Pickup Options"
    xStr = ""
    xStr = Range("ListBoxOutput").Value
    
    If xStr <> "" Then
         xArr = Split(xStr, ";")
    For I = xLstBox.ListCount - 1 To 0 Step -1
        xV = xLstBox.List(I)
        For J = 0 To UBound(xArr)
            If xArr(J) = xV Then
              xLstBox.Selected(I) = True
              Exit For
            End If
        Next
    Next I
    End If
Else
    xLstBox.Visible = False
    xSelShp.TextFrame2.TextRange.Characters.Text = "Select Options"
    For I = xLstBox.ListCount - 1 To 0 Step -1
        If xLstBox.Selected(I) = True Then
        xSelLst = xLstBox.List(I) & ";" & xSelLst
        End If
    Next I
    If xSelLst <> "" Then
        Range("ListBoxOutput") = Mid(xSelLst, 1, Len(xSelLst) - 1)
    Else
        Range("ListBoxOutput") = ""
    End If
End If
End Sub

ملاحظة: في الكود، Rectangle1 هو اسم الشكل؛ ListBox1 هو اسم صندوق القائمة؛ Select Options و Pickup Options هما النصوص المعروضة للشكل؛ و ListBoxOutput هو اسم النطاق للخلية الناتجة. يمكنك تغييرها بناءً على احتياجاتك.

5. اضغط على مفاتيح Alt + Q معًا لإغلاق نافذة Microsoft Visual Basic for Applications.

6. بالنقر فوق زر المستطيل سيتم طي أو توسيع صندوق القائمة. عندما يتم توسيع صندوق القائمة، حدد العناصر المرغوبة عن طريق تحديد خانات الاختيار الخاصة بها. بعد ذلك، انقر فوق المستطيل مرة أخرى لعرض جميع العناصر المحددة في الخلية E4. انظر العرض التوضيحي أدناه:

7. وبعد ذلك احفظ المصنف كـ Excel MacroEnable Workbook لاستخدام الكود لاحقًا.

إنشاء قائمة منسدلة مع خانات اختيار باستخدام أداة رائعة

هل تعبت من كتابة التعليمات البرمجية VBA المعقدة؟ يجعل Kutools لـ Excel من السهل إنشاء قوائم منسدلة مع خانات اختيار لاختيار متعدد بسلاسة. مثالي للاستبيانات، تصفية البيانات، أو النماذج الديناميكية، هذه الأداة سهلة الاستخدام تسرّع من سير عملك وتوفّر لك الوقت.

1. افتح ورقة العمل التي قمت بتعيين قائمة منسدلة بها عبر التحقق من صحة البيانات، انقر فوق Kutools > Drop-down List > Enable Advanced Drop-down List. بعد ذلك، انقر فوق Drop-down List with Check Boxes من قائمة Drop-down List مرة أخرى. انظر لقطة الشاشة:

2. في مربع الحوار Add CheckBoxes to the Dropdown List، يرجى تكوين ما يلي:

• 2.1) حدد الخلايا التي تحتوي على القائمة المنسدلة؛
• 2.2) في مربع Separator، أدخل الفاصل الذي ستستخدمه لفصل العناصر المتعددة؛
• 2.3) قم بتحديد خيار تمكين البحث حسب الحاجة. (إذا قمت بتحديد هذا الخيار، يمكنك البحث داخل القائمة المنسدلة لاحقًا.)
• 2.4) انقر فوق الزر OK.

  

من الآن فصاعدًا، عند النقر فوق الخلية التي تحتوي على القائمة المنسدلة، سيظهر مربع قائمة. يرجى تحديد العناصر عن طريق تحديد خانات الاختيار لعرضها في الخلية كما هو موضح في العرض التوضيحي أدناه.

لمزيد من التفاصيل حول هذه الميزة، يرجى زيارة هذا البرنامج التعليمي.

يقدم هذا المقال طريقتين لمساعدتك على إنشاء قوائم منسدلة مع خانات اختيار بسهولة في Excel. يمكنك اختيار الطريقة التي تفضلها. إذا كنت مهتمًا باستكشاف المزيد من نصائح وحيل Excel، يقدم موقعنا آلاف الدروس التعليمية.

مقالات ذات صلة: