Палитра RGB

[R Dmitry]

а трех цветная еще лучше вам подойдет в УФ

[R Dmitry]

Сообщение от Discovery

Виноват, надо было приложить). К сожалению, у нас на работе 2003.

Sub test()
Dim MinNum&, MaxNum&
    MinNum = [ah7]: MaxNum = [ai7]
Randomize
   For i = 1 To 30
    For j = 1 To 30
    x = Int((MaxNum - MinNum + 1) * Rnd + MinNum)
        Cells(i, j) = x
           Cells(i, j).Interior.Color = FormatColor(MinNum, MaxNum, x)
        Next: Next
End Sub
Function FormatColor(Vmin, Vmax, Vl)
'http://www.programmersforum.ru/showthread.php?p=822263#post822263
'R Dmitry
' параметры функции: _
минимальное значение, максимальное значение, значение

Dim r&, g&, b&, x
x = ((Vl - Vmin) / (Vmax - Vmin)) * 100
Select Case x

Case 0 To 25
 r = o: b = 255
 g = 255 * ((x - 0) / 25)

Case 25 To 50
r = o: g = 255
 b = 255 - (255 * ((x - 25) /25))
 
Case 50 To 75
g = 255: b = 0
 r = 255 * ((x - 50) / 25)

Case 75 To 100

r = 255:    b = 0
 g = 255 - (255 * ((x - 75) / 25))
End Select
FormatColor = RGB(r, g, b)
End Function

Дмитрий

[R Dmitry]

посмотрел в 2003 ..........да не ахти работает и ошибки нашел
в общем переделал, больше годиться для 2007 и дальше
пример во вложении