نصيحة: اللغات الأخرى مترجمة من قبل Google. يمكنك زيارة English نسخة من هذا الرابط.
تسجيل الدخول
x
or
x
x
التسجيل
x

or

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

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

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

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

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


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

معلومات سرية: إذا كانت الصيغة صعبة للغاية للتذكر والتعامل معها ، فإن حدد خلايا مكررة وفريدة فائدة كوتولس ل إكسيل سيكون اختيارًا جيدًا لك لاستخراج جميع القيم الفريدة من العمود بسرعة.

يرجى تحديد العمود الذي يحتوي على قيم فريدة ستستخرج منها. ثم قم بتمكين الأداة عن طريق النقر Kutools > اختار > حدد خلايا مكررة وفريدة. في حدد خلايا مكررة وفريدة مربع الحوار، حدد جميع فريدة من نوعها (بما في ذلك التكرارات شنومكست) الخيار وانقر فوق OK زر. ثم يتم تحديد جميع القيم الفريدة في العمود. يرجى نسخها ولصقها في مكان جديد. انظر لقطة للشاشة:

كوتولس ل إكسيل: مع أكثر من شنومكس مفيد اكسل الإضافية، مجانا في محاولة مع عدم وجود قيود في أيام شنومكس. تحميل وتجريبية مجانية الآن!

2. قم بإدراج مربعي قائمة بشكل منفصل بالنقر فوق المطور > إدراج > قائمة مربع (تحكم أكتيفكس). انظر لقطة الشاشة:

3. انقر بزر الماوس الأيمن على مربع القائمة الأصل وحدد العقارات من قائمة السياق. في ال العقارات مربع الحوار، تغيير (اسم) الحقل إلى شرب أو اسم آخر كما تحتاج ، أدخل نطاق الخلية يحتوي على القيم الفريدة المستخرجة في المدى قائمة التعبئة الحقل وإغلاق مربع الحوار.

4. كرر الخطوة 3 لتغيير مربع القائمة الثاني (اسم) المجال الى البند في العقارات صندوق المحادثة.

5. انقر بزر الماوس الأيمن فوق علامة تبويب الورقة وحدد عرض الرمز من قائمة النقر بزر الماوس الأيمن. ثم نسخ أدناه رمز VBA في إطار التعليمات البرمجية. انظر لقطة للشاشة:

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

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

الملاحظات: في التعليمات البرمجية الشراب والعنصر هي أسماء مربعي القوائم ، تغييرها إلى الأسماء الخاصة بك.

6. اضغط على قديم + Q مفاتيح لإغلاق ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

7. أوقف وضع التصميم بالنقر المطور > وضع التصميم.

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


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


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

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

علامة تبويب Office توفر واجهة مبوبة لـ Office ، واجعل عملك أسهل بكثير

  • تمكين تحرير علامات التبويب والقراءة في Word و Excel و PowerPointوالناشر والوصول ، Visio ومشروع.
  • افتح مستندات متعددة وقم بإنشائها في علامات تبويب جديدة لنفس النافذة ، وليس في نوافذ جديدة.
  • يزيد إنتاجيتك بنسبة 50٪ ، ويقلل مئات نقرات الماوس لك كل يوم!
أسفل مكتبه
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.