条件で色分けするマクロ

教えてください！
お願いします。
本当にマクロを勉強したてで、ほとんどわかりません。

エクセル（XP/ver,2003）でリストを作成し、その中に特定の文字が入力されるとセルに特定の色がつくようにしたいのです。

例：A1に合格と文字を入れるとA1：E1までのセルが赤く塗りつぶされる。（リストはA1：E500の予定）

本当に基本的な質問で恐縮ですが、ご回答お願いいたします。

No.2 ベストアンサー 回答者： quicon9ue 回答日時： 2010/02/16 23:22

こういう感じです。

Sub test()
i = 1
For Each c In Range(Cells(1, 1), Cells(1, Cells(1, ActiveSheet.Columns.Count).End(xlToLeft).Column))
　If c.Value = "合格" Then
　Range(Cells(1, i), Cells(5, i)).Interior.ColorIndex = 3
　End If
i = i + 1
Next

この回答へのお礼

ありがとうございます～！！
できました！
明日イチで必要だったので、とっても助かりました。

ご親切に感謝です！！

お礼日時：2010/02/17 00:49

No.1 回答者： kmetu 回答日時： 2010/02/16 22:52

条件式書式では駄目でしょうか

数式が
=$A1="合格"

この回答への補足

言葉足らずですみませんでした。実はその特定のワードが８つほどあります。（そのため8種類に色分けしたいのです）

条件式書式では３種類までなので…
困っています。

補足日時：2010/02/16 22:55

この回答へのお礼

すみません。
マクロで解決しました。

ご回答ありがとうございました！

お礼日時：2010/02/17 00:50