VBA初心者です。よろしくお願いします。
以下のコードを記述しています。
Dim Rng1 As Range
Dim Rng2 As Range
Dim c As Range
Dim myColor As Long
Set Rng1 = Range("M6:BU108")
If Intersect(Target, Rng1) Is Nothing Then Exit Sub
For Each c In Intersect(Target, Rng1)
With c
Select Case .Value
Case "文字1"
myColor = 6
Case "文字2"
myColor = 4
Case "文字3"
myColor = 8
Case "文字4"
myColor = 10
Case "文字5"
myColor = 10
Case "文字6"
myColor = 6
Case "文字7"
myColor = 8
Case Else
myColor = xlColorIndexNone
End Select
c.Interior.ColorIndex = myColor
End With
Next
End Sub
色が変わる範囲は
Set Rng1 = Range("M6:BU108")
ですが、実際にはM6から3つ飛びで指定したいです。
皆様の知恵をお借りしたいと思います。
よろしくお願いします。
回答2件
あなたの回答
tips
プレビュー