在Excel 2003中,当我们设置单元格底纹、字体颜色时,在工具栏中Excel默认调色板提供了40中颜色供直接使用,而在对话框中,Excel默认调色板提供了56中颜色可供直接使用。有时我们需要用VBA代码来设置颜色,可以使用ColorIndex 属性。例如下列代码:
Sub SetColor()
Cells(1, 1).Interior.ColorIndex = 37 '将A1单元格内部填充颜色设置为淡蓝色
Cells(2, 1).Font.ColorIndex = 22 '将A2单元格字体颜色设置为珊瑚红
Cells(3, 1).Borders.ColorIndex = 40 '将A3单元格边框设置为茶色
End Sub
其中等于号后面的数值指定了某颜色在默认调色板中的颜色编号。下表给出了默认调色板中56中颜色的索引值及其对应的中英文名称、16进制代码及RGB值。如果需要用VBA代码来设置颜色,可以参考下表。