EXCEL マクロ 条件によるセルの色付け

質問

お世話になります。

マクロは初心者です。

C列の数値1～6によって、E列に色付けしたく、ネットで色々検索して、
下記のように組んだのですがコマンドボタンクリックでは上手く動かない
のですが、どのように修正すればよいのでしょうか。教えて下さい。
宜しくお願いします。

Private Sub CommandButton4_Click()

Dim i As Range
Dim r As Range
Dim c As Range
Dim myColor As Long

Set i = Worksheets("マスタ").Range("C:C")
Set r = Worksheets("マスタ").Range("E:E")

If Intersect(Target, i) Is Nothing Then Exit Sub

For Each c In Intersect(Target, i)
With c
Select Case .Value
Case "1"
myColor = 22
Case "2"
myColor = 44
Case "3"
myColor = 6
Case "4"
myColor = 43
Case "5"
myColor = 41
Case "6"
myColor = 24

Case Else
myColor = xlColorIndexNone
End Select
Intersect(c.EntireRow, r).Interior.ColorIndex = myColor
End With
Next

End Sub

回答No.2

kmetu · ベストアンサー

> C列の数値1～6によって、E列に色付け

だけなら

For Each c In i

とか

For Each c In Range("C1:C100")

とかでいいんじゃないですか。

お礼

有難うございました。
よくわからず、ネットで見つけたものを
そのまま使っていたので　

If Intersect(Target, i) Is Nothing Then Exit Sub

を入れていたのですが、いらなかったのですね。

回答No.1

kmetu

Target,ってなんでしょう？