入力される数字により違う色をつけたい

質問

エクセルで、セルに入力される数字（1～6）により、違う色を
つけたいのです。
セル範囲はB2:H6です。
条件付書式では３つまでしか出来ません。（と思っています）
６つの条件だと、VBAでないと無理なのでしょうか。
もし出来るなら、どんなコードになりますか。
ご教授ください。よろしくお願いします。

回答No.1

imogasi · ベストアンサー

入力が終わって、まとめて、下記を実行し、B2:H6に色をつけます。
VBEの標準モジュールに貼り付けます。
Sub test02()
Dim cl
Dim c
Dim i
c = Array(1, 3, 2, 4, 3, 6, 4, 7, 5, 9, 6, 20)
For Each cl In Range("B2:H6")
For i = 0 To UBound(c) Step 2
If cl = c(i) Then
cl.Interior.ColorIndex = c(i + 1)
End If
Next i
Next
End Sub
ーー
コードを実行する前に
Sub test03()
Dim i
For i = 1 To 50
Cells(i, "A").Interior.ColorIndex = i
Cells(i, "A") = i
Next i
End Sub
を実行して色コードを知り、
c = Array(1, 3, 2, 4, 3, 6, 4, 7, 5, 9, 6, 20)
の初めからのペアにしてください。
上記Arrayの括弧の中は
1には色コード 3,
2には色コード 4,
3には色コード 6,
・・
の対応を作っています。
数字を入れたとき即時とかになると、イベントという考え方になり
すこし難しくなるので略。
ーー
エクセル・オフィス２００７を買えば、操作で、即解決のようですよ。

お礼

imogasiさん、早速ありがとうございました。
すごいですね。
Sub test03にも実行した瞬間、びっくりでした。
2007の情報もありがとうございました。
本当は「数字を入れたとき即時に」を知りたかったのですが、
もう少し勉強してからにします。
又よろしくお願いします。