Excel VBA １行おきに背景色を変える

Excel VBAで１行おきに背景色を変えるサンプルです。

下図はExcel2016です。

< スポンサーリンク >

行番号が偶数のセルの背景の色を変える

行番号が偶数だったら、行毎に背景色を赤に変えてみます。

※偶数かどうかはMod演算子を使って余りが0になるかどうかで判定します。

Sub test()
    Dim ws As Worksheet
    Dim i As Long

    Set ws = ActiveSheet

    For i = 1 To 10
        If i Mod 2 = 0 Then
            ws.Cells.Rows(i).Interior.Color = RGB(255, 0, 0)
        End If
    Next i
End Sub

セルの値が偶数のセルの背景の色を変える

セルの値が偶数だったら、行毎に背景色を赤に変えてみます。

※偶数かどうかはmod演算子を使って余りが0になるかどうかで判定します。

Sub test()
    Dim ws As Worksheet
    Dim i As Long

    Set ws = ActiveSheet

    For i = 2 To 10
        With ws
            If .Cells(i, 1).Value Mod 2 = 0 Then
                .Cells.Rows(i).Interior.Color = RGB(255, 0, 0)
            End If
        End With
    Next i
End Sub

< スポンサーリンク >※広告先のお問い合わせは広告主様にお願いします