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

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


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

أنشئ قوائم منسدلة تابعة في Word برمز VBA


أنشئ قوائم منسدلة تابعة في Word برمز VBA

يمكن أن يساعدك رمز VBA أدناه في إنشاء قائمة منسدلة تابعة في مستند Word. يرجى اتباع التعليمات خطوة بخطوة.

1. أولاً ، تحتاج إلى إدراج قائمتين منسدلتين في مستند Word الخاص بك. انقر المطور > أشكال الإرث > حقل نموذج منسدل. انظر لقطة الشاشة:

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

3. في الافتتاح خيارات حقل النموذج المنسدلة مربع الحوار ، تحتاج إلى:

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

3.2 أدخل ddfood في حفظ مربع.

شنومك انقر فوق OK زر. انظر لقطة الشاشة:

4. انقر بزر الماوس الأيمن فوق القائمة المنسدلة الثانية ، ثم انقر فوق عقارات لفتحه خيارات حقل النموذج المنسدلة مربع الحوار ، وفي مربع الحوار ، أدخل ddCategory في حفظ مربع وانقر فوق OK زر. انظر لقطة الشاشة:

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

6. في ال ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق إدراج > وحدة، ثم انسخ رمز VBA أدناه في نافذة الوحدة النمطية.

رمز فبا: أنشئ قائمة منسدلة تابعة في Word

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

الملاحظات:

1. في الكود ، يرجى تغيير العناصر الموجودة تحت كل حالة حسب حاجتك.

2. ddfood و ddCategory يجب أن تتطابق مع خيارات الإشارة المرجعية التي أدخلتها في الخيارين أعلاه خيارات حقل النموذج المنسدلة مربعات الحوار.

7. احفظ الرمز وارجع إلى المستند.

8. انقر بزر الماوس الأيمن فوق القائمة المنسدلة الأولى وانقر فوق عقارات لفتح خيارات حقل النموذج المنسدلة صندوق المحادثة. في مربع الحوار ، يرجى تحديد اسم الماكرو أعلاه (هنا Popolateddfood) من ملف خروج القائمة المنسدلة ، ثم انقر فوق OK .

9. انقر الآن المطور > تقييد التحرير كما هو موضح أدناه لقطة الشاشة.

10. في ال تقييد التحرير جزء ، تحتاج إلى:

10.1) تحقق من السماح فقط بهذا النوع من التحرير في المستند صندوق؛

شنومكس) حدد تعبئة النماذج خيار من القائمة المنسدلة ؛

شنومكس) انقر فوق نعم، ابدأ فرض الحماية زر؛

شنومكس) في ابدأ في فرض الحماية الحوار ، أدخل كلمة المرور وانقر فوق OK زر. انظر لقطة الشاشة:

الآن يتم إنشاء قائمة منسدلة تابعة. عند تحديد الفاكهة في القائمة المنسدلة الأولى ، يمكن تحديد فئات الفاكهة فقط في القائمة الثانية.


أدوات إنتاجية Word الموصى بها

 

Kutools For Word - أكثر من 100 ميزة متقدمة لـ Word ، وفر وقتك بنسبة 50 ٪

  • يمكن إجراء العمليات المعقدة والمتكررة لمرة واحدة في ثوانٍ.
  • أدخل صورًا متعددة عبر المجلدات في مستند Word مرة واحدة.
  • دمج ودمج ملفات Word المتعددة عبر المجلدات في ملف واحد بالترتيب الذي تريده.
  • قسّم المستند الحالي إلى مستندات منفصلة وفقًا للعنوان أو فاصل المقطع أو معايير أخرى.
  • قم بتحويل الملفات بين Doc و Docx و Docx و PDF ، ومجموعة من الأدوات للتحويلات والاختيارات الشائعة ، وما إلى ذلك ...
فرز التعليقات حسب
التعليقات (27)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل هناك رمز مشابه للقيام بنفس الشيء تقريبًا باستثناء وجود حقل نموذج نصي يتم ملؤه تلقائيًا اعتمادًا على خيار القائمة المنسدلة؟ على سبيل المثال ، اختيار شركة معينة في القائمة المنسدلة ووجود حقل نموذج نصي يتم ملؤه تلقائيًا بالمدينة التي تقع بها الشركة؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يوم جيد،
آسف يمكن أن تساعدك في ذلك. شكرا لك على تعليقك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل يمكنك إضافة هذا إلى مناطق متعددة في صفحة واحدة تتكون من أقسام متعددة؟ تمكنت من إكمال العملية بنجاح في قسم واحد من وثيقي ، ولكن عندما أحاول إكمال نفس العملية أثناء تواجدي في نفس الصفحة ، ولكن في قسم مختلف من المستند الخاص بي ومع خيارات قائمة منسدلة جديدة ، فقط المربعات المضافة الأولى الخاصة بي يعملون وليست تلك الموجودة في القسم الثاني ..
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا انغريد ،
لنفترض أن لديك ثلاث مجموعات من القوائم المنسدلة التابعة في وثيقتك. إذا كنت تريد تفعيل جميع القوائم المنسدلة التابعة ، فالرجاء تطبيق رمز VBA أدناه والقيام بالإعدادات التالية:

