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

質問

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

回答No.3

tom04

こんばんは！
実は昨日投稿しようと思っていたのですが、
質問の内容がイマイチ把握できなかったので差し控えていました。

今日もまだはっきりつかめていませんけど、
投稿してみます。

こんなことをご希望なのでしょうか？
↓の画像でSheet2に文字列の隣の列につけたい色を色見本として、表示しておきます。
Sheet1のすべてのデータを対象にしてみました。

Altキーを押しながらF11キーを押してみてください。
白い画面が出ますので、↓のコードをコピー＆ペーストしてマクロを実行してみてください。

Sub test()
Dim i, j, k As Long
Dim ws1, ws2 As Worksheet
Set ws1 = Worksheets("sheet1")
Set ws2 = Worksheets("sheet2")
For i = 1 To ws1.UsedRange.Rows.Count
For j = 1 To ws1.UsedRange.Columns.Count
If WorksheetFunction.CountIf(ws2.Range("A:A"), ws1.Cells(i, j)) Then
k = WorksheetFunction.Match(ws1.Cells(i, j), ws2.Range("A:A"), False)
ws1.Cells(i, j).Interior.ColorIndex = _
ws2.Cells(k, 2).Interior.ColorIndex
End If
Next j
Next i
End Sub

これでSheet1でSheet2のA列に一致するものにB列の色が表示されると思います。
以上、参考になれば良いのですが、
的外れならごめんなさいね。m(__)m

補足

こんなに丁寧にありがとうございます。
自分の説明ベタに付き合ってくれて感謝します。
Ｎｏ２さんに補足させてもらいました。よかったら見てみてもらえますか？
また意味が分からなかったらスミマセン・・・・・。