ExcelVBA セルの背景色等で使用するColorIndexの色見本リストを作成する。

Sub ColorIndexSample()
    Dim i As Long
    For i = 0 To 56
        Range("A" & i + 1).Value = i
        Range("B" & i + 1).Interior.ColorIndex = i
    Next
End Sub

ray88.hatenablog.com
ray88.hatenablog.com