كيفية إنشاء مربعات قائمة متتالية ديناميكية في إكسيل؟

قد تعرف كيفية إنشاء قائمة منسدلة للتحقق من الصحة في Excel. ومع ذلك ، كيف يمكن إنشاء مربعات قائمة ديناميكية متتالية في Excel؟ تقدم هذه المقالة طريقة VBA لإنزالها.

قم بإنشاء مربعات قائمة متتالية ديناميكية برمز VBA

قم بإنشاء مربعات قائمة متتالية ديناميكية برمز VBA

رائعة حقا! استخدام علامات تبويب فعالة في Excel مثل Chrome و Firefox و Safari!

وفر 50٪ من وقتك ، وقلل آلاف النقرات بالماوس كل يوم!

---

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

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؟

---

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

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

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

اقرأ أكثر... تحميل مجاني ... شراء... 

---

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

• تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
• فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
• يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!

اقرأ أكثر... تحميل مجاني ... شراء...