كيفية إضافة علامات التجزئة والرموز المتقاطعة إلى القائمة المنسدلة في Excel؟
عادةً ، بعد إدخال علامات التجزئة والرموز المتقاطعة في الخلايا ذات وظيفة الرمز ثم إنشاء قوائم منسدلة معهم كمصدر بيانات ، سيتم عرض النتائج على شكل ü أو û في الخلايا المنسدلة. كيفية عرض ✓ و الرموز في الخلايا بعد اختيار العناصر من القائمة المنسدلة؟ ستساعد طريقة VBA أدناه في إنشاء قائمة منسدلة وقائمة منسدلة متقاطعة في Excel.
أضف علامة التجزئة والرموز المتقاطعة إلى القائمة المنسدلة مع رمز VBA
أضف علامة التجزئة والرموز المتقاطعة إلى القائمة المنسدلة مع رمز VBA
باستخدام رمز VBA أدناه ، يمكنك إدراج قائمة منسدلة وقوائم منسدلة متقاطعة في خلايا محددة في Excel. الرجاء القيام بما يلي.
1. في ورقة العمل ، ستقوم بإنشاء قوائم منسدلة للرموز المتقاطعة والعلامة ، انقر بزر الماوس الأيمن فوق علامة تبويب الورقة وحدد عرض الرمز من قائمة السياق.
2. ثم ميكروسوفت فيسوال باسيك للتطبيقات تفتح النافذة ، يرجى نسخ كود فبا أدناه في نافذة الكود.
كود فبا 1: أضف علامات التجزئة والرموز المتقاطعة إلى القائمة المنسدلة
Private Sub Worksheet_Change(ByVal Target As Range)
'Update by Extendoffice 20180703
If Intersect(Target, Range("B1:B10")) Is Nothing Then Exit Sub
If Target.Value = "Tick" Then
Target.Value = "P"
ElseIf Target.Value = "Cross" Then
Target.Value = "S"
End If
End Sub
3. استمر في النقر إدراج > وحدة، ثم انسخ الكود التالي 2 في نافذة الوحدة النمطية.
كود فبا 2: أضف علامات التجزئة والرموز المتقاطعة إلى القائمة المنسدلة
Sub usingSymbols()
'Update by Extendoffice 20180703
Dim xRg As Range
Set xRg = Range("B1:B10")
xRg.Font.Name = "Wingdings 2"
xRg.Validation.Add xlValidateList, , , "Tick,Cross"
End Sub
ملاحظات: في الكود أعلاه ، B1: B10 هو نطاق الخلايا التي ستقوم بإنشاء قائمة منسدلة بها وقائمة منسدلة. الرجاء تغيير النطاق كما تريد.
4. اضغط على F5 مفتاح لتشغيل الكود.
الآن يتم إدراج القوائم المنسدلة للقوائم المنسدلة والرموز المتقاطعة في النطاق B1: B10. حدد علامة اختيار من القائمة المنسدلة ستدرج ✓ في الخلية ، وحدد علامة الصليب سيعرض رمز. انظر لقطة الشاشة:
مقالات ذات صلة:
- كيف يتم ملء الخلايا الأخرى تلقائيًا عند تحديد القيم في القائمة المنسدلة في Excel؟
- كيفية الإكمال التلقائي عند الكتابة في قائمة Excel المنسدلة؟
- كيفية إنشاء تقويم قائمة منسدلة في Excel؟
- كيفية إنشاء قائمة منسدلة مع تحديدات أو قيم متعددة في Excel؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!