كيفية تحديد عناصر متعددة من القائمة المنسدلة في خلية في Excel؟
يتم استخدام القائمة المنسدلة بشكل متكرر في عمل Excel اليومي. بشكل افتراضي ، يمكن تحديد عنصر واحد فقط في القائمة المنسدلة. ولكن في بعض الأحيان ، قد تحتاج إلى تحديد عناصر متعددة من القائمة المنسدلة في خلية واحدة كما هو موضح أدناه. كيف يمكنك التعامل معها في Excel؟
 |
 |
 |
حدد عناصر متعددة من القائمة المنسدلة في خلية باستخدام VBA
حدد عناصر متعددة من القائمة المنسدلة في خلية بسهولة وسرعة
حدد عناصر متعددة من القائمة المنسدلة في خلية باستخدام 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 Sub3. احفظ الرمز وأغلق النافذة للعودة إلى القائمة المنسدلة. الآن يمكنك تحديد عناصر متعددة من القائمة المنسدلة.
ملاحظة:
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 ، لا توجد طرق أخرى للسماح بالعناصر المتعددة المحددة من القائمة المنسدلة في الخلية. ومع ذلك ، فإن قائمة منسدلة متعددة التحديد سمة من سمات كوتولس ل إكسيل يمكنه التعامل مع هذه المهمة بسرعة وسهولة بنقرات.
الخطوة 1: حدد Kutools> القائمة المنسدلة> قائمة منسدلة متعددة التحديد
الخطوة 2: في مربع حوار القائمة المنسدلة متعدد التحديد ، حدد الإعدادات
- مجموعة النطاق
- حدد الفاصل للعناصر المحددة في خلية ؛
- حدد اتجاه النص ；
- انقر فوق موافق.
النتيجة:
يمكنك بسهولة إنشاء قائمة منسدلة ديناميكية تعتمد على مستويين أو متعدد المستويات في Excel
|
| في Excel ، يعد إنشاء قائمة منسدلة ذات مستويين أو متعدد المستويات أمرًا معقدًا. هنا القائمة المنسدلة الديناميكية فائدة كوتولس ل إكسيل يمكن أن تفعل لك معروفا. ما عليك فعله فقط هو طلب البيانات كما هو موضح في المثال ، ثم تحديد نطاق البيانات ونطاق الإخراج ، ثم ترك الأمر للأداة. انقر للحصول على نسخة تجريبية مجانية لمدة 30 يومًا! |
 |
| Kutools for Excel: مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود في أيام 30 |
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
