انتقل إلى المحتوى الرئيسي

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

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

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

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

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


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


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

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

معلومه- سرية: قبل تطبيق هذه الأداة، يرجى تثبيت Kutools for Excel أولاً. انتقل إلى التنزيل المجاني الآن.
الخطوة 1: حدد Kutools> القائمة المنسدلة> قائمة منسدلة متعددة التحديد
الخطوة 2: في مربع حوار القائمة المنسدلة متعدد التحديد ، حدد الإعدادات
  1. مجموعة النطاق
  2. حدد الفاصل للعناصر المحددة في خلية ؛
  3. حدد اتجاه النص ;
  4. انقر فوق موافق.
    doc حدد عدة عناصر من القائمة المنسدلة kte 1
النتيجة:

حدد عناصر متعددة من kutools القائمة المنسدلة

ملاحظات: لاستخدام ميزة القائمة المنسدلة متعددة التحديد، يجب عليك تثبيت Kutools for Excel أولا، من فضلك انقر للتنزيل واحصل على نسخة تجريبية مجانية مدتها 30 يومًا الآن.

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

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

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

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

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

علامة تبويب kte 201905


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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (26)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Como posso utilizar a função com a planilha bloqueada?
This comment was minimized by the moderator on the site
Hi, Macros, try below code, it supports to select multi items in drop down list in protected sheet.
Private Sub Worksheet_Change(ByVal Target As Range)
'UpdatebyExtendoffice20221111
    Dim xRgVal As Range
    Dim xStrNew As String
    On Error Resume Next  
    xType = 0
    xType = Target.Validation.Type
    If xType <> 3 Then Exit Sub
    If (Target.Count > 1) 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

And also Kutools for Excel 26.1 and later versions supports this job in protected sheet.
This comment was minimized by the moderator on the site
¿Cómo puedo hacer para que el orden en que se coloque el texto, sea tan cuál como yo quiera?

Ejemplo:
Mi texto para la lista es:
TRAMITAR ESTE ASUNTO
COORDINAR
ANALIZAR Y RECOMENDAR

sí selecciono:
TRAMITAR ESTE ASUNTO
ANALIZAR Y RECOMENDAR

me aparece
ANALIZAR Y RECOMENDAR, TRAMITAR ESTE ASUNTO

o sea, los de abajo me aparecen primero, pero quiero que sea en el orden en que voy seleccionando...
TRAMITAR ESTE ASUNTO, ANALIZAR Y RECOMENDAR.....
This comment was minimized by the moderator on the site
Hi, Gorgelys, Kutools's multi-select drop down list can help you. The items you selected will be in the order like you want.
This comment was minimized by the moderator on the site
the code works but won't let me delete can someone please post the new code.
This comment was minimized by the moderator on the site
bonjour,
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 !
comment faire ?
merci par avance
This comment was minimized by the moderator on the site
Hi, sorry for that. We will upgrade our feature next version to avoid this problem. Thank you for your feekback.
This comment was minimized by the moderator on the site
Merci bcp
Mais à quand la nouvelle version ?
This comment was minimized by the moderator on the site
Hi, we have updated this version for you, but this is a beta version, please download it from this: https://download.extendoffice.com/downloads/Kutools-for-Excel/beta/26.10/KutoolsforExcelSetup.Inno.exe
If there are any problems, welcome for your feedback.
This comment was minimized by the moderator on the site
Merci,
Je vais la télécharger et essayer.
Bonne journée
This comment was minimized by the moderator on the site
Hi, the new version is in planning, since next version will upgrade multiple features, it may take somewhat time.
This comment was minimized by the moderator on the site
Hi! Como puedo usar este codigo para todo un worksheet y no solo para una pestana?
This comment was minimized by the moderator on the site
Hi, Vero, Kutools for Excel's Multi-select Drop-down List feature suports selecting multiple items from drop down list in the whole worksheet or across workbook, just specify the Specified Scope in the Multi-select Drop-down List Settings dialog.
This comment was minimized by the moderator on the site
How can I do that for the fist formula you provided :) Thanks in advanced!
This comment was minimized by the moderator on the site
Quando quero deletar alguma opção ou todas dá erro. Como posso resolver?
This comment was minimized by the moderator on the site
I am also finding that after selecting multiple items using the updated VBA code, I still cannot clear the cell, it just keeps multiplying.
Does anyone have a solution for this yet?
This comment was minimized by the moderator on the site
Hi, Rusty, the code I have updated for making it more stable. But because the cell is in data validation, blank is out of data validation, the code cannot solve this problem.
This comment was minimized by the moderator on the site
the code works but carries over across all cells and multiplies in the cells and wont allow delete can you assist?
This comment was minimized by the moderator on the site
If I create a sheet with dropdown list using checkboxes, is there a way to share this workbook with this checkboxes feature?
This comment was minimized by the moderator on the site
How would you apply this functionality but making it so that there aren't redundant values? Any help would be appreciated!
This comment was minimized by the moderator on the site
I used this "Select multiple items from drop down list to a cell without repeat"
this is what happened
1. Multiple selections happen without problems.
2. The issue is when i try to edit and remove an option. There is no way for me to remove an option. it keeps multiplying.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations