在Excel VBA中,我们经常会用到ColorIndex来设置单元格的背景色或者单元格字体的颜色:
◆Range.Interior.ColorIndex --设置单元格的背景填充色
◆Font.ColorIndex --设置单元格的字体颜色
![008e408f12f0ffe3ad9aad585845da06.gif](https://i-blog.csdnimg.cn/blog_migrate/2f042f559cab18541e0162a304bc0726.gif)
ColorIndex索引值与颜色的对照表
但如何快速知道ColorIndex的索引值及其所对应的颜色呢。
今天涂涂给大家分享下利用VBA代码来生成ColorIndex索引值与颜色的对照表。
①在Excel菜单栏,点击“开发工具”,然后点击“Visual Basic”打开VBE界面。
也可以按组合键打开VBE界面。
![7a08a7217ff3455040ae1ce65b0eed6f.png](https://i-blog.csdnimg.cn/blog_migrate/28f517231702ab10693956d0cf1bb50f.jpeg)
②在左侧的工程管理器,右键新建“模块1”,然后双击“模块1”,在模块1代码区写入下记代码,保存,关闭VBE界面。
![916d0085602156702c655387b9e2c563.png](https://i-blog.csdnimg.cn/blog_migrate/8e48fbc102c61c9c87a2ce0eced78b06.jpeg)
代码:
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索引值”的宏,点击“执行”即可。
![1e9cd7d289dd3d671401f306af03f798.png](https://i-blog.csdnimg.cn/blog_migrate/066c8faa4543afbb8581c2b4d068b043.jpeg)
Tips:
◆ColorIndex索引值为0时,单元格背景填充色为无填充状态,而非“白色”
◆ColorIndex索引值为2时,单元格背景填充色为“白色”。
![637baef2f71ef8b31d854ad6a54a0d91.png](https://i-blog.csdnimg.cn/blog_migrate/47b78f04a1ed3aee33a0022f4b1a045d.jpeg)