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

كيفية إدراج القائمة المنسدلة المشفرة بالألوان في جدول 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. ثم احفظ وأغلق نافذة الكود ، الآن ، عند تحديد عنصر واحد من القائمة المنسدلة ، سيتم ملء لونه النسبي بالخلية ، انظر الصورة:

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


 


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

 

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

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

 

فرز التعليقات حسب
التعليقات (47)
تقييم شنومك من شنومكس · تصنيفات 1
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عند الخروج من البرنامج وإعادة فتحه ، يجب إعادة إدخال رمز VBA. كيف أجعلها بحيث تحفظ؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،
لحفظ رمز vba عند فتح الملف في المرة القادمة ، يجب عليك حفظ ملف word بتنسيق مستند Word Macro-Enabled. من فضلك جربها ، آمل أن تساعدك!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، لقد قمت للتو بإنشاء القائمة المنسدلة والألوان بنجاح كما نصحت. لقد حاولت إضافة صف آخر لذلك لدي قوائم منسدلة 4 مقابل 3. لقد قمت بقص ولصق وتغيير ولكن لا يظهر لون عند تحديد هذا الخيار ، هل من أفكار حول كيفية الإصلاح؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا بيتر،
أولاً ، يجب عليك إنشاء القائمة المنسدلة في الجدول ، ثم *** النص المنسدل الرابع في الشفرة على النحو التالي:

Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
With ContentControl.Range
If ContentControl.Title = "Status" Then
Select Case .Text
Case "Complete" 'First drop down item
.Cells(1).Shading.BackgroundPatternColor = wdColorRed
Case "In Progress" 'Second drop down item
.Cells(1).Shading.BackgroundPatternColor = wdColorGreen
Case "Not Start" 'Third drop down item
.Cells(1).Shading.BackgroundPatternColor = wdColorBlue
Case "New Task" 'Fourth drop down item
.Cells(1).Shading.BackgroundPatternColor = wdColorYellow
Case Else
.Cells(1).Shading.BackgroundPatternColor = wdColorAutomatic
End Select
End If
End With
End Sub


من فضلك حاول ، آمل أن يساعدك!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هذا صر عملت! شكرًا. حاولت تطبيق نفس الكود على مربع محتوى آخر منسدل في نفس المستند وأواجه مشكلة. لا أعرف كيفية الحصول على tweo في نافذة VBA. تلقيت "خطأ في الترجمة ، تم اكتشاف اسم غامض: Document_ContentControlOnExit"
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل يمكنني إدخال ألوان مخصصة؟ (RGB)
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا شكرا لك على هذا. هل هناك طريقة لتغيير لون النص فقط وليس الخلية بأكملها؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا شانون ،
لتغيير لون النص بدلاً من لون الخلفية ، يمكن أن يساعدك رمز VBA أدناه ، يرجى تجربته ، آمل أن يساعدك!

Private Sub Document_ContentControlOnExit (ByVal ContentControl كـ ContentControl ، إلغاء كـ منطقي)
مع ContentControl.Range
إذا كان ContentControl.Title = "الحالة" إذن
حدد حالة النص
الحالة "مكتملة"
الخلايا (1) .Range.Font.Color = wdColorRed
الحالة "قيد التقدم"
الخلايا (1) .Range.Font.Color = wdColorGreen
الحالة "لا تبدأ"
الخلايا (1) .Range.Font.Color = wdColorBlue
حالة أخرى
الخلايا (1) .Range.Font.Color = wdColorAutomatic
إنهاء اختر
إنهاء حالة
انتهت ب
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
تكافح هنا لتطبيق هذا كنمط وليس لونًا أو ظلًا.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل يمكنني تعديل هذا الرمز لإبراز أي خيار منسدلة دون سردها جميعًا؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
بدلا من الألوان ، هل يمكننا استخدام الرموز؟ مثل إذا كان رمز العرض "مكتمل" برمز الحرف 252 ، إذا لم يبدأ ، فحينئذٍ يكون الرمز برمز الحرف 88 وما إلى ذلك ، هل يمكنك مشاركة رمز vba باستخدام الرموز مثل display plz؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا ، هذا رائع! هل هناك طريقة للاختيار من بين الكثير من الألوان؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا سام،
لتطبيق المزيد من الألوان التي تريدها ، يجب عليك استخدام الكود أدناه ، وتغيير لون RGB حسب حاجتك:

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 = RGB(255, 0, 0)
            Case "In Progress"
                .Cells(1).Shading.BackgroundPatternColor = RGB(0, 255, 64)
            Case "Not Start"
                .Cells(1).Shading.BackgroundPatternColor = RGB(0, 0, 255)
            Case Else
                .Cells(1).Shading.BackgroundPatternColor = wdColorAutomatic
        End Select
    End If
End With
End Sub


من فضلك حاول ، آمل أن يساعدك!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل يمكنني تلوين الصف المقابل بأكمله بدلاً من مجرد خلية؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا أريحا
يمكن أن يساعدك الكود أدناه في التعامل مع مشكلتك ، يرجى تجربته: (يمكنك ضبط لون RGB حسب حاجتك)

Private Sub Document_ContentControlOnExit (ByVal ContentControl كـ ContentControl ، إلغاء كـ منطقي)
مع ContentControl.Range
إذا كان ContentControl.Title = "الحالة" إذن
حدد حالة النص
الحالة "مكتملة"
.Rows.Shading.BackgroundPatternColor = RGB (255، 0، 0)
الحالة "قيد التقدم"
.Rows.Shading.BackgroundPatternColor = RGB (0، 255، 64)
الحالة "لا تبدأ"
.Rows.Shading.BackgroundPatternColor = RGB (0، 0، 255)
حالة أخرى
.Rows.Shading.BackgroundPatternColor = wdColorAutomatic
إنهاء اختر
إنهاء حالة
انتهت ب
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، رائع !!! ولكن هل هناك طريقة لتغيير لون / نص خلية أخرى في نفس الصف ولكن في عمود مختلف؟ على سبيل المثال: بدلاً من تغيير خلفية "مكتمل" ، قم بتغيير خلفية "Project-001". ساعدني من فضلك. شكرا لك مقدما
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا جايمس ،
لحل مشكلتك ، يرجى تطبيق الكود أدناه:
ملاحظة: في الكود , الرقم 1 في البرنامج النصي Cells (1) هو رقم عمود الجدول ، يمكنك تغييره حسب حاجتك.

Private Sub Document_ContentControlOnExit (ByVal ContentControl كـ ContentControl ، إلغاء كـ منطقي)
مع ContentControl.Range
إذا كان ContentControl.Title = "الحالة" إذن
حدد حالة النص
الحالة "مكتملة"
. الصفوف (1). الخلايا (1). تظليل. BackgroundPatternColor = wdColorRed
الحالة "قيد التقدم"
. الصفوف (1). الخلايا (1). تظليل. BackgroundPatternColor = wdColorGreen
الحالة "لا تبدأ"
. الصفوف (1). الخلايا (1). تظليل. BackgroundPatternColor = wdColorBlue
حالة أخرى
. الصفوف (1). الخلايا (1). تظليل. BackgroundPatternColor = wdColorAutomatic
إنهاء اختر
إنهاء حالة
انتهت ب
نهاية الفرعية

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

حاولت إنشاء قائمتين منسدلتين لرموز الألوان في قالب Word واحد ، ومع ذلك ، تلقيت رسالة خطأ تقول "تم اكتشاف اسم غامض: Document_ContentControON EXIT. هل يمكن أن تخبرني بما قمت به بشكل خاطئ؟




Private Sub Document_ContentControlOnExit (ByVal ContentControl كـ ContentControl ، إلغاء كـ منطقي)

مع ContentControl.Range

إذا كان ContentControl.Title = "إجراء تصحيحي" إذن

حدد حالة النص

حالة "إجراء تصحيحي ضروري"

. الخلايا (1). تظليل. BackgroundPatternColor = wdColorRed

حالة "لا يلزم اتخاذ مزيد من الإجراءات"

. الخلايا (1). تظليل. BackgroundPatternColor = wdColorGreen

حالة "يوصى بإجراء تصحيحي"

. الخلايا (1). تظليل. BackgroundPatternColor = wdColorYellow

حالة أخرى

. الخلايا (1). تظليل. BackgroundPatternColor = wdColorAutomatic

إنهاء اختر

إنهاء حالة

انتهت ب

نهاية الفرعية

Private Sub Document_ContentControlOnExit (ByVal ContentControl كـ ContentControl ، إلغاء كـ منطقي)

مع ContentControl.Range

إذا كان ContentControl.Title = "إجراء تصحيحي لـ cd" إذن

حدد حالة النص

حالة "استخدام منحنى قرص مضغوط جديد"

. الخلايا (1). تظليل. BackgroundPatternColor = wdColorRed

حالة "استخدام منحنى قرص مضغوط موجود"

. الخلايا (1). تظليل. BackgroundPatternColor = wdColorGreen

حالة "تحقق من الإعداد والتحقق"

. الخلايا (1). تظليل. BackgroundPatternColor = wdColorYellow

