0

Excel: 4つ以上の条件付き書式 マクロを使って、F列とG列の値によって、B～E列の色を変えようとしています。
過去の質問[http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1318729928]を参考にして、見よう見まねで
下記の様に書いて見たのですがうまく動作しません(色が全く変わらない):

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng1 As Range
Dim Rng2 As Range
Dim Rng3 As Range
Dim c As Range
Dim d As Range
Dim myColor As Long

Set Rng1 = Range("F7:F82")

Set Rng2 = Range("G7:G82")

Set Rng3 = Range("B7:E82")

For Each c In Intersect(Target, Rng1)
For Each d In Intersect(Target, Rng2)
With c And d
Select Case True
Case c = "" And d = ""
myColor = 0
Case c = "済" And d = "済"
myColor = 1
Case c = "済" And d = ""
myColor = 2
Case c = "済" And d = "未"
myColor = 3
Case c = "済" And d = "作業中1"
myColor = 4
Case c = "済" And d = "作業中2"
myColor = 5
Case c = "未" And d = "済"
myColor = 6
Case c = "未" And d = "未"
myColor = 7
Case c = "未" And d = ""
myColor = 8
Case c = "未" And d = "作業中1"
myColor = 9
Case c = "未" And d = "作業中2"
myColor = 10
Case c = "" And d = "済"
myColor = 11
Case c = "" And d = "未"
myColor = 12
Case c = "" And d = "作業中1"
myColor = 13
Case c = "" And d = "作業中2"
myColor = 14
Case c = "作業中1" And d = "済"
myColor = 15
Case c = "作業中1" And d = "未"
myColor = 16
Case c = "作業中1" And d = ""
myColor = 17
Case c = "作業中1" And d = "作業中1"
myColor = 18
Case c = "作業中1" And d = "作業中2"
myColor = 19
Case c = "作業中2" And d = "済"
myColor = 20
Case c = "作業中2" And d = "未"
myColor = 21
Case c = "作業中2" And d = ""
myColor = 22
Case c = "作業中2" And d = "作業中1"
myColor = 23
Case c = "作業中2" And d = "作業中2"
myColor = 24
Case Else
myColor = xlColorIndexNone
End Select
Intersect(c.EntireRow, Rng3).Interior.ColorIndex = myColor
End With
Next
End Sub

Excel側の設定が間違っているのか、上のマクロが間違っているのか分かりません。
上の内容で間違いがあるのかどうか、ご確認いただけないでしょうか。

よろしくお願いします。

質問者が選んだベストソリューション

Yahoo!知恵袋 4435日前