كيف يمكن تغيير لون تبويب الورقة بناءً على قيمة الخلية؟
بشكلٍ عام، يمكنك تغيير لون تبويب ورقة العمل في Excel بسهولة وسرعة، ولكن هل سبق أن جرّبت تغيير لون التبويب استنادًا إلى قيمة خلية معيّنة في الورقة؟ إذا كانت هذه المهمة تثير اهتمامك، فسأعرض لك بعض الأكواد التي تُلوّن تبويب الورقة تلقائيًا بناءً على قيمة تلك الخلية في Excel.
تغيير لون تبويب ورقة واحدة استنادًا إلى قيمة الخلية باستخدام كود VBA
تغيير ألوان عدّة علامات ورقة العمل استنادًا إلى قيمة الخلية باستخدام كود VBA
تغيير لون تبويب ورقة واحدة استنادًا إلى قيمة الخلية باستخدام كود VBA
على سبيل المثال، أريد أن يصبح لون تبويب ورقة العمل الحالية أخضر إذا كانت القيمة في الخلية A1 هي النص «TRUE»، وأن يصبح أحمر إذا كان النص في A1 هو «FALSE»، وأن يصبح أزرق إذا كانت القيمة في الخلية A1 أي نص آخر، كما هو موضح في لقطة الشاشة التالية:
1. انقر بزر الماوس الأيمن على تبويب الورقة التي تريد تغيير لونها استنادًا إلى البيانات في الخلية A1، ثم اخترعرض الكودمن قائمة السياق.
2. في نافذةمايكروسوفت فيجوال بيسك للتطبيقات، انسخ والصق كود VBA أدناه في نافذةالوحدة البرمجية (Module).
كود 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، فسيتغير لون التبويب تلقائيًا إلى الأزرق.
افتح سحر إكسل مع KUTOOLS AI
- التنفيذ الذكي: نفِّذ عمليات الخلايا، وحلِّل البيانات، وأنشئ المخططات البيانية — كل ذلك بأوامر بسيطة!
- الصيغ المخصصة: أنشئ صيغًا مخصصة لتبسيط سير عملك.
- برمجة VBA: اكتب وأَنفِذ أكواد VBA بسلاسة تامة.
- تفسير الصيغ: افهم الصيغ المعقدة بسهولة!
- ترجمة النصوص: اكسر الحواجز اللغوية في جداولك الإلكترونية!
تغيير ألوان عدّة علامات ورقة العمل استنادًا إلى قيمة الخلية باستخدام كود VBA
إذا كنت بحاجة إلى تغيير ألوان عدة علامات في ورقة العمل بناءً على قيمة خلية معينة، فهناك كود يمكن أن يساعدك. يُرجى اتباع الخطوات التالية:
1. اضغط مع الاستمرار على مفتاحَيALT + F11 لفتح نافذةمايكروسوفت فيجوال بيسك للتطبيقات، ثم في النافذة المفتوحة، انقر مرتين علىThisWorkbook ضمن قسمVBAProject، وبعد ذلك انسخ والصق الكود أدناه في نافذةالوحدة البرمجية (Module):
كود 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل