如何根据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，如下图所示。