في الخطوتين 4 و 5 التي ذكرناها في المقالة ، تحتاج الآن إلى إجراء التغييرات التالية:
1. بالنسبة للمجموعة الأولى من القوائم المنسدلة التابعة ، يرجى الدخول إلى نافذة خصائص كل قائمة منسدلة وتحديد الإشارة المرجعية كـ ddfood1 و ddCategory1 بشكل منفصل ؛
2. بالنسبة للمجموعة الثانية من القوائم المنسدلة التابعة ، يرجى الدخول إلى نافذة خصائص كل قائمة منسدلة وتحديد الإشارة المرجعية كـ ddfood2 و ddCategory2 بشكل منفصل ؛
2. بالنسبة للمجموعة الثالثة من القوائم المنسدلة التابعة ، يرجى الدخول إلى نافذة خصائص كل قائمة منسدلة وتحديد الإشارة المرجعية كـ ddfood3 و ddCategory3 بشكل منفصل ؛

ثم امض قدمًا تمامًا كما قدمنا ​​في المقالة لإنهاء الإعدادات بالكامل.

كود فبا:
Sub Populateddfood ()
'تحديث بواسطة Extendoffice 2019 / 03 / 18
خافت xDirection كـ FormField
خافت x الحالة كـ FormField
خافت xRng كمدى
خافت xFoodBM ، xCategoryBM كسلسلة
مجموعة xRng = Selection.Range
على خطأ استئناف التالي
بالنسبة إلى i = 1 إلى ActiveDocument.FormFields.Count
xFoodBM = "ddfood" & i
xCategoryBM = "ddCategory" & i
قم بتعيين xDirection = ActiveDocument.FormFields (xFoodBM)
تعيين xState = ActiveDocument.FormFields (xCategoryBM)
إذا (ليس (xState لا شيء)) و (ليس (xDirection لا شيء)) إذن
باستخدام xState.DropDown.ListEntries
.واضح
حدد Case xDirection.Result
حالة "الفاكهة"
.إضافة "Apple"
.إضافة "موز"
. إضافة "خوخ"
.إضافة "Lychee"
.إضافة "بطيخ"
حالة "خضروات"
.إضافة "ملفوف".
.إضافة "بصل"
حالة "لحوم"
. إضافة "لحم الخنزير"
.إضافة "لحم بقر"
.إضافة "لحم ضأن"
إنهاء اختر
انتهت ب
إنهاء حالة
قم بتعيين xDirection = لا شيء
تعيين xState = لا شيء
التالى
xRng. حدد
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل يمكن القيام بذلك في إصدارات أقدم من Word أم يجب حفظه كنوع مستند معين؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا ماري ،
ما هو الإصدار الذي تقصده؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا هناك،
هل توجد قيود على الاسم في الحقل (مثل كلمتين أو استخدام أحرف خاصة)؟
مثل الحقل أ (اسم الشركة) الحقل ب (اسم المخرج ، مثل جاك بلاك).
شكر!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا مارك ،
نعم ، هناك قيود على الاسم في الحقل.
بالنسبة للكلمات المتعددة التي تحتوي على مسافات ، تحتاج إلى استبدال المسافات بخطوط غير واضحة مثل Company_Name.
ولا يمكن أن يحتوي اسم الإشارة المرجعية على أي من الأحرف الخاصة مثل / \: *؟ "<> |
شكرا لتعليقك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،

كيف نلتف النص؟ لقد اتبعت الخطوة وهي تعمل بشكل جيد باستثناء أنه عندما تكون القائمة الثانية طويلة جدًا ، فإنها تتجاوز الصفحة. هل هناك طريقة لفه تلقائيًا؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا بول،
آسف لا أستطيع مساعدتك في ذلك حتى الآن. شكرا على تعليقك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، لقد حصلت على القوائم المنسدلة للعمل. عندي سؤال
عندما أقوم باختيار القائمة المنسدلة الأولى ، هل هناك أي طريقة لأتمتة عمليات التنسيق والاختيارات ذات الصلة للقوائم المنسدلة التالية؟ علي سبيل المثال. لديّ محامي أحد الوالدين ، والقائمتان المنسدلتان للطفلتان هما العنوان ورقم الهاتف على التوالي. عندما أحدد اسم المحامي ، أود أن تقوم القوائم المنسدلة التابعة للطفل بتعبئة العنوان ورقم الهاتف تلقائيًا. كيف يمكنني القيام بذلك؟

شكرا مقدما.

