Как изменить значение на основе цвета ячейки в 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, как показано на скриншоте ниже.