エクセル２００３で条件付き書式での色付けを５つ以上設定したいのですが

質問

エクセル２００３で条件付き書式での色付けを５つ以上設定したいのですが、ＶＢＡで対応するしか
ないということでした。
Ａ１：Ａ１０に”あ”～”お”をランダムに入力したとして、Ａ１：Ａ１０をＣ１：Ｃ１０に参照して、このＣ列に反映された文字に色付けしたいのですが、いろいろＶＢＡでの条件付き書式を探してみたんですが、入力したセルの色付けはできても参照したセルの色付けができませんでした。可能かどうかも分かりませんが、できる方がいたらよろしくお願いします。

回答No.2

mitarashi

#1です。良く分かりません。

　A　　　B　　　C　　　D　　　E　　　　F
1　い　　　　　　Ｂ　　　　　　あ　　　　Ａ
2　　　　　　　　　　　　　　　い　　　　Ｂ
3　　　　　　　　　　　　　　　う　　　　Ｃ

の様な配置だとして、C1に、
=VLOOKUP(A1,$E$1:$F$3,2,FALSE)
といった式が入っている時、
A1の値に応じてC1の文字色を変えたいというご趣旨なら、
#1の2番目のコードで（実用上は1番目のコードでも）良いと思いますが、
そうでなければ、上記の様な例または、画像で補足してください。

なお、#1-2のコードで、参照しているセルが存在しないとエラーで止まってしまうので
Set myRange = Target.Dependentsのところを、下記の通り変更して下さい。
On Error Resume Next
Set myRange = Target.Dependents
If myRange Is Nothing Then
'該当セルなし
Exit Sub
End If
On Error GoTo 0

補足

本当に何回もすみません。
ただ条件付き書式で色付けをしたいだけなんです・・・・。

　　Ａ　Ｂ　Ｃ　Ｄ　 Ｅ　Ｆ
１　あ １ 　 1　　　 い ３
２　い ３　 ３　　　 あ １

C１に=vlookup(A1,$E$1:$F2,2,false)
というような式が入っていたとして、これをＣ列に複数コピーしてあります。そこでＣ列のセルを１だったら赤、３だったら青に塗りつぶすようにしたいんです・・・・・。
・・・・・といいますか、このシート内のすべての１や３を色付けしてもいいんです。
ただ、いままで見つけてきたＶＢＡでの条件付き書式が、このＣ列のように他から参照してきた場合、色付けしてくれなくて・・・・・。範囲はシート全体でもいいので、色付けの条件（文字）を５つ以上設定できるようにして欲しいんです。
本当にわがまま言ってすみません。
見捨てないでください！！