５つの範囲にあるセルに色をつけるにはどうしたらよいですか

質問

エクセルについて教えて下さい。
書式の中にある【条件付き書式の設定】を使用し、
１<予算残<5,000
5,001<予算残<10,000
10,001<予算残<50,000
↑この上記３つの範囲にあるものをセルに色を付けています。
このほかに
500,000<予算残<1,000,000
1,000,001<予算残<1,500,000の範囲にあるものも
セルに色を付けたいと思っています。
この５つの範囲でセルに色を付けることができれば、
条件付き書式の設定以外でも構わないです。
どのようにしたらよいか教えて頂けないでしょうか。

回答No.1

zap35 · ベストアンサー

シート名タブを右クリックして以下のマクロを貼り付けてください。
その上で背景色を変えるセル範囲の部分（３行目）を変更してください
なお色は自由に変更してください。カラーインデックスは下記URLをご参照ください

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range, RNG As String
RNG = "C1:C20,C30:C40" ’←ここを色を変える範囲に変更　
For Each r In ActiveSheet.Range(RNG)
With r
Select Case .Value
Case Is <= 0
Case Is <= 5000
.Interior.ColorIndex = 5
Case Is <= 10000
.Interior.ColorIndex = 4
Case Is <= 50000
.Interior.ColorIndex = 6
Case Is <= 500000
Case Is <= 1000000
.Interior.ColorIndex = 13
Case Is <= 1500000
.Interior.ColorIndex = 31
Case Else
End Select
End With
Next r
End Sub

参考URL：

http://www.eurus.dti.ne.jp/~yoneyama/Excel/dic/dic02a.html#colorpalet

回答No.2

zap35

＃０１です。言葉足らずでしたね
「シート名タブを右クリック→コードの表示を選択して開いた画面に以下のマクロを貼り付けてください」
が正確な表現です。

補足

回答有難うございます。
何度かしてみたのですが、
マクロが実行されません。
やり方が間違っているのかもしれませんので
下記のとおりで合っているか教えて下さい。
エクセルを起動し、タブを選択し、右クリックして
『コード表示』をクリックします。
General　changeというところが開き
そこにマクロをコピー貼付をしました。
そのあと、上書き保存をしました。
コード表示のところで実行ボタンを押しました。
エクセルにもどり、確認をしましたが、
変化はありませんでした。
間違っている所を教えて頂けますか。