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

質問

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

回答No.1

mitarashi

なさりたい事は次のどちらでしょうか？
１．A1:A10のセルのどれかに、”あ”～”お”のいずれかが入力されたとき、その文字に応じて、2つ離れたセルのフォントの色を変える。
２．A1:A10のセルのどれかに、”あ”～”お”のいずれかが入力されたとき、そのセルを参照しているセルのフォントの色を変える。
※入力されたのがA1なら、A1に対応したセルを対象とする。（A2～A10については対象としない）事が前提
どちらでも無ければ、補足してください。

１のコード
（こちらで十分ではないかと思いつつ）
Private Sub Worksheet_Change(ByVal Target As Range)
Dim myRange As Range, myCell As Range, myArea As Range

If Target.Cells.Count > 1 Then Exit Sub
If Intersect(Target, Range("A1:A10")) Is Nothing Then Exit Sub
Select Case Target.Value
Case "あ"
Target.Offset(0, 2).Font.ColorIndex = 3
Case "い"
Target.Offset(0, 2).Font.ColorIndex = 4
'....
End Select
End Sub

２のコード
（補欠なので、検証は不十分です）
Private Sub Worksheet_Change(ByVal Target As Range)
Dim myRange As Range, myCell As Range, myArea As Range
Dim myColorIndex As Long

If Target.Cells.Count > 1 Then Exit Sub
If Intersect(Target, Range("A1:A10")) Is Nothing Then Exit Sub
Select Case Target.Value
Case "あ"
myColorIndex = 3
Case "い"
myColorIndex = 4
'......
End Select
'直接参照だけにしたければDirectDependentsに変更
Set myRange = Target.Dependents
For Each myArea In myRange.Areas
For Each myCell In myArea.Cells
myCell.Font.ColorIndex = myColorIndex
Next myCell
Next myArea
End Sub

補足

さっそくの回答ありがとうございます！！
分かりやすくするつもりが逆効果でした・・・・。
もう一度、お願いできますか？？
ひとつのシート内に複数の文字列がありまして、これらはすべて＝ＶＬＯＯＫＵＰで参照されています。
これらを条件付き書式で色付けしたいんです！！頻繁にセルの内容が変更されるので、分かりやすく色付けをして決められた文字列に反応してもらいたいんですが、難しいでしょうか？よろしくお願いします。