كيفية تغيير لون الشكل بناءً على قيمة الخلية في Excel؟
قد يكون تغيير لون الشكل بناءً على قيمة خلية معينة مهمة مثيرة للاهتمام في Excel ، على سبيل المثال ، إذا كانت قيمة الخلية في A1 أقل من 100 ، يكون لون الشكل أحمر ، إذا كان A1 أكبر من 100 وأقل من 200 ، لون الشكل أصفر ، وعندما يكون A1 أكبر من 200 ، يكون لون الشكل أخضر كما هو موضح في لقطة الشاشة التالية. لتغيير لون الشكل بناءً على قيمة الخلية ، ستقدم لك هذه المقالة طريقة.
قم بتغيير لون الشكل بناءً على قيمة الخلية باستخدام كود VBA
قم بتغيير لون الشكل بناءً على قيمة الخلية باستخدام كود VBA
يمكن أن يساعدك رمز VBA أدناه في تغيير لون الشكل بناءً على قيمة الخلية ، يرجى القيام بما يلي:
1. انقر بزر الماوس الأيمن فوق علامة تبويب الورقة التي تريد تغيير لون الشكل ، ثم حدد عرض الرمز من قائمة السياق ، في النافذة المنبثقة ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، يرجى نسخ ولصق الكود التالي في الفراغ وحدة نافذة.
كود فبا: تغيير لون الشكل بناء على قيمة الخلية:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20160704
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
If IsNumeric(Target.Value) Then
If Target.Value < 100 Then
ActiveSheet.Shapes("Oval 1").Fill.ForeColor.RGB = vbRed
ElseIf Target.Value >= 100 And Target.Value < 200 Then
ActiveSheet.Shapes("Oval 1").Fill.ForeColor.RGB = vbYellow
Else
ActiveSheet.Shapes("Oval 1").Fill.ForeColor.RGB = vbGreen
End If
End If
End Sub
2. وبعد ذلك ، عند إدخال القيمة في الخلية A1 ، سيتم تغيير لون الشكل بقيمة الخلية كما حددتها.
ملاحظات: في الكود أعلاه ، A1 هي قيمة الخلية التي سيتغير لون الشكل بناءً عليها ، و البيضاوي شنومكس هو اسم شكل الشكل الذي قمت بإدخاله ، يمكنك تغييره حسب حاجتك.
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!