在Excel 2003中,当我们设置单元格底纹、字体颜色时,在工具栏中Excel默认调色板提供了40中颜色供直接使用,而在对话框中,Excel默认调色板提供了56中颜色可供直接使用有时我们需要用VBA代码来设置颜色,可以使用ColorIndex 属性。
在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代码来设置颜色,可以参考下表索引号颜色16进制代码RGB1黑色Black#0000000002白色White
#FFFFFF2552552553红色Red#FF0000255004鲜绿色Bright Green#00FF00025505蓝色Blue#0000FF002556黄色Yellow#FFFF00255255
07粉红色Pink#FF00FF25502558青绿色Turquoise#00FFFF02552559深红色Dark Red#8000001280010绿色Green#0080000128011深蓝色Dark Blue
#0000800012812深黄色Dark Yellow#808000128128013紫罗兰Violet#800080128012814青色Teal#008080012812815灰-25%Gray-25%
#C0C0C019219219216灰-50%Gray-50%#80808012812812817海螺色Periwinkle#9999FF15315325518梅红色Plum+#99336615351102
19象牙色Ivory#FFFFCC25525520420浅青绿Lite Turquoise#CCFFFF20425525521深紫色Dark Purple#660066102010222珊瑚红Coral
#FF808025512812823海蓝色Ocean Blue#0066CC010220424冰蓝Ice Blue#CCCCFF20420425525深蓝色Dark Blue+#0000800012826
粉红色Pink+#FF00FF255025527黄色Yellow+#FFFF00255255028青绿色Turquoise+#00FFFF025525529紫罗兰Violet+#8000801280128
30深红色Dark Red+#8000001280031青色Teal+#008080012812832蓝色Blue+#0000FF0025533天蓝色Sky Blue#00CCFF020425534浅青绿
Light Turquoise#CCFFFF20425525535浅绿色Light Green#CCFFCC20425520436浅黄色Light Yellow#FFFF9925525515337淡蓝色
Pale Blue#99CCFF15320425538玫瑰红Rose#FF99CC25515320439淡紫色Lavender#CC99FF20415325540茶色Tan#FFCC99255204153
41浅蓝色Light Blue#3366FF5110225542水绿色Aqua#33CCCC5120420443酸橙色Lime#99CC00153204044金色Gold#FFCC00255204045
浅橙色Light Orange#FF9900255153046橙色Orange#FF6600255102047蓝-灰Blue-Gray#66669910210215348灰-40%Gray-40%#969696
15015015049深青Dark Teal#00336605110250海绿Sea Green#3399665115310251深绿Dark Green#003300051052橄榄色Olive Green
#3333005151053褐色Brown#99330015351054梅红色Plum#9933661535110255靛蓝Indigo#333399515115356灰-80%Gray-80%#333333
515151