سيلفيا
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يوم جيد،
آسف لا أستطيع مساعدتك في ذلك حتى الآن. شكرا على تعليقك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل هناك طريقة لإضافة حقول فئات متعددة بناءً على اختيار واحد؟ على سبيل المثال ، أحتاج أن أقول حدد "نبيذ" ولكني أريد أن أكون قادرًا على تحديد 5 خيارات (فاكهي ، أحمر ، قوي ، إلخ ...) من الخيارات العشرة الممكنة في قائمة الحقول المنسدلة الثانية. لقد اتبعت التعليمات أعلاه وتعمل بشكل جيد في حقل واحد مع حقل تابع آخر فقط. لكني أحتاج إلى 10 حقول تابعة ، وكلها متشابهة بسبب حقل واحد في هذه الحالة "نبيذ". لقد قمت بتكرار الحقل المنسدل الذي لا يعمل ، وأحاول إضافة حقل ثانٍ إلى الشفرة ، لكني لست متأكدًا من كيفية ذلك: ActiveDocument.FormFields ("ddCategory") و ("ddCategory5")
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا إد ،
آسف لا أستطيع مساعدتك في ذلك. شكرا لك على تعليقك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، كيف يمكنني تكرار مربع الفئات؟ لقد استخدمت الكود أعلاه ويعمل بشكل جيد ، ولكن لمربع واحد فقط. ماذا أفعل في الكود إذا كنت ، على سبيل المثال ، بحاجة إلى اختيار ما يصل إلى 3 فواكه بمجرد اختيار مجموعة الفاكهة؟ أنا أقوم بتكرار الحقل الذي قمت بإنشائه ولكن يعمل واحد فقط.
---------------------
اختار
الفاكهة: الموز
تفاحة
"حدد عنصرًا"


----------------------------------
اختار
الخضار: ملفوف
بصل
"حدد عنصرًا"
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا لك على هذا المورد المفيد جدا.

هل من الممكن تكرار نفس القائمة المنسدلة عدة مرات في النموذج؟

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

شكر
ايمي
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أنا أستخدم نفس الكود ولكن النص الذي استبدلت به فئة dd يحتوي على 100 كلمة زائد. هل هناك طريقة لف النص لمنعه من الخروج من الصفحة والاختفاء؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لدي نفس المشكلة!! : 0
تم تصغير هذا التعليق بواسطة المشرف على الموقع
سلام من مراحل روتم في مراحل مختلفة من مراحل تطور الحمام
چیکار باید بکنم؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، لسبب ما لا يمكنني تعديل أي شيء آخر في ملف الكلمات إذا كانت القائمة المنسدلة نشطة. هل هناك طريقة لتجنب ذلك؟

شكراً لك
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لدي نفس المشكلة هل تمكن أي شخص من المساعدة في هذا الأمر
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كان هذا مفيدًا للغاية ، شكرًا لك.
لدي سؤال ، هل هناك طريقة لتعديل الكود بحيث عندما أحدد عنصرًا جديدًا من القائمة المنسدلة الأولى ، سيتم مسح العنصر التابع؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
آسف على الرد المتأخر ، عثرت فقط على هذه الصفحة اليوم :-)
لقد فعل ذلك بالفعل. العبارة الأولى داخل تحديد الحالة ... إنهاء تحديد البناء يمسح القائمة الثانية. إذا لم يتم استيفاء أي من المعايير ، فلن تتم إضافة أي شيء.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، شكرًا على البرنامج التعليمي التفصيلي ، ولكن لدي سؤال لأن قالب الكلمة مخصص لاستخدام الآخرين ، 
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، شكرًا جزيلاً على البرنامج التعليمي المفصل ، لكن لدي سؤال لأن قالب الكلمة مخصص لاستخدام الآخرين. لقد ذكرت وضع الحماية وكلمة المرور أمر لا بد منه ، ويمكن القيام بذلك إذا أخبرتهم بكلمة المرور ، ثم هناك تعارض: هناك بعض الفراغات الأخرى التي يجب ملؤها ، ولا يمكن القيام بذلك إلا إذا كان وضع الحماية إيقاف. ماذا علي أن أفعل؟ هل هناك أي طريقة لتلبية كلا الحاجتين؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،

ist das ganze auch unter Outlook möglich. Leider bekomme ich das so nicht hin da die Eigenschaften des Dropdown Menüs ganz anders aussehen.

Ich wollte unter Aufgaben einen Reparaturauftrag erstellen wo man Gebäude ، Bereich und dan Zimmernummer أو Bezeichnung auwählen kann.

Ist das möglich في Outlook / Aufgaben؟



شكرا
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،
يمكنك إنشاء قائمة منسدلة بحقل مخصص في نافذة مهمة Outlook باتباع الخطوات الواردة في هذه المقالة:
كيف تضيف قائمة منسدلة مع ملف مخصص في نافذة مهام Outlook؟
https://www.extendoffice.com/documents/outlook/4453-outlook-custom-fields-tasks-drop-down.html
أو قم بإنشاء قائمة منسدلة في Word ثم انسخها والصقها في نافذة المهمة حسب حاجتك.
ولكن إذا كنت تريد إنشاء قوائم منسدلة تابعة في مهمة Outlook ، فلم يتم العثور على طريقة حتى الآن.
آسف لذلك.
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

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