كيفية إنشاء مربعات قائمة متتالية ديناميكية في إكسيل؟
قد تعرف كيفية إنشاء قائمة منسدلة للتحقق من الصحة في Excel. ومع ذلك ، كيف يمكن إنشاء مربعات قائمة ديناميكية متتالية في Excel؟ تقدم هذه المقالة طريقة VBA لإنزالها.
قم بإنشاء مربعات قائمة متتالية ديناميكية برمز VBA
قم بإنشاء مربعات قائمة متتالية ديناميكية برمز VBA
كما هو موضح أدناه ، تحتاج إلى إنشاء مربع قائمة أصل يحتوي على القيم الفريدة لعمود Drink ، وعرض جميع القيم المطابقة في مربع القائمة الثاني استنادًا إلى التحديد في مربع القائمة الأصل. يساعدك رمز VBA التالي على تحقيق ذلك. الرجاء القيام بما يلي.
1. أولاً ، تحتاج إلى استخراج جميع القيم الفريدة من عمود الشراب. حدد خلية فارغة ، أدخل صيغة الصفيف =IFERROR(INDEX($A$2:$A$11, MATCH(0,COUNTIF($J$1:J1, $A$2:$A$11), 0)),"") في شريط الفورمولا، ثم اضغط على CTRL + تغير + أدخل مفتاح. ثم اسحب ملف مقبض التعبئة للحصول على جميع القيم الفريدة. انظر لقطة الشاشة:
ملاحظات: في الصيغة ، $A$2:$A$11 هو النطاق الذي ستستخرج قيمًا فريدة منه. J1 هي الخلية الموجودة أعلاه حيث توجد الصيغة الخاصة بك.
معلومه- سرية: إذا كان من الصعب جدًا تذكر الصيغة والتعامل معها ، فإن ملف حدد الخلايا الفريدة والمكررة فائدة كوتولس ل إكسيل سيكون اختيارًا جيدًا لك لاستخراج جميع القيم الفريدة من عمود بسرعة.
الرجاء تحديد العمود الذي يحتوي على قيم فريدة ستستخرج منها. ثم قم بتمكين الأداة المساعدة بالنقر فوق كوتولس > أختار > حدد الخلايا الفريدة والمكررة. في حدد الخلايا الفريدة والمكررة في مربع الحوار ، حدد ملف كل فريد (بما في ذلك التكرارات الأولى) الخيار وانقر فوق OK زر. ثم يتم تحديد جميع القيم الفريدة في العمود. يرجى نسخها ولصقها في مكان جديد. انظر لقطة الشاشة:
كوتولس ل إكسيل: مع أكثر من 200 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود خلال 60 يومًا. تنزيل وتجربة مجانية الآن!
2. أدخل مربعي قائمة بشكل منفصل عن طريق النقر المطور > إدراج > مربع القائمة (عنصر تحكم ActiveX). انظر لقطة الشاشة:
3. انقر بزر الماوس الأيمن فوق مربع القائمة الأصل وحدد عقارات من قائمة السياق. في ال عقارات في مربع الحوار ، قم بتغيير (اسم) الحقل إلى الكحول و الخمر أو أي اسم آخر تريده ، أدخل نطاق الخلايا الذي يحتوي على القيم الفريدة المستخرجة في ملف ListFillRange الحقل وإغلاق الحوار.
4. كرر الخطوة 3 لتغيير مربعات القائمة الثانية (اسم) الحقل إلى عنصر في عقارات صندوق المحادثة.
5. انقر بزر الماوس الأيمن فوق علامة تبويب الورقة وحدد عرض الرمز من قائمة النقر بزر الماوس الأيمن. ثم انسخ رمز VBA أدناه في نافذة التعليمات البرمجية. انظر لقطة الشاشة:
كود فبا: أنشئ مربعات قائمة متتالية ديناميكية في إكسيل
Dim xPreStr As String
Private Sub Drink_Click()
'Update by Extendoffice 2018/06/04
Dim I, xRows As Long
Dim xRg As Range
Dim xRegStr As String
Application.ScreenUpdating = False
xRegStr = Me.Drink.Text
Set xRg = Range("A2:A11")
xRows = xRg.Rows.Count
If xRegStr <> xPreStr Then
Me.Item.Clear
'Me.OtherListBoxName.Clear
Set xRg = xRg(1)
For I = 1 To xRows
If xRg.Offset(I - 1).Value = xRegStr Then
Me.Item.AddItem xRg.Offset(I - 1, 1).Value
'Me.OtherListBoxName.AddItem xRg.Offset(I - 1, 2).Value
End If
Next
xPreStr = xRegStr
End If
Application.ScreenUpdating = True
End Sub
ملاحظة: في الكود Drink و Item هما اسمان لمربعي قائمة ، قم بتغييرهما إلى الأسماء الخاصة بك.
6. اضغط على قديم + Q مفاتيح لإغلاق ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
7. قم بإيقاف تشغيل "وضع التصميم" بالنقر فوق المطور > وضع التصميم.
من الآن فصاعدًا ، عند اختيار أي نوع من المشروبات مثل القهوة في مربع القائمة الأصلي ، سيتم عرض جميع عناصر القهوة في المربع الثاني. حدد الشاي أو النبيذ سيعرض فقط عناصر الشاي أو النبيذ في مربع القائمة الثاني. انظر لقطة الشاشة:
مقالات ذات صلة:
- كيفية مسح خلية القائمة المنسدلة التابعة بعد تحديد التغيير في إكسيل؟
- كيفية إنشاء قوائم منسدلة متتالية تابعة في Excel؟
- كيف يتم ملء الخلايا الأخرى تلقائيًا عند تحديد القيم في القائمة المنسدلة في Excel؟
- كيفية إنشاء تقويم قائمة منسدلة في Excel؟
- Hكيفية حفظ أو الاحتفاظ بتحديد مربعات قائمة ActiveX في Excel؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!