كيف تُنشئ قائمة منسدلة تتيح تحديد خانات متعددة في Excel؟

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

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

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

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

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

1. انقر علىالمطوّر > إدراج > مربع القائمة (عنصر تحكم Active X). انظر لقطة الشاشة:

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

3. في مربع حوارالخصائص، قم بتكوينه كما يلي.

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

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

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

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

ج. أدرج شكلًا يساعدك على عرض عدد العناصر المحددة بوضوح.

1. انقر علىإدراج > الأشكال > مستطيل. انظر لقطة الشاشة:

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

3. في مربع حوارتعيين ماكرو، انقر على زرجديد.

4. في نافذةمايكروسوفت 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 هو اسم مربع القائمة؛ وتحديد الخياراتوPickup Options هما نصّا العرض الخاصين بالشكل؛ وListBoxOutput هو اسم خلية الإخراج. يمكنك تعديلها حسب احتياجاتك.

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

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

7. ثم احفظ المصنف كـمصنف Excel يحتوي على ماكرولإعادة استخدام الكود مستقبلاً.

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

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

1. افتح ورقة العمل التي قمت بتعيين قائمة منسدلة للتحقق من صحة البيانات بها، ثم انقر علىKutools > قائمة منسدلة > تمكين قائمة منسدلة متقدمة. بعد ذلك، انقر مرة أخرى علىإضافة خانات الاختيار إلى قائمة منسدلةمن القائمةقائمة منسدلة. انظر لقطة الشاشة:

2. في مربع حوارإضافة خانات اختيار إلى القائمة المنسدلة، يُرجى التهيئة كما يلي:

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

  

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

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

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

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

أفضل أدوات الإنتاجية لمكتبتك

🤖	KUTOOLS AI مساعد: ثوّر تحليل البيانات استنادًا إلى:التنفيذ الذكي   |  إنشاء الكود|  إنشاء الصيغ المخصصة  |  تحليل البيانات وإنشاء المخططات البيانية|  استدعاء الوظائف المحسنة…
	الميزات الشائعة:البحث، التمييز أو وضع علامة على المكررات   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |  التقريب بدون استخدام الصيغة...
	بحث متقدم:VLookup متعدد المعايير  |  VLookup متعدد القيم  |   VLookup عبر أوراق متعددة   |   مطابقة غامضة....
	قائمة منسدلة متقدمة:إنشاء قائمة منسدلة بسرعة   |  قائمة منسدلة تابعة   |  قائمة منسدلة متعددة الاختيار....
	مدير الأعمدة:إضافة عدد محدد من الأعمدة|نقل الأعمدة|تبديل حالة ظهور الأعمدة المخفية|مقارنة النطاقات والأعمدة...
	ميزات مميزة:التركيز على الشبكة   |  عرض التصميم   |شريط الصيغ المحسن   | مدير الدفتر والورقة   |  مكتبة الموارد(نص تلقائي)|  أداة اختيار التاريخ   |  تجميع ورقات العمل  |  تشفير/فك تشفير الخلايا   | إرسال رسائل البريد الإلكتروني حسب القائمة   |  مرشح متقدم   |   تصفية خاصة(تصفية الخلايا التي تحتوي على خط عريض/مائل/يتوسطه خط...) ...
	أفضل 15 مجموعات الأدوات:12 أدواتالنصوص(إضافة نص،حذف الأحرف المحددة، ...)|   50+أنواعالمخططات البيانية(مخطط جانت، ...)|   40+ صيغعملية(حساب العمر بناءً على تاريخ الميلاد، ...)|   19 أدواتالإدراج(إدراج رمز QR،إدراج صورة من المسار، ...)|   12 أدواتالتحويل(تحويل إلى كلمات،تحويل العملة، ...)|   7 أدواتدمج وتقسيم(دمج متقدم للصفوف،تقسيم الخلايا، ...)|... وأكثر من ذلك

استخدم Kutools باللغة التي تفضلها – يدعم الإنجليزية والإسبانية والألمانية والفرنسية والصينية و40+ لغات أخرى!

عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...

مزيد من التفاصيل حول Kutools لـ Excel...تنزيل مجاني...

---

يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير

• تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
• افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
• يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!

مزيد من التفاصيل حول Office Tab...تنزيل مجاني...

---

جميع الإضافات من Kutools في برنامج تثبيت واحد!

Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.

• حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
• برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
• يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
• تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
• أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل

مزيد من التفاصيل حول Kutools for Office...تنزيل مجاني...