如何根據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，如下方截圖所示。