انتقل إلى المحتوى الرئيسي

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

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

القائمة المنسدلة ذات اللون المشفر للمستند

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

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

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

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

القائمة المنسدلة ذات اللون المشفر للمستند 1

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

القائمة المنسدلة ذات اللون المشفر للمستند 2

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

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

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

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

القائمة المنسدلة ذات اللون المشفر للمستند 3

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

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

القائمة المنسدلة ذات اللون المشفر للمستند 4

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

القائمة المنسدلة ذات اللون المشفر للمستند 5

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

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

القائمة المنسدلة ذات اللون المشفر للمستند

 

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

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

🤖 مساعد كوتولس AI: تحويل كتابتك باستخدام الذكاء الاصطناعي - توليد المحتوى  /  إعادة كتابة النص  /  تلخيص المستندات  /  الاستفسار عن المعلومات على أساس الوثيقة، كل ذلك داخل Word

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

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

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

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

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

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

؟؟؟؟ هل تريد تجربة هذه الميزات؟ يقدم Kutools for Word أ الإصدار التجريبي المجاني من 60 يومًا، بلا حدود! 🚀
 

 

Comments (54)
Rated 5 out of 5 · 1 ratings
Michael Lacroix
Michael Lacroix
This comment was minimized by the moderator on the site
hello . i tried but it not go.
Reply
0
0
Michael Lacroix
Michael Lacroix
This comment was minimized by the moderator on the site
bonjour, je ne parviens pas à enregistrer
Reply
0
0
peter.
peter.
This comment was minimized by the moderator on the site
I have a word document that i would like some help with, in short, i have a large inspection table, items either comply, don't, further information etc. I currently use a simple drop-down option which has 5-6 options, ill like a selection option that when different options are selected, that changes the cells/row to a red or green etc, and then also (If possible) updates a Summary Table? is this possible, I'll pay someone for a general templet i can the work on....

Thank you in advance....
View Attachments (1 / 5)
Reply
Report
0
0
skyyang
skyyang     peter.
This comment was minimized by the moderator on the site
Hello, peter,
Did you mean to select an item from the drop down list, and a specific background color is filled for that row?
Please view the attachment to check if it is your need. If this is not your need, please give your problem more clearly.
Thank you!
View Attachments (1 / 5)
Reply
Report
0
0
peter.
peter.     skyyang
This comment was minimized by the moderator on the site
Almost, by changing the drop-down tab the whole row changes color, perfect, thank you, however the magic is then coping the row (Yet only rows that don't comply or need further info etc... ) and placing it in a summary table at the top of the page in another table etc... getting them all to keep adding would be great in a summary table.

I can then alter the summary table as things change, and it updated the main parent table .... I'm not sure this is possible.

I'm happy to have a Teams Meeting to get this working, it would be apricated as it is doing my head in...

Reply
Report
0
0
steven Lonsdale
steven Lonsdale
This comment was minimized by the moderator on the site
Hi, this is great, got me over a major problem with my fillable form. However, when I go to protect my fillable form, it brings up the debugger box? any idea how i can overcome this?
Reply
0
0
Emily
Emily
This comment was minimized by the moderator on the site
Thank you, i have managed to change the background colour. Is there a way i can change the text to white?
Reply
0
0
skyyang
skyyang     Emily
This comment was minimized by the moderator on the site
Hello, Emily,
To change the text color to white, please apply the following code:
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
                .Cells(1).Range.Font.Color = wdColorWhite
            Case "In Progress"
                .Cells(1).Shading.BackgroundPatternColor = wdColorGreen
                .Cells(1).Range.Font.Color = wdColorWhite
            Case "Not Start"
                .Cells(1).Shading.BackgroundPatternColor = wdColorBlue
                .Cells(1).Range.Font.Color = wdColorWhite
            Case Else
                .Cells(1).Shading.BackgroundPatternColor = wdColorAutomatic
        End Select
    End If
End With
End Sub

Please have a try, hope it can help you!
Reply
Report
0
0
Melanie Tweak
Melanie Tweak
This comment was minimized by the moderator on the site
What code do you add so it goes back to the normal colours (both background and text) when you select "Choose an item" from dropdown list after previously selecting a case
Reply
0
0
skyyang
skyyang     Melanie Tweak
This comment was minimized by the moderator on the site
Hello, Usama,
In this case, the code in this article can help you. When uou select an item and then do back to choosing "Choose an item", the backdround color will not be filled.
Please try again. Thank you!
Reply
Report
0
0
Usama Mando
Usama Mando
This comment was minimized by the moderator on the site
Well done! Is it possible to activate different cells (independent of row and column) with an item of the ContentControl... e.g. if we put the alphabet of English letters in a table with 6 rows and 5 columns and want to activate the vowels or the consonants?
Reply
0
0
Usama Mando
Usama Mando
This comment was minimized by the moderator on the site
Well done! Is it possible to activate different cells (independent of row and column) with an item of the ContentControl... e.g. if we put the alphabet of English letters in a table with 6 rows and 5 columns and want to activate the vowels or the consonants?
Reply
0
0
alison
alison
This comment was minimized by the moderator on the site
Hi I want a drop down list of colours but i do not want any text in the cells, i just want my users to be able to choose a colour as I am creating a RAG rated form.

is this possible?

thanks.
Reply
0
0
Keifer
Keifer     alison
This comment was minimized by the moderator on the site
Probably way too late, but in case anyone else is wondering, you can probably do something like this by just adapting the code a bit.

adjust the range.font.color line with the same wd color code as the code above. Its not perfect but if the font is the same color as the highlight, you wont be able to visually see the difference
Reply
0
0
Bjorling Susan
Bjorling Susan
This comment was minimized by the moderator on the site
I have pasted the code and can see my drop down options (the text) but when I choose them, the background colors don't apply. Do you have any way to help me figure out what I may be doing wrong? Please and thank you! This is exactly what I'm hoping to do in my document, if I can make it work. Thanks!
Reply
0
0
skyyang
skyyang     Bjorling Susan
This comment was minimized by the moderator on the site
Hello, Susan
You should check if the corresponding text in the VBA code has been mofified to your own contents.

Note: In the above code, Status is the title name when you creating the drop down list, and Complete, In Progress, Not Start are the items of the drop down list, you can change them to your own. And you can also change the color to your need.

If there is still problem after changing the text, you can upload the attachment word file and we will help you check it.
Thank you!
Reply
Report
0
0
Hannah
Hannah     skyyang
This comment was minimized by the moderator on the site
I am having the same issue.
I have changed the titles names in the code and followed the rest of the instructions.
Can you please tell me what I may have done wrong?
Reply
0
0
There are no comments posted here yet
Load More
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations