كيفية تغيير لون تبويب الورقة بناءً على قيمة الخلية؟
عادةً، يمكنك تغيير لون التبويب بسهولة وسرعة في 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 بسهولة.
- تفسير الصيغ: فهم الصيغ المعقدة بسهولة.
- ترجمة النصوص: تجاوز الحواجز اللغوية داخل جداول البيانات الخاصة بك.
تغيير ألوان تبويبات عدة أوراق بناءً على قيمة الخلية باستخدام كود 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 باللون الأزرق، انظر لقطة الشاشة:
أفضل أدوات الإنتاجية لمكتب العمل
عزز مهاراتك في Excel باستخدام Kutools لـ Excel، واختبر كفاءة غير مسبوقة. Kutools لـ Excel يوفر أكثر من300 ميزة متقدمة لزيادة الإنتاجية وتوفير وقت الحفظ. انقر هنا للحصول على الميزة الأكثر أهمية بالنسبة لك...
Office Tab يجلب واجهة التبويب إلى Office ويجعل عملك أسهل بكثير
- تفعيل تحرير وقراءة عبر التبويبات في Word، Excel، PowerPoint، Publisher، Access، Visio وProject.
- افتح وأنشئ عدة مستندات في تبويبات جديدة في نفس النافذة، بدلاً من نوافذ مستقلة.
- يزيد إنتاجيتك بنسبة50%، ويقلل مئات النقرات اليومية من الفأرة!
جميع إضافات Kutools. مثبت واحد
حزمة Kutools for Office تجمع بين إضافات Excel وWord وOutlook وPowerPoint إضافة إلى Office Tab Pro، وهي مثالية للفرق التي تعمل عبر تطبيقات Office.
- حزمة الكل في واحد — إضافات Excel وWord وOutlook وPowerPoint + Office Tab Pro
- مثبّت واحد، ترخيص واحد — إعداد في دقائق (جاهز لـ MSI)
- الأداء الأفضل معًا — إنتاجية مُبسطة عبر تطبيقات Office
- تجربة كاملة لمدة30 يومًا — بدون تسجيل، بدون بطاقة ائتمان
- قيمة رائعة — وفر مقارنة بشراء الإضافات بشكل منفرد