حالة أخرى

. الخلايا (1). تظليل. BackgroundPatternColor = wdColorAutomatic

إنهاء اختر

إنهاء حالة

انتهت ب


شكرا جزيلا مقدما لدعمك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا - شكرا جزيلا على هذا. كيف أقوم بدمج التعليمات البرمجية لتغيير لون الخط بناءً على التحديد من القائمة المنسدلة.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عمل الرمز البريدي الأصلي بشكل رائع ولكني أريد نقله إلى مربع منسدل آخر ، عندما أحاول استخدام نفس الرمز إلى VB مع تغيير القيمة في قسم "الحالة" في السطر التالي:
إذا كان ContentControl.Title = "الحالة" إذن
انه لا يعمل؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا جوني ، إذا كان هناك جدولان أو أكثر من القوائم المنسدلة ، فأنت تحتاج فقط إلى نسخ ولصق الكود أدناه في الكود الأصلي ، وتغيير مرجع النص حسب حاجتك.
إذا كان ContentControl.Title = "الحالة" إذن
حدد حالة النص
الحالة "مكتملة"
. الخلايا (1). تظليل. BackgroundPatternColor = wdColorRed
الحالة "قيد التقدم"
. الخلايا (1). تظليل. BackgroundPatternColor = wdColorGreen
الحالة "لا تبدأ"
. الخلايا (1). تظليل. BackgroundPatternColor = wdColorBlue
حالة أخرى
. الخلايا (1). تظليل. BackgroundPatternColor = wdColorAutomatic
إنهاء اختر
إنهاء حالة


يجب أن يكون الكود الكامل كما يلي: Private Sub Document_ContentControlOnExit (ByVal ContentControl كـ ContentControl ، إلغاء كـ منطقي)
مع ContentControl.Range
إذا كان ContentControl.Title = "الحالة" إذن
حدد حالة النص
الحالة "مكتملة"
. الخلايا (1). تظليل. BackgroundPatternColor = wdColorRed
الحالة "قيد التقدم"
. الخلايا (1). تظليل. BackgroundPatternColor = wdColorGreen
الحالة "لا تبدأ"
. الخلايا (1). تظليل. BackgroundPatternColor = wdColorBlue
حالة أخرى
. الخلايا (1). تظليل. BackgroundPatternColor = wdColorAutomatic
إنهاء اختر
إنهاء حالة
إذا كان ContentControl.Title = "الاسم" إذن
حدد حالة النص
حالة "لوسي"
. الخلايا (1). تظليل. BackgroundPatternColor = wdColorOrange
القضية "Skyyang"
. الخلايا (1). تظليل. BackgroundPatternColor = wdColorYellow
حالة "روبي"
. الخلايا (1). تظليل. BackgroundPatternColor = wdColorBlue
حالة أخرى
. الخلايا (1). تظليل. BackgroundPatternColor = wdColorAutomatic
إنهاء اختر
إنهاء حالة
انتهت ب
End Sub يرجى المحاولة ، آمل أن يساعدك!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لقد عمل هذا بشكل رائع ، شكرا لك على مساعدتك.
أحاول أيضًا اكتشاف طريقة لما يلي:
لدي خليتان لهما قيمة عددية. في celI منفصل ، أريد مضاعفة هذه القيم ، إذا كانت النتيجة تقع ضمن ثلاثة نطاقات عددية محددة ، أود أن تعرض الخلية نصًا بناءً على قيم النطاق.
إذا كانت خطورة الخطر هي 3
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كان هذا مفيدًا للغاية وقمت بتنفيذه بنجاح. أتساءل كيف يمكنني أيضًا تغيير لون النص في نفس الصف الذي قمت بالفعل بتغيير لون الخلفية. على سبيل المثال. لون صف الخلفية أحمر ولكن أريد أن يكون النص أبيض وليس أسود؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
تعليمات رائعة - عملت على أكمل وجه! شكرًا لك!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،
هل يمكنك تلوين العمود التالي ، بدلاً من عمود القائمة المنسدلة؟ على سبيل المثال ، لا يوجد رمز لوني في عمود "الحالة" (اختيارات فقط) ، لكن رمز اللون في العمود المجاور؟ شكرًا.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يمكنني الحصول على الألوان للعمل مع القائمة المنسدلة ولكن فقط بعد النقر فوق علامة "الحالة". هل يمكن أن تختفي علامة staus؟ كما أعتقد أنه لا يبدو لطيفًا عند اكتمال المستند
لا توجد تعليقات منشورة هنا حتى الآن
عرض المزيد
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

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