エクセルのVBAについて教えてください。

質問

エクセルのVBAについて教えてください。

下記のような構文で、Dの行にAやBの文字が入力された時、その都度
セルの色が変わるようにはできたのですが、本当は、「C5」セルに文字が
入力された時、「C5」だけでなく「B5：J5」の範囲でセルの色を変えたい
のですが、どうすれば良いのでしょうか。
ご存知の方是非教えてください。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim myColor As Integer
If Target.Count > 1 Then Exit Sub
If Target.Column <>4 Then Exit Sub
Select Case Target.Value
Case "A"
myColor = 34 '水色
Case "B"
myColor = 40 '肌色
Case Else
myColor = xlNone
End Select
Target.Interior.ColorIndex = myColor
End Sub

回答No.1

myRange · ベストアンサー

Addressプロパティで、セルアドレスＣ５をチェックしましょう。

'-----------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
　Dim myColor
　If Target.Count > 1 Then Exit Sub

　If Target.Address <> "$C$5" Then Exit Sub

　Select Case Target.Value
　　　Case "A"
　　　　　myColor = 34 '水色
　　　Case "B"
　　　　　myColor = 40 '肌色
　　　Case Else
　　　　　myColor = xlNone
　End Select

　Range("B" & Target.Row).Resize(1, 9).Interior.ColorIndex = myColor

End Sub
'--------------------------------------------------------

以上です。

お礼

ありがとうございました。大変助かりました。
お礼が遅くなり申し訳ありませんでした。

回答No.2

jcctaira

セルの範囲をチェックし、カラー設定範囲を設定すれば分り易いし、範囲を追加した場合楽だと思います。

Private Sub Worksheet_Change(ByVal Target As Range)
　Dim 色設定範囲 As Range
　If Target.Count > 1 Then Exit Sub

　Select Case False
　　Case Intersect(Target, Range("D:D")) Is Nothing
　　　Set 色設定範囲 = Target
　　Case Intersect(Target, Range("C5")) Is Nothing
　　　Set 色設定範囲 = Range("B5：J5")
　　Case Else
　　　Exit Sub
　　End Select

　With 色設定範囲.Interior
　　Select Case Target.Value
　　　Case "A": .ColorIndex = 34 '水色
　　　Case "B": .ColorIndex = 40 '肌色
　　　Case Else: .ColorIndex = xlNone
　　End Select
　End With
End Sub

お礼

ありがとうございました。大変助かりました。お礼が遅くなり申し訳ありませんでした。