KutoolsforOffice — حل واحد، خمس أدوات قوية.تحقيق المزيد بجهد أقل.

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

المؤلفصنتاريخ التعديل

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

لقطة شاشة تُظهر اختيار عنصر واحد من قائمة منسدلة في خلية واحدة في Excelسهم لليمينلقطة شاشة تُظهر نتيجة تحديد عناصر متعددة من قائمة منسدلة في خلية واحدة في Excel

استخدام كود VBA لتحديد عناصر متعددة من قائمة منسدلة

استخدام Kutools لـ Excel لتحديد عناصر متعددة من قائمة منسدلة بسهولة

استخدام كود VBA لتحديد عناصر متعددة من قائمة منسدلة

إليك بعض أكواد VBA التي ستساعدك على إنجاز هذه المهمة بسلاسة.

تحديد عناصر مكررة من قائمة منسدلة في خلية

1. بعد إنشاء القائمة المنسدلة، انقر بزر الماوس الأيمن على لسان الورقة، ثم اختر «عرض الكود» من القائمة السياقية.
لقطة شاشة تُظهر القائمة السياقية مع تحديد خيار عرض الكود

2. بعد ذلك، في نافذة «مايكروسوفت Visual Basic for Applications»، انسخ والصق الكود أدناه في النص البرمجي الفارغ.

VBA: تحديد عناصر متعددة من قائمة منسدلة في خلية

Private Sub Worksheet_Change(ByVal Target As Range)
'UpdatebyExtendoffice20221111
    Dim xRgVal As Range
    Dim xStrNew As String
    On Error Resume Next
    Set xRgVal = Cells.SpecialCells(xlCellTypeAllValidation)
    If (Target.Count > 1) Or (xRgVal Is Nothing) Then Exit Sub
    If Intersect(Target, xRgVal) Is Nothing Then Exit Sub
    If Target.Value = "" Then Exit Sub
    Application.EnableEvents = False
    xStrNew = Target.Value
    Application.Undo
    If xStrNew = Target.Value Then
    Else
    xStrNew = xStrNew & " " & Target.Value
    Target.Value = xStrNew
    End If
    Application.EnableEvents = True
End Sub

3. احفظ الكود، ثم أغلِق هذه النافذة للعودة إلى القائمة المنسدلة. الآن يمكنك تحديد عناصر متعددة منها.

ملاحظة:

1. باستخدام VBA، يتم فصل العناصر بمسافة. يمكنك تعديل السطر «xStrNew = xStrNew & » « & Target.Value» لتغيير المُفَصِّل حسب رغبتك. على سبيل المثال، سيؤدي استخدام «xStrNew = xStrNew & »،« & Target.Value» إلى فصل العناصر بفواصل.

2. يعمل كود VBA هذا مع جميع القوائم المنسدلة الموجودة في الورقة.

تحديد عناصر متعددة من قائمة منسدلة في خلية دون تكرار

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

VBA: تحديد عناصر متعددة من قائمة منسدلة في خلية دون تكرار

Private Sub Worksheet_Change(ByVal Target As Range)
'UpdatebyExtendoffice20221111
    Dim I As Integer
    Dim xRgVal As Range
    Dim xStrNew As String
    Dim xStrOld As String
    Dim xFlag As Boolean
    Dim xArr
    On Error Resume Next
    Set xRgVal = Cells.SpecialCells(xlCellTypeAllValidation)
    If (Target.Count > 1) Or (xRgVal Is Nothing) Then Exit Sub
    If Intersect(Target, xRgVal) Is Nothing Then Exit Sub
    If Target.Value = "" Then Exit Sub
    Application.EnableEvents = False
    xFlag = True
    xStrNew = " " & Target.Value & " "
    Application.Undo
    xStrOld = Target.Value
    If InStr(1, xStrOld, xStrNew) = 0 Then
        xStrNew = xStrNew & xStrOld & " "
    Else
        xStrNew = xStrOld
    End If
    Target.Value = xStrNew
    Application.EnableEvents = True
End Sub

لا يدعم أيٌّ من أكواد VBA المذكورة أعلاه حذف أجزاء محددة من محتويات الخلية، بل يقتصر على مسح كل محتوياتها بالكامل.

استخدام Kutools لـ Excel لتحديد عناصر متعددة من قائمة منسدلة بسهولة

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

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

1. انقر على «Kutools» > «قائمة منسدلة» > «تمكين قائمة منسدلة متقدمة»، ثم اختر «جعل قائمة منسدلة مع تحديدات متعددة» من القائمة المنسدلة مرة أخرى. راجع لقطات الشاشة:

انقر لتمكين قائمة منسدلة متقدمةسهم لليمينانقر على ميزة القائمة المنسدلة متعددة الاختيار

2. في مربع الحوار «إنشاء قائمة منسدلة مع تحديدات متعددة»، يُرجى إجراء التهيئة التالية:

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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