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

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

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

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

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

إليك بعض VBA التي يمكن أن تقدم لك معروفًا في حل هذه الوظيفة.

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

1. بعد إنشاء القائمة المنسدلة ، انقر بزر الماوس الأيمن فوق علامة تبويب الورقة للتحديد عرض الرمز من قائمة السياق.

2. ثم في ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، انسخ والصق الرمز أدناه في البرنامج النصي الفارغ.

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

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 & "" & قيمة الهدف للآخرين لتغيير المحدد حسب حاجتك. فمثلا، xStrNew = xStrNew & "،" & قيمة الهدف سيفصل العناصر بفاصلات.

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 for Excel

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

بعد إنشاء القائمة المنسدلة ، يرجى تحديد خلايا القائمة المنسدلة والنقر فوقها كوتولس > قائمة منسدلة > قائمة منسدلة متعددة التحديد لتمكين هذه الأداة.

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

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

انقر كوتولس > قائمة منسدلة > السهم بجانب قائمة منسدلة متعددة التحديد > الإعدادات.

ثم في إعدادات قائمة منسدلة متعددة التحديد الحوار ، يمكنك

1) حدد نطاق التطبيق حسب حاجتك ؛

2) تحديد اتجاه مكان العناصر ؛

3) تحديد الفاصل بين العناصر ؛

4) حدد ما إذا لم تقم بإضافة التكرارات وإزالة العناصر المكررة.

انقر Ok ثم انقر كوتولس > قائمة منسدلة > قائمة منسدلة متعددة التحديد لتأخذ مفعولها.

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

يمكنك بسهولة إنشاء قائمة منسدلة ديناميكية تعتمد على مستويين أو متعدد المستويات في Excel

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

كوتولس ل إكسيل: مع أكثر من 300 وظائف Excel الإضافية المفيدة ، يمكنك تجربتها مجانًا دون قيود 30 يوما.

---

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

Kutools for Excel يحل معظم مشاكلك ويزيد من إنتاجيتك عن طريق

و ان آكثر من 80%

• إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
• سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
• دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
• حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
• نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
• استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
• سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
• اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
• أكثر من
  300
  ميزات قوية. يدعم Office / Excel
  2007-2019 و 365
  . يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة
  30
  - يوم تجريبي مجاني. ضمان استرداد الأموال لمدة 60 يومًا.

اقرأ أكثر... تحميل مجاني ... شراء... 

---

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

• تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
• فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
• يزيد من إنتاجيتك عن طريق
  و ان آكثر من 50%
  ، ويقلل من مئات النقرات بالماوس كل يوم!

اقرأ أكثر... تحميل مجاني ... شراء...