Note: The other languages of the website are Google-translated. Back to English

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

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

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

علامة تبويب Office تمكن من التحرير والتصفح المبوب في المكتب ، واجعل عملك أسهل بكثير ...
Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪
  • إعادة استخدام أي شيء: أضف الصيغ والمخططات الأكثر استخدامًا أو تعقيدًا وأي شيء آخر إلى مفضلاتك ، وأعد استخدامها بسرعة في المستقبل.
  • أكثر من 20 ميزة نصية: استخراج رقم من سلسلة نصية ؛ استخراج أو إزالة جزء من النصوص ؛ تحويل الأرقام والعملات إلى الكلمات الإنجليزية.
  • أدوات الدمج: مصنفات وأوراق متعددة في واحد ؛ دمج خلايا / صفوف / أعمدة متعددة دون فقد البيانات ؛ دمج الصفوف المكررة والمجموع.
  • أدوات الانقسام: تقسيم البيانات إلى أوراق متعددة بناءً على القيمة ؛ مصنف واحد لملفات Excel أو PDF أو CSV متعددة ؛ عمود واحد إلى أعمدة متعددة.
  • لصق التخطي صفوف مخفية / مصفاة العد والمجموع حسب لون الخلفية؛ إرسال رسائل بريد إلكتروني مخصصة إلى مستلمين متعددين بشكل مجمع.
  • مرشح سوبر: إنشاء مخططات تصفية متقدمة وتطبيقها على أي أوراق ؛ تصنيف حسب: حسب الأسبوع واليوم والتكرار والمزيد ؛ تصفية بواسطة bold، formulas، comment ...
  • أكثر من 300 ميزة قوية ؛ يعمل مع Office 2007-2021 و 365 ؛ يدعم جميع اللغات ؛ سهولة النشر في مؤسستك أو مؤسستك.

قم بإنشاء مربعات قائمة متتالية ديناميكية برمز 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 for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

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

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

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

ما الذي يشير إليه "أنا" في الكود وكيف سيتغير الرمز إذا كان لدي مربع قائمة MultiSelect؟

التحيات
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL