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

كما هو موضح في لقطة الشاشة، قد ترغب في تحديد خيارات القائمة المنسدلة الثانية بناءً على خيارات القائمة المنسدلة الأولى. توضح لك هذه المقالة كيفية إنشاء قوائم منسدلة مستقلة في مستند Word.

إنشاء قوائم منسدلة تابعة في Word باستخدام كود VBA

إنشاء قوائم منسدلة تابعة في Word باستخدام كود VBA

تساعدك طريقة VBA التالية على إنشاء قائمة منسدلة مستقلة، حيث تتغير القائمة الثانية بناءً على ما تم تحديده في القائمة الأولى. اتبع الخطوات التالية:

1. تأكد من أن علامة التبويب "المطور" مرئية في شريط Word الخاص بك (إذا لم تكن كذلك، راجع البرنامج التعليمي كيفية إظهار علامة التبويب المطور في ورد؟). ثم قم بإدراج قائمتين منسدلتين من خلال النقر فوق "المطور" > "النماذج القديمة" > "حقل النموذج المنسدل" مرتين.

   

2. انقر بزر الماوس الأيمن على القائمة المنسدلة الأولى (ستكون هذه هي القائمة الرئيسية) وانقر فوق "خصائص".

   

3. في مربع الحوار "خيارات حقل النموذج المنسدل":
   1. أدخل الفئات (على سبيل المثال، "فاكهة"، "خضروات"، "لحوم") في مربع "العناصر المنسدلة" واحدة تلو الأخرى، وانقر فوق "إضافة" بعد كل عنصر.
   2. اكتب "ddfood"في مربع "الإشارة المرجعية".
   3. انقر فوق "موافق".

      

4. انقر بزر الماوس الأيمن على القائمة المنسدلة الثانية، وحدد "خصائص"، واكتب "ddCategory" في مربع "الإشارة المرجعية"، ثم انقر فوق "موافق".

   

5. صحافة Alt + F11 لفتح نافذة Microsoft Visual Basic for Applications.
6. في نافذة VBA، انقر فوق "إدراج" > "وحدة نمطية"، ثم قم بلصق الكود التالي:

   Sub Populateddfood()
   'Update by Extendoffice 2018/10/25
       Dim xDirection As FormField
       Dim xState As FormField
       On Error Resume Next
       Set xDirection = ActiveDocument.FormFields("ddfood")
       Set xState = ActiveDocument.FormFields("ddCategory")
       If ((xDirection Is Nothing) Or (xState Is Nothing)) Then Exit Sub
       With xState.DropDown.ListEntries
           .Clear
           Select Case xDirection.Result
               Case "Fruit"
                   .Add "Apple"
                   .Add "Banana"
                   .Add "Peach"
                   .Add "Lychee"
                   .Add "Watermelon"
               Case "Vegetable"
                   .Add "Cabbage"
                   .Add "Onion"
               Case "Meat"
                   .Add "Pork"
                   .Add "Beef"
                   .Add "Mutton"
           End Select
       End With
   End Sub

   ملاحظة:

   • في الكود، قم بتغيير العناصر الموجودة تحت كل "Case"بيان يناسب المحتوى الخاص بك.
   • "ddfood"و"ddCategory"يجب أن يتطابق" مع أسماء الإشارات المرجعية التي أدخلتها في مربعات الحوار "خيارات حقل النموذج المنسدل".
7. احفظ الكود ثم ارجع إلى مستندك.
8. انقر بزر الماوس الأيمن على القائمة المنسدلة الأولى مرة أخرى، ثم اختر "خصائص". في مربع حوار "خيارات حقل النموذج المنسدل" الذي يظهر، من القائمة المنسدلة "خروج"، اختر اسم الماكرو "Populateddfood"، ثم انقر فوق "موافق".

   

9. انقر فوق "المطور" > "تقييد التحرير".

   

10. في جزء "تقييد التحرير":
    1. قم بتحديد "السماح بهذا النوع من التحرير فقط في المستند".
    2. حدد "ملء النماذج" من القائمة المنسدلة.
    3. انقر فوق "نعم، ابدأ في فرض الحماية".
    4. في مربع الحوار "بدء فرض الحماية"، قم بتعيين كلمة مرور ثم انقر فوق "موافق".

       

الآن، أصبحت القائمة المنسدلة التابعة نشطة. عند اختيار "فاكهة" من القائمة الأولى، ستظهر خيارات الفاكهة فقط في القائمة الثانية.

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

كوتولس للكلمة - ارفع تجربة كلمتك مع أكثر 100 ميزات رائعة!

🤖 ميزات Kutools AI: مساعد منظمة العفو الدولية / مساعد في الوقت الحقيقي / سوبر بولش (تنسيق الحفاظ) / الترجمة الفائقة (الحفاظ على التنسيق) / تنقيح الذكاء الاصطناعي / التدقيق اللغوي بالذكاء الاصطناعي

📘 إتقان الوثيقة: تقسيم الصفحات / دمج المستندات / تصدير التحديد بتنسيقات مختلفة (PDF/TXT/DOC/HTML...) / دفعة تحويل إلى PDF

✏ تحرير المحتويات: دفعة البحث والاستبدال عبر ملفات متعددة / تغيير حجم كافة الصور / تبديل صفوف وأعمدة الجدول / تحويل الجدول إلى نص

🧹 تنظيف سهل: اكتساح بعيدا مساحات اضافية / فواصل القسم / مربعات النص / الارتباطات التشعبية / لمزيد من أدوات الإزالة، توجه إلى حذف مجموعة...

➕ إدراجات إبداعية: إدراج الف فاصل / مربعات الاختيار / أزرار الراديو / رمز الاستجابة السريعة / الباركود / صور متعددة / اكتشف المزيد في إدراج مجموعة...

🔍 التحديدات الدقيقة: يحدد بدقة صفحات محددة / ترابيزات / الأشكال / فقرات العناوين / تحسين التنقل باستخدام الأكثر من ذلك أختار ملامح

⭐ تحسينات النجوم: انتقل إلى أي مكان / الإدراج التلقائي للنص المتكرر / التبديل بين مستند Windows / 11 تحويل الأدوات

؟؟؟؟ يدعم أكثر من 40 لغة:استخدم Kutools باللغة المفضلة لديك - يدعم اللغة الإنجليزية والإسبانية والألمانية والفرنسية والصينية وأكثر من 40 لغة أخرى!

؟؟؟؟ هل تريد تجربة هذه الميزات؟ قم بتنزيل Kutools للكلمة الآن! 🚀

تحميل مجانا     اشتري الآن     تعرف على المزيد حول Kutools for Word

 

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

كوتولس للكلمة - 100+ أدوات للكلمة

• 🤖 ميزات Kutools AI: مساعد منظمة العفو الدولية / مساعد في الوقت الحقيقي / سوبر بولندية / الترجمة الفائقة / تنقيح الذكاء الاصطناعي / التدقيق اللغوي بالذكاء الاصطناعي
• 📘 إتقان الوثيقة: تقسيم الصفحات / دمج المستندات / دفعة تحويل إلى PDF
• ✏ تحرير المحتويات: بحث واستبدال دفعة / تغيير حجم كافة الصور
• 🧹 تنظيف سهل: إزالة المسافات الزائدة / إزالة فواصل المقاطع
• ➕ إدراجات إبداعية: أدخل ألف فاصل / إدراج خانات الاختيار / إنشاء رموز QR
• ؟؟؟؟ يدعم أكثر من 40 لغة:يتحدث Kutools لغتك – يدعم أكثر من 40 لغة!

تحميل مجانا اشتري الآن تعلم المزيد عن كوتولس