Excel~常用颜色对照表

使用 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 版本及是否启用宏。