在 VBA 中转换颜色代码

在 VBA 中转换颜色代码

我在 Excel 宏中有大量代码,其中包括以下模式;

Sheet1.Cells(i, 1).Interior.ColorIndex = 4
Sheet1.Cells(j, 1).Interior.ColorIndex = 4

如您所见,我在代码中用颜色值 4 绘制了一些单元格。但是调色板中只有 56 种颜色可供我使用。我想转换代码以使用 RGB(R、G、B)格式,这样我就可以使用超过 56 种颜色。

有人知道如何正确转换我的代码吗?谢谢...

答案1

要使用 RGB,你只需使用

Sheet1.Cells(i, 1).Interior.Color = RGB(0,255,0)

然后,您可以查看此网站,其中显示了颜色索引、每个颜色的十六进制和 RGB 等效值

http://dmcritchie.mvps.org/excel/colors.htm

Color.Index 4因此,在上面的例子中,这与(绿色)相同

相关内容