(no subject)

[nynike.livejournal.com]

в екселе есть три колонки отоброжающие цвет RGB. есть формула как перевести из RGB в HSV. как загнать формулу в ексель, чтобы при вводе параметров RGB выводились и параметры HSV?
Вот формула:

var_R = ( R / 255 ) //RGB from 0 to 255
var_G = ( G / 255 )
var_B = ( B / 255 )

var_Min = min( var_R, var_G, var_B ) //Min. value of RGB
var_Max = max( var_R, var_G, var_B ) //Max. value of RGB
del_Max = var_Max - var_Min //Delta RGB value

V = var_Max

if ( del_Max == 0 ) //This is a gray, no chroma...
{
H = 0 //HSV results from 0 to 1
S = 0
}
else //Chromatic data...
{
S = del_Max / var_Max

del_R = ( ( ( var_Max - var_R ) / 6 ) + ( del_Max / 2 ) ) / del_Max
del_G = ( ( ( var_Max - var_G ) / 6 ) + ( del_Max / 2 ) ) / del_Max
del_B = ( ( ( var_Max - var_B ) / 6 ) + ( del_Max / 2 ) ) / del_Max

if ( var_R == var_Max ) H = del_B - del_G
else if ( var_G == var_Max ) H = ( 1 / 3 ) + del_R - del_B
else if ( var_B == var_Max ) H = ( 2 / 3 ) + del_G - del_R

if ( H < 0 ) H += 1
if ( H > 1 ) H -= 1
}

Comments

[archaicos.livejournal.com]

По запросу rgb to hsv excel нагуглилась страничка http://www.rags-int-inc.com/PhotoTechStuff/AcrCalibration/RGB2HSB.html, где есть http://www.rags-int-inc.com/PhotoTechStuff/AcrCalibration/AcrCalibrate.xls, в котором считаются HSV по RGB. Ковыряйте. А вообще, в справке в excel все функции описаны. И if даже есть, который в найденном файле тоже используется.

[nynike.livejournal.com]

спасибо за файлик. если не смогу проще сделать, то он поможет.

[neor.livejournal.com]

так а не проще сделать макро с этим кодом?

[nynike.livejournal.com]

ну скорее всего, макрос нужен, но я с excel'ем не очень - не умею макросы писать. эсли это не сложно, может кто-нибудь подсобит.