HEX十六进制转换为RGB：

Dim hexval : hexval = "fdfeff" 

Dim rgbval : rgbval = CLng("&h" & hexval) 

Dim r_RGB : r_RGB = (rgbval And &hff0000&)/65536 

Dim g_RGB : g_RGB= (rgbval And &h00ff00&)/256 

Dim b_RGB : b_RGB= (rgbval And &h0000ff&) 

RGB转换为HEX十六进制：

if not len(r_RGB)=0 and not len(g_RGB)=0 and not len(b_RGB)=0 and isnumeric(r_RGB) and isnumeric(g_RGB) and isnumeric(b_RGB) then

if cint(r_RGB)<0 then r_RGB=0

if cint(r_RGB)>255 then r_RGB=255

if cint(g_RGB)<0 then g_RGB=0

if cint(g_RGB)>255 then g_RGB=255

if cint(b_RGB)<0 then b_RGB=0

if cint(b_RGB)>255 then b_RGB=255

r_HEX=hex(r_RGB)

g_HEX=hex(g_RGB)

b_HEX=hex(b_RGB)

if len(r_HEX)=1 then r_HEX="0" & r_HEX

if len(g_HEX)=1 then g_HEX="0" & g_HEX

if len(b_HEX)=1 then b_HEX="0" & b_HEX

disp_col="#" & r_HEX & g_HEX & b_HEX

else

r_RGB=0

g_RGB=0

b_RGB=0

disp_col="#000000"

end if