エクセル2003で、数式で出されたセルの値によって、そのセル自体を塗り

質問

エクセル2003で、数式で出されたセルの値によって、そのセル自体を塗り分けしたいのですが、７種類あるため条件付書式では対応出来ず困っています。

具体的には「２．７０００～２．７０９９」ならピンク、「２．７１００～２．７１９９」なら黄色、「２．７２００～２．７２９９」なら黄色「２．７３００～２．７３９９」なら緑色「２．７４００～２．７４９９」なら青色「２．７５００～２．７５９９」なら紫「２．７６００～２．７６９９」なら灰色
という具合です

漠然としていて申し訳ないのですが、マクロを使用したいと思っています。お力を貸していただけないでしょうか？

回答No.2

keithin · ベストアンサー

＞数式で出されたセルの値によって、そのセル自体を塗り分けしたい

マクロに精通しているともっと高速なマクロにチューニングできますが，今の丸投げの様子では無理そうなので，とりあえず「Ａ列にある数式セル」を毎回色を塗ります。

手順：
シート名タブを右クリック，コードの表示を選ぶ
現れたシートに下記をコピー貼り付ける

Private Sub Worksheet_Calculate()
　Dim h As Range
　Dim c

　’色を塗るセル範囲を変更するのはここ
　For Each h In Range("A:A").SpecialCells(xlCellTypeFormulas)

　Select Case h.Value
　Case Is < 2.7
　　c = xlNone
　Case Is < 2.71
　　'「２．７０００～２．７０９９」ならピンク、
　　c = 7
　Case Is < 2.72
　　'「２．７１００～２．７１９９」なら黄色、
　　c = 6
　Case Is < 2.73
　　'「２．７２００～２．７２９９」なら黄色
　　c = 6
　Case Is < 2.74
　　'「２．７３００～２．７３９９」なら緑色
　　c = 10
　Case Is < 2.75
　　'「２．７４００～２．７４９９」なら青色
　　c = 5
　Case Is < 2.76
　　'「２．７５００～２．７５９９」なら紫
　　c = 13
　Case Is < 2.77
　　'「２．７６００～２．７６９９」なら灰色
　　c = 15
　Case Else
　　c = xlNone
　End Select

　h.Interior.ColorIndex = c
　Next

End Sub

ファイルメニューから終了してエクセルに戻る。
再計算が走る都度，Ａ列を塗り替える。

＃塗りたい色のご説明が変だったりしますので，またもうちょい違う色にしたい時も，下記のURLを参考に自力で色の番号（ｃ＝５とかの所）を直してみてください。
あといわずもがなですが，ご相談の状況では通常よく使われるchangeイベントのマクロは，そのままでは使えません。（高速なマクロにチューニングする時には使いますが）

参考URL：

http://furyu.tea-nifty.com/annex/2006/05/excel_cab9.html

お礼

どなたの回答も非常に分かりやすく助かりましたので、先に回答された順でベストを選ばせていただきます。ありがとうございました。。