523066680

打开看了一下，很友好背景和字体。

523066680

不知道我有没有绕弯路

Excel中的颜色值是通过索引值设置的，
如果是通过 R,G,B 三个值设置颜色成分，则比较方便自己调配颜色。
经过几个颜色的尝试，找出了索引值与RGB值之间的规律
分三段(二进制)
例如  0000000,00000000,11111111 代表填满的红色
其最终值=255    （B,G,R）

以下代码通过 R,G,B 的值得到索引值
R,G,B的传值范围是 0 到 8 （整数哈,0,1,2,3,4,5,6,7,8依次代表不同的浓度）

msgbox ColorRGB(8,8,0)     '红+绿 = 黄

function ColorRGB(Cr,Cg,Cb)
	dim R,G,B,str,num,i
	'Cr,Cg,Cb range [0,8]
	R=string(Cr,"1") & string((8-Cr),"0")
	G=string(Cg,"1") & string((8-Cg),"0")
	B=string(Cb,"1") & string((8-Cb),"0")
	str=R & G & B
	num=0
	for i = 1 to 24
		num=num+(mid(str,i,1)*2)^(i-1)
	next
	ColorRGB=num
end function
复制代码

尝试写了一个过渡的填充颜色，每个颜色只有8个阶，而且实际还有几个颜色接近黑色，不绚丽啊。