エクセル２００３のＶＢＡで困っています。

質問

エクセル２００３のＶＢＡで困っています。
Ｄ３～Ｄ５０の中で○のセルが合った場合にその行のＡ列～Ｃ列までのセル背景を青く塗るようにしたいです。
ちなみに△の場合は黄色で×の場合は赤色でそれ以外の場合は塗色なしにしたいです。

上記の説明が分かにくいかもしれないので、もう少し具体例を言います。
Ｄ３～Ｄ５０の中でＤ５が○だったらＡ５～Ｃ５の背景を青色
Ｄ１０が△だったらＡ１０～Ｃ１０の背景を黄色
Ｄ１５が×だったらＡ１５～Ｃ１５の背景を赤色
Ｄ２０がそれ以外だったらＡ２０～Ｃ２０の背景を塗色なし
を各行（Ｄ３～Ｄ５０）になるようにしたいです。

以上ですが、急ぎですので誰かお願い致します。

回答No.1

tom04

こんばんは！
VBAでなくても条件が3つみたいなので条件付書式で対応できると思います・・・

A3～C50を範囲指定し、条件付書式の条件1で「数式が」を選択し、数式欄に
=$D3="○"　として書式のパターンから「青」を
条件を追加して、条件2で数式欄に
=$D3="△"　として、「黄色」を
条件3の数式欄に
=$D3="×"　として「赤」を選択しても大丈夫だと思います。

どうしてもVBAで！というのであれば、一例ですが
↓のコードを貼り付けてみてはどうでしょうか？

Sub test()
Dim i As Long, j As Long
For i = 3 To 50
For j = 1 To 3
Select Case Cells(i, 4)
Case "○": Cells(i, j).Interior.ColorIndex = 5
Case "△": Cells(i, j).Interior.ColorIndex = 6
Case "×": Cells(i, j).Interior.ColorIndex = 3
Case Else: Cells(i, j).Interior.ColorIndex = 0
End Select
Next j
Next i
End Sub

以上、参考になれば良いのですが
他に良い方法があれば読み流してくださいね。m(__)m