【Excel VBA】セル範囲の背景色を設定する方法

 やりたいこと

1行置きに背景色をつける

Excelで下記のようなデータがあるとします。

1行置きに背景色をつけて以下のようなデータにする方法について紹介します。

コードと解説は以下の通りです。
【VBA コード】

Sub 背景色設定()
    Dim 行番号 As Integer   '整数型の変数「行番号」を設定
    
    For 行番号 = 2 To 9 Step 2
    '「行番号」の値が2から9になるまで値を2つずつ増やしながら処理を繰り返す

        Range(Cells(行番号, 1), Cells(行番号, 5)).Interior.ColorIndex = 35
        '該当行の1列目から5列目の範囲の色を35に設定する

    Next 行番号
    'Nextの隣の行番号は省略できるが、どこまでが範囲かわかるように残しておく

End Sub

ポイント

 ループカウンターには負の値を指定できる

 今回はStep 2とすることで2ずつ値を増加させて、最終値を超えるとループが終了しました。

ループカウンターには負のを指定することもできます。

負の値を指定すると、最終値より小さくなるとループが終了します。

Interiorプロパティ

Interiorは「背景」という意味のプロパティです。

Range("A1").Interiorとすることで、「セルA1の背景」という意味になります。

ColorIndexプロパティ

ColorIndexはカラーパレットのインデックス番号で色を指定するプロパティです。

Range("A1").Interior.ColorIndex = 35とすることで、「セルA1の背景色を色番号35に設定する」という意味になります。

複数行のセル範囲に背景色を設定する

今回は Range(Cells(行番号, 1), Cells(行番号, 5))とすることで1行置きに背景色を設定しましたが、Cellsプロパティの中で計算することも可能です。

Range(Cells(行番号, 1), Cells(行番号 + 1, 5))とすることでA2からE9までを一気に選択することができます。

ひとこと

Stepを使用する際は、初期値と最終値の関係に注意が必要です。

実際に動かして動作を確認してみてください(^-^)

できるシリーズはフルカラーでかなり細かいところまで画像を使って解説してあるのでオススメです！

リンク