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で埋められていることが確認できます。