KutoolsforOffice — حل واحد، خمس أدوات قوية.تحقيق المزيد بجهد أقل.

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

المؤلفXiaoyangتاريخ التعديل

لديك جدول في مستند Word، وترغب الآن في إدراج قائمة منسدلة مشفرة بالألوان ضمن عمود من هذا الجدول—بحيث يتحول لون الخلية إلى الأحمر عند اختيار أحد الخيارات، وإلى الأخضر عند اختيار خيار آخر، كما يظهر في لقطة الشاشة أدناه:

عرض توضيحي يوضح تغيّر لون خلية عند تحديد عنصر من قائمة منسدلة

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

سترشدك الخطوات التالية خلال عملية إدراج قائمة منسدلة في خلية جدول وتطبيق لون الخلفية على الخلية بناءً على العنصر المحدد:

  1. حدد الخلية في الجدول التي ترغب في إدراج القائمة المنسدلة بها، ثم انقر على «المطوّر» > «قائمة منسدلة عنصر تحكم المحتوى».

    ملاحظة:إذا لم ترَ علامة التبويب «المطوّر» في الشريط، فقم بزيارة:كيفية إظهار علامة التبويب «المطوّر» في شريط Word.

    زر عنصر التحكم في المحتوى للقائمة المنسدلة على الشريط
  2. تُدرج القائمة المنسدلة في الخلية المحددة. بعد ذلك، انقر على «المطوّر» > «خصائص».
    3. تم إدراج قائمة منسدلة في خلية محددة مع تمييز خيار الخصائص
  3. في مربع حوار «خصائص عنصر تحكم المحتوى»، قم بما يلي:
    1. أدخل اسم العنوان في مربع النص «العنوان».
    2. انقر على زر «إضافة» لفتح مربع حوار «إضافة خيار».
    3. اكتب عنصرًا من القائمة المنسدلة في مربع النص «اسم العرض».
      مربع حوار خصائص عنصر التحكم في المحتوى ومربع حوار إضافة خيار
  4. كرّر الخطوة 3 لإضافة عناصر قائمة منسدلة إضافية حسب الحاجة.
  5. بعد إنشاء أول قائمة منسدلة، يمكنك نسخها ولصقها في خلايا أخرى.
    تم نسخ القائمة المنسدلة إلى خلايا أخرى
  6. اضغط مع الاستمرار علىALT + F11 لفتح نافذة «مايكروسوفت Visual Basic for Applications».
  7. في نافذة «مايكروسوفت Visual Basic for Applications»، انقر مرتين على «ThisDocument» في جزء «المشروع» لفتح الوحدة النمطية. بعد ذلك، انسخ والصق الكود التالي في الوحدة النمطية الفارغة:
    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

    ملاحظة:في الكود أعلاه، يُعدّ«Status» اسم العنوان المستخدم عند إنشاء القائمة المنسدلة، بينما تُعتبر«Complete» و«In Progress» و«Not Start» العناصر الفعلية. يمكنك بسهولة تعديل هذه القيم والألوان المرتبطة بها حسب احتياجاتك.

    نافذة VBA مع تحديد هذا المستند (ThisDocument)، وتظهر الكود المُلصَق في الوحدة النمطية الفارغة
  8. أغلِق نافذة الكود. الآن، كلما اخترت عنصرًا من القائمة المنسدلة، ستُملأ الخلية تلقائيًا بلونه المقابل.
    عرض توضيحي يوضح تغيّر لون خلية عند تحديد عنصر من قائمة منسدلة

أفضل أدوات إنتاجية أوفيس

Kutools for Word – ارتقِ بتجربتك في Word مع أكثر من100 ميزة رائعة!

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

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

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

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

➕إدراجات إبداعية: أدرجفواصل الآلاف،مربع اختيار،زر راديو،رمز QR،الباركود، أوصورًا متعددة! اكتشف المزيد في مجموعةإدراج...

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

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

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

Kutools for Word علامات التبويب على الشريط
 
 

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

  • تمكين التحرير والقراءة المبوبة في Word وExcel وPowerPoint وPublisher وAccess وVisio وProject.
  • افتح وأنشئ مستندات متعددة في علامات تبويب جديدة ضمن نفس النافذة، وليس في نوافذ جديدة.
  • يزيد إنتاجيتك بنسبة 50%، ويقلل مئات نقرات الفأرة لك كل يوم!

✨ Kutools for Office – تثبيت واحد، خمسة أدوات قوية!

يتضمنOffice Tab Pro·Kutools لـ Excel·Kutools لـ Outlook·Kutools for Word·Kutools for PowerPoint

📦 احصل على جميع أدوات 5 في حزمة واحدة | 🔗 تكامل سلس مع Microsoft Office | ⚡ وقت الحفظ وعزّز إنتاجيتك فورًا

أفضل أدوات إنتاجية أوفيس

Kutools for Word- أدوات 100+ لـ Word

تنزيل مجانياشترِ الآنمعرفة المزيد عن Kutools