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

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

VBAセル1行おき

下図はExcel2016です。

 

< スポンサーリンク >

 

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

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

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

VBAセル1行おき

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

VBAセル1行おき

VBAセル1行おき

 

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

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

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

VBAセル1行おき

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セル1行おき

VBAセル1行おき

 

< スポンサーリンク >



サブコンテンツ

このページの先頭へ