White Tiger

Microsoft Excel VBA - 1行おきにセルの背景色に色を塗る方法

◆概要

このページは、Excel VBAで1行おきにセルの背景色に色を塗る方法について記載しています。

　表を見やすくするために一行おきに背景色を塗り替えたい場合があります。そんなときに色づけしたいセルを選択してから、下のマクロを実行すると選択範囲が一行おきに色づけされます。

Sub いち行おきにセルの背景色に色をつける()

    Selection.FormatConditions.Delete
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=MOD(ROW(),2)=0"
    Selection.FormatConditions(1).Interior.ColorIndex = 35

End Sub

◆詳細
　実は、これはマクロを使わなくてもエクセルの条件付き書式機能を使ってできます。
まず背景色を塗り替えたいセル範囲を選択します。 次に書式＞条件式書式より
「数式が」「=MOD(ROW(),2)=0」 を設定します。行番号が２で割り切れる行（偶数行）が設定した背景色に置き換わります。

▼ページトップへ

Link