كيفية إدراج القائمة المنسدلة المشفرة بالألوان في جدول Word؟

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

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

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

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

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

2. يتم إدراج القائمة المنسدلة في الخلية المحددة ، ثم انقر فوق المطور > عقارات، انظر لقطة الشاشة:

3. في خصائص التحكم في المحتوى مربع الحوار ، يرجى القيام بالعمليات التالية:

(1.) أدخل اسم العنوان في ملف اسم الخدمة مربع الكتابة؛

(2.) انقر أضف زر انتقل إلى إضافة خيار حوار ؛

(3.) في إضافة خيار الحوار ، اكتب عنصر القائمة المنسدلة في عرض اسم مربع الكتابة.

4. كرر الخطوة 3 لإدراج عناصر قائمة منسدلة أخرى حسب حاجتك.

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

6. ثم يجب عليك تطبيق رمز VBA ، يرجى الضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

7. في ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، انقر مرتين هذا المستند من مشروع-مشروع لفتح الوضع ، ثم انسخ الكود التالي والصقه في الوحدة النمطية الفارغة.

كود فبا: أدخل القائمة المنسدلة المشفرة بالألوان في جدول مستند Word:

Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
With ContentControl.Range
    If ContentControl.Title = "Status" Then
        Select Case .Text
            Case "Complete"
                .Cells(1).Shading.BackgroundPatternColor = wdColorRed
            Case "In Progress"
                .Cells(1).Shading.BackgroundPatternColor = wdColorGreen
            Case "Not Start"
                .Cells(1).Shading.BackgroundPatternColor = wdColorBlue
            Case Else
                .Cells(1).Shading.BackgroundPatternColor = wdColorAutomatic
        End Select
    End If
End With
End Sub

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

8. ثم احفظ وأغلق نافذة الكود ، الآن ، عند تحديد عنصر واحد من القائمة المنسدلة ، سيتم ملء لونه النسبي بالخلية ، انظر الصورة:

---

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

 

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

• يمكن إجراء العمليات المعقدة والمتكررة لمرة واحدة في ثوانٍ.
• أدخل صورًا متعددة عبر المجلدات في مستند Word مرة واحدة.
• دمج ودمج ملفات Word المتعددة عبر المجلدات في ملف واحد بالترتيب الذي تريده.
• قسّم المستند الحالي إلى مستندات منفصلة وفقًا للعنوان أو فاصل المقطع أو معايير أخرى.
• قم بتحويل الملفات بين Doc و Docx و Docx و PDF ، ومجموعة من الأدوات للتحويلات والاختيارات الشائعة ، وما إلى ذلك ...

التفاصيل حمل التطبيق الآن شراء