用循环创build颜色
我想通过循环增加颜色值来创build最多十二种不同的颜色。 问题是我得到相同颜色或太亮或太暗的阴影。 我正在使用interior.color = xxxxxxx 。
任何想法如何实现一些漂亮的颜色？
这将使一个不错的彩虹:)
Sub colors() Application.ScreenUpdating = False r = 1 c = 1 rv = 50 Do Until rv >= 255 gv = 50 r = 1 Do Until gv >= 255 bv = 50 c = 1 Do Until bv >= 255 Cells(r, cc + c).Interior.Color = RGB(rv, gv, bv) 'Print Nnumbers for color 'Cells(r, cc + c).Value = rv & ", " & gv & ", " & bv bv = bv + 20 c = c + 1 Loop gv = gv + 20 r = r + 1 Loop rv = rv + 20 cc = cc + 1 Loop Do Until rv <= 0 gv = 50 r = 1 Do Until gv >= 255 bv = 50 c = 1 Do Until bv >= 255 Cells(r, cc + c).Interior.Color = RGB(rv, gv, bv) 'Print Nnumbers for color 'Cells(r, cc + c).Value = rv & ", " & gv & ", " & bv bv = bv + 20 c = c + 1 Loop gv = gv + 20 r = r + 1 Loop rv = rv - 20 cc = cc + 1 Loop End Sub
免责声明：这不会产生一个完整的色轮，只是得到了一个很好的部分。 例如，它缺less粉红色。
你可以使用.Interior.colorindex = i ， i是一个从0到56的整数，如http://dmcritchie.mvps.org/excel/colors.htm 。 问候，