vba 字体颜色_「Excel VBA」ColorIndex索引值与颜色的对照表生成

在Excel VBA中，我们经常会用到ColorIndex来设置单元格的背景色或者单元格字体的颜色：

◆Range.Interior.ColorIndex --设置单元格的背景填充色

◆Font.ColorIndex --设置单元格的字体颜色

ColorIndex索引值与颜色的对照表

但如何快速知道ColorIndex的索引值及其所对应的颜色呢。

今天涂涂给大家分享下利用VBA代码来生成ColorIndex索引值与颜色的对照表。

①在Excel菜单栏，点击“开发工具”，然后点击“Visual Basic”打开VBE界面。

也可以按组合键打开VBE界面。

②在左侧的工程管理器，右键新建“模块1”，然后双击“模块1”，在模块1代码区写入下记代码，保存，关闭VBE界面。

代码：

Sub ColorIndex索引值1()

Dim i As Integer

For i = 1 To 56

Cells(i + 1, 1) = i

Cells(i + 1, 2).Interior.ColorIndex = i

Next i

End Sub

③在Excel菜单栏中，点击“开发工具”，点击“宏”，打开“宏对话框”，选择宏名称为“ColorIndex索引值”的宏，点击“执行”即可。

Tips:

◆ColorIndex索引值为0时，单元格背景填充色为无填充状态，而非“白色”

◆ColorIndex索引值为2时，单元格背景填充色为“白色”。