各セルに色を塗るには

質問

エクセルで、３００×５００のセルがあり、その全てに１～８の数値がランダムに入っています。セルに入っている数値が、例えば１なら黄色、２なら緑、３は青、４はグレー、・・・というように、合計８色を各セルに塗りたいのです。初めは条件付き書式でやろうとしましたが、条件が３つまでしか指定できませんので、８色も塗れません。
初めに条件付き書式で３色だけぬり、その色を固定してその条件付き書式を解除し、次にまた３色塗ろうともしましたが、それも、初めの３色の条件が解除できません。別にシートにコピーしても、数値だけか条件付きがついたままコピーされるので、うまくいきません。

ひとつひとつのセルに色を塗るのは、１から８の数値がランダムのため、気の遠くなるような時間と労力が必要です。

どなたかいい方法があったら教えて下さい。

回答No.1

imogasi · ベストアンサー

この問題はＶＢＡが良いでしょう。
ＶＢＥ画面の標準モジュールに下記を貼りつけ、「データが入っているセルを範囲指定し」（忘れないこと）、実行してください。
Sub test02()
Dim cl As Range
For Each cl In Selection
Select Case cl
Case 1
cl.Interior.ColorIndex = 1
Case 2
cl.Interior.ColorIndex = 2
Case 3
cl.Interior.ColorIndex = 3
Case 4
cl.Interior.ColorIndex = 5
Case 5
cl.Interior.ColorIndex = 6
Case 6
cl.Interior.ColorIndex = 7
Case 7
cl.Interior.ColorIndex = 8
Case 8
cl.Interior.ColorIndex = 9
End Select
Next
End Sub
Ｃａｓｅの後のデータ値とColorIndex = の後の値とは
関係ありません。好きな色のColorIndex のコードを割り当ててください。（上記の１－９指定は、それに特に意味なし。）
またRGB(0,50,50)などの指定でも良く、その場合は
cl.Interior.Color =RGB(0,50,50)などと変えてください。
ただどの色がどのコードか調べる必要はありますが。
サンプルとして書式－セル－パターン－色指定を操作し、マクロの記録を取ると判ると思います。

お礼

完璧なお答えありがとうございました。
うまくいきました。
私はマクロは全くわからないのですが、
こんなに簡単にいろいろなことができるのなら、
少し勉強してみようと思います。