VBAでセルに色付けする

判定用のセルに数字を入れるとその行が色付けされるというマクロ。
ワークシートで関数を駆使することによって使い勝手がよくなると思います。

' 色づけ範囲指定用変数
Dim Lef As Integer
Dim Rig As Integer
Dim Upp As Integer
Dim Dow As Integer

Lef = 2
Rig = 6
Upp = 7
Dow = 29

' 判定範囲設定
Dim JudCo As Integer
Dim JudUp As Integer
Dim JudDo As Integer

JudCo = 1
JudUp = Upp
JudDo = Dow

' カウンタ用変数
Dim i As Integer
i = 0

' 判定2なら色づけ薄いグレー
' For i = Upp To Dow
' If Cells(1, 1).Value = 1 Then
' Range(Cells(i, Lef), Cells(i, Rig)).Interior.ColorIndex = 15
' End If
' Next

' 判定3なら色づけ黄色
For i = Upp To Dow
If Cells(i, JudCo).Value = 3 Then
Range(Cells(i, Lef), Cells(i, Rig)).Interior.ColorIndex = 6
End If
Next

' 判定なしなら色づけクリア
For i = Upp To Dow
If Cells(i, JudCo).Value = "" Then
Range(Cells(i, Lef), Cells(i, Rig)).Interior.ColorIndex = xlNone
End If
Next

カラーインデックスはこちら参考にしました。

http://www.relief.jp/itnote/archives/000482.php