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

تتحدث هذه المقالة عن تغيير قيمة الخلية تلقائيًا بناءً على لون خلفيتها في Excel. على سبيل المثال، إذا كانت الخلايا ذات لون الخلفية الأحمر في النطاق المحدد، فاملأ هذه الخلايا بالرقم 1، وبالنسبة للخلايا ذات لون الخلفية الأزرق، املأها بالرقم 0.

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

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

يمكنك تشغيل كود VBA أدناه لتغيير القيمة بناءً على لون الخلية في Excel. يرجى القيام بما يلي.

1. حدد النطاق الذي تحتاج إلى تغيير القيم فيه بناءً على لون الخلفية، ثم اضغط على مفتاحي Alt + F11 معًا لفتح نافذة Microsoft Visual Basic for Applications.

2. في نافذة Microsoft Visual Basic for Applications، انقر فوق إدراج > وحدة، ثم انسخ والصق كود VBA أدناه في نافذة الوحدة.

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

Sub ChangeValueBasedOnCellColor()
    Dim rg As Range
    Dim xRg As Range
    Set xRg = Selection.Cells
    Application.DisplayAlerts = False
    For Each rg In xRg
        With rg
            Select Case .Interior.Color
                Case Is = 255 'Red
                    .Value = 1
                Case Is = 15773696 'Blue
                    .Value = 0
            End Select
        End With
    Next
    Application.DisplayAlerts = False
End Sub

3. اضغط على مفتاح F5 لتشغيل الكود، وبعد ذلك يمكنك رؤية أن جميع الخلايا الحمراء في النطاق المحدد مملوءة بالرقم 1، والخلايا الزرقاء مملوءة بالرقم 0 كما هو موضح في لقطة الشاشة أدناه.