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

条件付き書式で色を変えたい場合

VBAではなく条件付き書式を使って１行おきに色を変える方法を知りたい場合はこちらの記事もご覧ください。