Excelでセルの色に基づいて値を変更するにはどうすればよいですか？

この記事では、Excelの背景色に基づいてセル値を自動的に変更する方法について説明します。 たとえば、選択時に赤い背景色で塗りつぶされたセルの場合は、これらのセルに番号1を入力し、青い背景色のセルの場合は、番号0を入力します。

VBAコードでセルの色に基づいて値を変更する

VBAコードでセルの色に基づいて値を変更する

以下のVBAコードを実行して、Excelのセルの色に基づいて値を変更できます。 次のようにしてください。

1.背景色に基づいて値を変更する必要がある範囲を選択し、を押します 他の + F11 キーを同時に開いて アプリケーション向け Microsoft Visual Basic 窓。

2。 の中に アプリケーション向け Microsoft Visual Basic ウィンドウ、クリック インセット > モジュール、次に、以下の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で塗りつぶされていることがわかります。