Як змінити значення на основі кольору комірки в Excel?

У цій статті йдеться про автоматичне змінення значення комірки на основі кольору тла в Excel. Наприклад, якщо комірки заповнюються виділеним кольором червоного фону, то заповніть ці клітинки цифрою 1, а для клітинок синього кольору фону - 0.

Змінити значення на основі кольору комірки за допомогою коду VBA

Змінити значення на основі кольору комірки за допомогою коду VBA

Ви можете запустити наведений нижче код VBA, щоб змінити значення на основі кольору комірки в Excel. Будь ласка, виконайте наступне.

1. Виберіть діапазон, який вам потрібно змінити на основі кольору фону, а потім натисніть інший + F11 клавіші одночасно, щоб відкрити Microsoft Visual Basic для додатків вікна.

2 В Microsoft Visual Basic для додатків вікна, натисніть Insert > Модулі, а потім скопіюйте та вставте наведений нижче код 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, як показано на знімку екрана нижче.