Note: The other languages of the website are Google-translated. Back to English

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

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

doc حدد عناصر متعددة من القائمة المنسدلة 1 دوك السهم الأيمن doc حدد عناصر متعددة من القائمة المنسدلة 2

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

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


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

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

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

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

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 ، فيمكنك ذلك تثبيت مجاني أداة يدوية - كوتولس ل إكسيل، والتي تحتوي على مجموعة من الأدوات المساعدة حول القائمة المنسدلة ، وهناك خيار قائمة منسدلة متعددة التحديد يمكن أن تساعدك في تحديد عناصر متعددة بسهولة من القائمة المنسدلة في خلية.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك عن طريق
    و ان آكثر من 50%
    ، ويقلل من مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (22)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
بعد الإضافة ، لا تعمل البيانات من القائمة المنسدلة والحذف.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لقد وجدت نفس المشكلة. أعتقد أنني وجدت طريقة للتغلب عليها. في الجزء السفلي من الكود سترى الرمز "xStrNew = xStrOld". بدلاً من ذلك ، اجعلها تقول xStrNew = ""

إنه يعمل من أجلي.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أي فرصة لا يزال لديك هذا الرمز؟ أحاول أن أفعل ما قلته لكن النص لا يزال مكررًا.
شكر
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أنا آسف لكني لا أفعل. ومع ذلك ، نظرت للتو في الكود أعلاه ويبدو أن المؤلف قام بتحرير الكود باقتراحي.

انشر مشكلتك في الموضوع الرئيسي لهذه المقالة.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
في الكود الأول ، أضف السطر التالي بين السطر 6 و 7 (10-11 في الكود الثاني): If Target.Value = "" ثم اخرج من Sub
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لقد استخدمت هذا الخيار "حدد عناصر متعددة من القائمة المنسدلة إلى خلية بدون تكرار"
هذا ما حدث
1. تحديدات متعددة تحدث دون مشاكل.
2. المشكلة هي عندما أحاول تعديل وإزالة أحد الخيارات. لا توجد طريقة بالنسبة لي لإزالة خيار. يستمر في التكاثر.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيف يمكنك تطبيق هذه الوظيفة مع جعلها بحيث لا توجد قيم زائدة عن الحاجة؟ سيكون موضع تقدير أي مساعدة!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
إذا قمت بإنشاء ورقة مع قائمة منسدلة باستخدام مربعات الاختيار ، فهل هناك طريقة لمشاركة هذا المصنف مع ميزة مربعات الاختيار هذه؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أجد أيضًا أنه بعد تحديد عناصر متعددة باستخدام رمز VBA المحدث ، ما زلت لا أستطيع مسح الخلية ، فهي تستمر في الضرب.
هل لدى أي شخص حل لهذا حتى الآن؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، Rusty ، الكود الذي قمت بتحديثه لجعله أكثر استقرارًا. ولكن نظرًا لأن الخلية قيد التحقق من صحة البيانات ، فإن الفراغ خارج نطاق التحقق من صحة البيانات ، فلا يمكن للكود حل هذه المشكلة.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
تعمل الشفرة ولكنها تنتقل عبر جميع الخلايا وتتضاعف في الخلايا ولن تسمح بالحذف ، هل يمكنك المساعدة؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Quando quero deletar alguma opção ou todas dá erro. كومو بوسو محلل؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أهلاً! Como puedo usar este codigo para todo un workheet y no solo para una pestana؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، Vero ، Kutools for Excel ميزة القائمة المنسدلة متعددة التحديدات تدعم اختيار عناصر متعددة من القائمة المنسدلة في ورقة العمل بأكملها أو عبر المصنف ، ما عليك سوى تحديد النطاق المحدد في مربع حوار إعدادات القائمة المنسدلة متعدد التحديد.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيف يمكنني أن أفعل ذلك لصيغة القبضة التي قدمتها :) شكرًا مقدمًا!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
صباح الخير،
selon le premier exemple tout fonctionne très bien jusqu'à ce que je verrouille la feuille.
quand la feuille est verrouillée، je n'ai plus le choix multiple!
كيف أفعل ؟
شكرا مسبقا
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا ، آسف لذلك. سنقوم بترقية الإصدار التالي من الميزة لتجنب هذه المشكلة. شكرا لك على feekback الخاص بك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا جزيلا
Mais à quand la nouvelle version؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، الإصدار الجديد قيد التخطيط ، نظرًا لأن الإصدار التالي سوف يقوم بترقية ميزات متعددة ، فقد يستغرق الأمر بعض الوقت.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، لقد قمنا بتحديث هذا الإصدار من أجلك ، ولكن هذه نسخة تجريبية ، يرجى تنزيلها من هذا: https://download.extendoffice.com/downloads/Kutools-for-Excel/beta/26.10/KutoolsforExcelSetup.Inno.exe
إذا كان هناك أي مشاكل ، نرحب بتعليقاتك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
وشكرا لكم،
Je vais la télécharger et essayer.
بون journée
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يعمل الرمز ولكن لن يسمح لي بحذف شخص ما ، يرجى نشر الرمز الجديد.
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL