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

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

قد تعرف كيفية إنشاء قائمة منسدلة للتحقق من الصحة في 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. قم بإيقاف تشغيل "وضع التصميم" بالنقر فوق المطور > وضع التصميم.

من الآن فصاعدًا ، عند اختيار أي نوع من المشروبات مثل القهوة في مربع القائمة الأصلي ، سيتم عرض جميع عناصر القهوة في المربع الثاني. حدد الشاي أو النبيذ سيعرض فقط عناصر الشاي أو النبيذ في مربع القائمة الثاني. انظر لقطة الشاشة:


مقالات ذات صلة:

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

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

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

الوصف


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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi

What does "Me" refer to in the code and how will the code change if I have a MultiSelect list box?

Regards
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations