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

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

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

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

يمكن أن يساعدك الكود التالي الخاص بـ VBA في تغيير لون الشكل بناءً على قيمة الخلية، يرجى القيام بما يلي:

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

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

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 هي قيمة الخلية التي سيتم تغيير لون الشكل بناءً عليها، وOval 1 هو اسم الشكل الذي قمت بإدراجه، يمكنك تغييرها حسب الحاجة.