كيفية تغيير لون علامة تبويب الورقة بناءً على قيمة الخلية؟
عادةً ، يمكنك تغيير لون علامة التبويب بسهولة وبسرعة في Excel ، ولكن هل حاولت تغيير لون علامة التبويب استنادًا إلى قيمة الخلية في ورقة العمل؟ إذا كنت مهتمًا بهذه المهمة ، فسأتحدث عن بعض الرموز لتلوين علامة تبويب الورقة بناءً على قيمة خلية معينة في Excel.
قم بتغيير لون علامة تبويب ورقة واحدة استنادًا إلى قيمة الخلية برمز VBA
قم بتغيير علامات تبويب الأوراق المتعددة بناءً على قيمة الخلية برمز VBA
قم بتغيير لون علامة تبويب ورقة واحدة استنادًا إلى قيمة الخلية برمز VBA
على سبيل المثال ، أريد أن يكون لون علامة تبويب الورقة الحالية باللون الأخضر إذا كانت قيمة الخلية في A1 هي النص "TRUE" ، سيكون لون علامة التبويب أحمر إذا كان النص في A1 هو "FALSE" ، ولون علامة التبويب سيكون أزرق إذا القيمة في الخلية A1 هي أي نص آخر كما هو موضح في لقطة الشاشة التالية:
1. انقر بزر الماوس الأيمن فوق علامة تبويب الورقة التي تريد تغيير لونها بناءً على البيانات الموجودة في الخلية A1 ، ثم اختر عرض الرمز من قائمة السياق.
2. في ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، انسخ والصق رمز 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 هو مرجع الخلية الذي تريد تلوين علامة التبويب بناءً عليه ، "صواب"،"خطأ"هو النص الذي تحتاجه ، يمكنك تغييره حسب حاجتك ، ويمكنك تغيير اللون في الكود حسب حاجتك.
3. ثم احفظ وأغلق نافذة التعليمات البرمجية هذه ، الآن ، عند إدخال النص "True" في الخلية A1 ، سيصبح لون علامة التبويب الحالية باللون الأخضر ، وعند إدخال النص "خطأ" في الخلية A1 ، سيصبح لون علامة التبويب أحمر ، وإذا تم إدخال نص آخر في الخلية A1 ، سيتحول لون علامة التبويب إلى اللون الأزرق تلقائيًا.
قم بتغيير علامات تبويب الأوراق المتعددة بناءً على قيمة الخلية برمز VBA
إذا كنت بحاجة إلى تغيير لون علامات تبويب الأوراق المتعددة بناءً على قيمة الخلية ، فإليك أيضًا رمز قد يساعدك ، فيرجى القيام بما يلي:
1. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، في النافذة المفتوحة ، انقر نقرًا مزدوجًا ThisWorkbook تحت مشروع VBAP ، ثم انسخ الكود أدناه والصقه في الفراغ وحدة:
رمز فبا: تغيير علامات تبويب الأوراق المتعددة بناءً على قيمة الخلية:
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 والماجستير هي الخلية وورقة العمل التي تريد تلوين علامة التبويب بناءً عليها ، Sheet1, Sheet2, Sheet3 هي أوراق العمل التي تريد تلوين علامات التبويب. KTE, KTW, KTO هي قيم الخلية في A1 التي تريد تلوين علامات التبويب بناءً عليها ، يمكنك تغيير المراجع والألوان في الكود حسب حاجتك.
2. ثم احفظ وأغلق نافذة الكود هذه ، الآن ، عند إدخال النص KTE في الخلية A1 من الورقة الرئيسية ، سيتم تلوين علامة التبويب Sheet1 باللون الأحمر ، عند إدخال KTO في الخلية A1 ، سيتم تلوين الورقة 2 باللون الأخضر ، ومتى قمت بإدخال KTW في الخلية A1 ، سيتم تلوين الورقة 3 باللون الأزرق ، انظر الصورة:
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!