代码块:
Sub 设置颜色()
Dim sht1 As Worksheet
Set sht1 = Worksheets(“个人资质详情表”)
sht1.Cells(11, 1).Interior.ColorIndex = 1
sht1.Cells(12, 1).Interior.color = RGB(255, 255, 255) ’设置白色
End Sub
说明:
1 代表 黑色
2 代表 ???
3 代表 红色
4 代表 荧光绿
5 代表 深蓝色
6 代表 黄色
7 代表 玫红色
8 代表 天蓝色
9 代表 猪肝色
10 代表 深绿色
各颜色如下图所示: