江门网站建设公司/网络兼职平台

使用 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

x = 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

文后我会提供一个“Excel~常用颜色对照表”的 xlsm 文件，如果无法生成颜色对照表，请自行检查 Excel 版本及是否启用宏。