Excel vba 的colorindex值对应的颜色

今天无法录制视频，发段简单的代码！

大家设置表格时可以参考！

colorindex对应56个值，小于1就是无色了！

大于56就要报错了，大家可以测试！

下面时演示代码:

Sub 按钮1_Click()

    r = 1

    c = 1

    For j = 1 To 56

        r = r + 1

        Cells(r, c).Interior.ColorIndex = j

        Cells(r, c + 1) = j

        If r = 15 Then

            r = 1

            c = c + 2

        End If

    Next j

End Sub

下面图片是执行结果！