使用 Excel 的时候，经常会用到一些软件自带的颜色美化一下表格。而我们最常用的应该就是自带的索引颜色了，Excel 内置了 56 种常用的颜色值，编写 VBA 的时候我们可以直接使用这些颜色值。
使用下面的代码可以自动生成颜色对照表：
- Sub Excel_Interior_ColorIndex()
- '清空单元格信息
- Cells.Clear
- Cells.Font.Bold = True
- Cells(6, 4).Font.Color = vbWhite
- ' 键入Excel常用颜色表
- Dim x As Integer
- x = 0
- For i = 1 To 8
- For j = 1 To 7
- xx = x + 1
- Cells(i + 5, j + 3) = x
- Cells(i + 5, j + 3).Interior.ColorIndex = x
- If x > 56 Then Exit Sub
- Next j
- Next i
- '键入标题
- Range("D2:J2").Select
- Selection.Merge
- Range("D2:J2").FormulaR1C1 = "Excel常用颜色对照表"
- With Selection
- .Font.Name = "楷体"
- .Font.Size = 24
- .HorizontalAlignment = xlCenter
- .VerticalAlignment = xlCenter
- End With
- Range("A1").Select
- End Sub
下面是代码的运行结果，需要的朋友可以直接保存图片。
