エクセルのVBAを使った条件付き書式

質問

VBAの初心者です。というか使ったことがありません。
4つ以上の条件付き書式はVBAが必要になるようなので困惑中です。

下記の条件付き書式をVBA作りたいと思っています。
「1」を含む値の場合セルの背景を黄色に
「2」を含む値の場合セルの背景を緑色に
「3」を含む値の場合セルの背景を水色に
「4」を含む値の場合セルの背景を赤色に
例）
1北海道　→　セルの背景を黄色
2山形　→　セルの背景を緑

これを実現するVBAのコードを教えてください。
また、そのコードをどこに貼付ければいいのでしょうか？
まったくの初心者で申し訳ありません。

回答No.5

merlionXX · ベストアンサー

#1,#4のmerlionXXです。

先ほどの#4では、一旦１を選んでから、２～４を選びなおしても１としてカウントされたままでした。
訂正します。

Dim a As Integer

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
If Selection.Count > 1 Then Exit Sub
a = Target.Value
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
If Selection.Count > 1 Then Exit Sub
x = Target.Value
c = 0
If a = 1 Then
If x Like "1*" Then c = 6
If x Like "2*" Then c = 4: Range("B1").Value = Range("B1").Value - 1
If x Like "3*" Then c = 34: Range("B1").Value = Range("B1").Value - 1
If x Like "4*" Then c = 3: Range("B1").Value = Range("B1").Value - 1
Else
If x Like "1*" Then c = 6: Range("B1").Value = Range("B1").Value + 1
If x Like "2*" Then c = 4
If x Like "3*" Then c = 34
If x Like "4*" Then c = 3
End If
Target.Interior.ColorIndex = c
End Sub

お礼

ありがとうございます！
これで目的が達成できそうです。
最後にお伺いしたいのですが、VBAを学ぶのにmerlionXXさんがおすすめする書籍がありましたら教えていただけないでしょうか。
全くの初心者向けでお願いします。