كيفية تغيير لون تبويب الورقة بناءً على قيمة الخلية؟

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

تغيير لون تبويب ورقة واحدة بناءً على قيمة الخلية باستخدام كود VBA

تغيير ألوان تبويبات عدة أوراق بناءً على قيمة الخلية باستخدام كود VBA

تغيير لون تبويب ورقة واحدة بناءً على قيمة الخلية باستخدام كود VBA

على سبيل المثال، أريد أن يكون لون تبويب الورقة الحالية أخضر إذا كانت قيمة الخلية في A1 هي النص “TRUE”، وسيكون لون التبويب أحمر إذا كان النص في A1 هو “FALSE”، وسيكون لون التبويب أزرق إذا كانت القيمة في الخلية A1 أي نص آخر كما هو موضح في لقطة الشاشة التالية:

1. انقر بزر الماوس الأيمن على تبويب الورقة الذي تريد تغيير لونه بناءً على البيانات في الخلية A1، ثم اختر عرض الكود من قائمة السياق.

2. في نافذة Microsoft Visual Basic for Applications، انسخ والصق الكود التالي في نافذة الوحدة.

كود VBA: تغيير لون تبويب ورقة واحدة بناءً على قيمة الخلية:

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
    If Target.Address = "$A$1" Then
        Select Case Target.Value
        Case "False"
            Me.Tab.Color = vbRed
        Case "True"
            Me.Tab.Color = vbGreen
        Case Else
            Me.Tab.Color = vbBlue
        End Select
    End If
End Sub

ملاحظة: في الكود أعلاه، A1 هي مرجع الخلية الذي تريد تلوين التبويب بناءً عليه، “True” و “False” هما النصوص التي تحتاجها، يمكنك تغييرها حسب حاجتك، ويمكنك أيضًا تغيير الألوان في الكود حسب الحاجة.

3. ثم احفظ وأغلق نافذة الكود هذه، الآن، عندما تدخل النص “True” في الخلية A1، سيصبح لون التبويب الحالي أخضر، وعندما تدخل النص “False” في الخلية A1، سيصبح لون التبويب أحمر، وإذا تم إدخال أي نص آخر في الخلية A1، سيتغير لون التبويب إلى الأزرق تلقائيًا.

اكتشف سحر Excel مع Kutools AI

• التنفيذ الذكي: قم بعمليات الخلية، وتحليل البيانات، وإنشاء المخططات - كل ذلك يتم من خلال أوامر بسيطة.
• الصيغ المخصصة: قم بإنشاء صيغ مصممة خصيصًا لتسهيل سير عملك.
• برمجة VBA: كتابة وتطبيق أكواد VBA بسهولة.
• تفسير الصيغ: فهم الصيغ المعقدة بسهولة.
• ترجمة النصوص: تجاوز الحواجز اللغوية داخل جداول البيانات الخاصة بك.

عزز قدرات Excel لديك باستخدام أدوات تعمل بالذكاء الاصطناعي. قم بالتنزيل الآن وعش تجربة الكفاءة كما لم يحدث من قبل!

تغيير ألوان تبويبات عدة أوراق بناءً على قيمة الخلية باستخدام كود VBA

إذا كنت بحاجة لتغيير ألوان تبويبات عدة أوراق بناءً على قيمة الخلية، فهناك أيضًا كود قد يساعدك، يرجى القيام بما يلي:

1. اضغط مع الاستمرار على مفتاحي ALT + F11 لفتح نافذة Microsoft Visual Basic for Applications، في النافذة المفتوحة، انقر نقرًا مزدوجًا على ThisWorkbook تحت قسم VBAProject، ثم انسخ والصق الكود أدناه في الوحدة الفارغة.

كود VBA: تغيير ألوان تبويبات عدة أوراق بناءً على قيمة الخلية:

Option Explicit
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  'Updateby Extendoffice 20160930
  Select Case Sheets("Master").Range("A1").Value
         Case "KTE"
             Sheets("Sheet1").Tab.Color = vbRed
         Case "KTO"
             Sheets("Sheet2").Tab.Color = vbGreen
         Case "KTW"
             Sheets("Sheet3").Tab.Color = vbBlue
         End Select
End Sub

ملاحظة: في الكود أعلاه، A1 و Master هما الخلية والورقة اللتان تريد تلوين التبويب بناءً عليهما، Sheet1 و Sheet2 و Sheet3 هي أوراق العمل التي تريد تلوين التبويبات الخاصة بها. KTE و KTW و KTO هي قيم الخلايا في A1 التي تريد تلوين التبويبات بناءً عليها، يمكنك تغيير المراجع والألوان في الكود حسب حاجتك.

2. ثم احفظ وأغلق نافذة الكود هذه، الآن، عندما تدخل النص KTE في الخلية A1 من ورقة Master، سيتم تلوين تبويب Sheet1 باللون الأحمر، وعندما تدخل KTO في الخلية A1، سيتم تلوين Sheet2 باللون الأخضر، وعندما تدخل KTW في الخلية A1، سيتم تلوين Sheet3 باللون الأزرق، انظر لقطة الشاشة: