条件で色分けするマクロ

質問

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

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

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

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

回答No.2

quicon9ue · ベストアンサー

こういう感じです。
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

お礼

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

ご親切に感謝です！！

回答No.1

kmetu

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

数式が
=$A1="合格"

お礼

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

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

補足

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

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