エクセルの条件付き書式の条件を増やしたい

質問

文字列のデータのなかで別のセルに入力した文字と一致するセルに着色したいのですが条件付き書式を使用し３色の指定（条件１、条件２、条件３）はできますが、検索するセル（入力セル）を１０個（１０色）に増やしたいのですが可能でしょうか？ウインドウズＸＰ　エクセル２００３を使用しています。よろしくお願いいたします。

回答No.3

tom04 · ベストアンサー

No.2です！
たびたびごめんなさい。

前回の投稿文の中で少し抜けている部分がありましたので、訂正させてください。

＞画面左下の「Sheet1」のSheet見出し上で右クリック　→　VBE画面が・・・
の部分を
＞・・・Sheet見出し上で右クリック　→　コードの表示　→　VBE画面が・・・

です。

途中の「コードの表示」を書き忘れたばかりに、操作方法が判りにくかったと思います。

何度も失礼しました。m(_ _)m

回答No.2

tom04

こんにちは！
No.1さんが仰っているようにExcel2003以前のバージョンでは
条件付書式の設定は3つまでとなります。

そこでVBAでの一例です。
↓の画像は当方使用のExcel2003でやってみました。
Sheet1のA列のセルに色を付けたい場合です。
Sheet2にデータ・セル色を入れておきます。

画面左下の「Sheet1」のSheet見出し上で右クリック　→　VBE画面がでますので、
↓のコードをコピー＆ペーストしてSheet1のA列データを変えてみてください。

Private Sub Worksheet_Change(ByVal Target As Range) 'この行から
Dim i, j As Long
Dim ws As Worksheet
Set ws = Worksheets("sheet2")
If Intersect(Target, Columns(1)) Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Columns(1).Interior.ColorIndex = xlNone
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If WorksheetFunction.CountIf(ws.Columns(1), Cells(i, 1)) Then
j = WorksheetFunction.Match(Cells(i, 1), ws.Columns(1), False)
Cells(i, 1).Interior.ColorIndex = ws.Cells(j, 2).Interior.ColorIndex
End If
Next i
Application.ScreenUpdating = True
End Sub 'この行まで

※　もし条件付書式の設定がある場合はVBAでは条件付書式で色付されたセルの色変更ができませんので
条件付書式をすべて削除してください。

以上、参考になれば良いのですが・・・m(_ _)m

お礼

丁寧なご回答ありがとうございます。
ＶＢＡ操作は初めてになりますがやって見ます。

回答No.1

KURUMITO

条件付き書式の設定ではできませんね。マクロが必要となります。

お礼

エクセル２００３では条件付き書式は３条件までですね。２００７ではもっと増やせるようになっていました。どうもありがとうございました。