VBAでセルに背景色を設定（カラーパレットorRGB）

質問

VBA初心者です。
値によって背景色を設定したいのですが、条件が3つ以上で設定したいため、条件書式は使えず困っています。
5～10段階の任意にUnitを選択し（Inputboxなどで入力するのでしょうか？）、それに応じて背景色を設定したいのです。

1．A1:Z15まで数値が並んでいる
2.最大値と最小値を取得し、その間で例えば10に分けて色分けする。

※表で見る等高線のようなイメージです。
そもそも等高線に一般的に使われる色もよく判っていませんが、Unitに応じて寒色にしたり、暖色にしたりなんてことが出来るのでしょうか？

回答No.3

Wendy02

こんばんは。Wendy02です。

＞「Rangeメソッドは失敗しました。Globalオブジェクト」
すみません、まるっきり間違ったコードを書いていました。

なるべく、標準モジュール（記録マクロが書かれる場所と同じところ）にしてくださいね。シートモジュールの場合は、色づけする場所に置いてくださいね。

Sub 色見本()
Dim i As Integer
With ActiveCell
For i = 0 To 56 '56以上はありません
　.Offset(i, 0).Value = i
　.Offset(i, 1).Value = i: .Offset(i, 1).Interior.ColorIndex = i
Next i
End With
End Sub

Sub TestColoring()
　 Dim lngMin As Double, lngMax As Double, unit As Double
　 Dim ci As Integer, c As Object, myRng As Range
　 Set myRng = ActiveSheet.Range("A1:Z15")
　 '最小値
　 lngMin = WorksheetFunction.Min(myRng)
　 '最大値
　 lngMax = WorksheetFunction.Max(myRng)
　 '１ユニット
　 unit = (lngMax - lngMin) / 10
　 If unit <> 0 Then
　 For Each c In myRng
　　 If VarType(c) = vbDouble Then
　　　ci = (c.Value - Min) \ unit
　　　'色の始まり ColorIndex =31
　　　c.Interior.ColorIndex = ci + 31
　　　End If
　 Next c
　 Else
　　　myRng.Interior.ColorIndex = ci + 31
　End If
End Sub

お礼

修正版もご返答下さりありがとうございます。
実行すると気に入った内容になりました。
また、色の見本を見ながら、色の開始位置を変えて見易くしたりと、初心者の私でもわかる内容で感謝しています。

＞ci = (c.Value - DMin) \ DUnit

１点だけ、valueの意味がよく分かりませんでした（cのみではNGでしょうか？）
まだまだ私は勉強が必要です。

こういう場合、皆さんもカラーパレットをお使いなのでしょうか？
RGBでTRYしてみましたが、私には非常に難しかったです。