Excel VBA Interior.ColorIndex 色彩列表

使用如下VBA代碼取得相應的單元格底色

Sub a()Sub a()

    Range("A1").Select

    For i = 0 To 56 Step 1

        ActiveCell.Interior.ColorIndex = i

        ActiveCell.Offset(0, 1).Value2 = i

        If i Mod 19 = 18 And i <> 0 Then

            ActiveCell.Offset(-18, 2).Select

        Else

            ActiveCell.Offset(1, 0).Select

        End If

    Next   

End Sub

結果如下

 

另外補充一點。當Excel的默認顏色里面沒有我們所需要的顏色時，我們還可以使用RGB顏色代碼修改默認顏色為想要的顏色。TD Bank的一些reports里面有使用到這種方法。
示例：
ActiveWorkbook.Colors(39) = RGB(226, 197, 255)         ‘修改color index為39的顏色
WorkSheets(1).Cells(1,1).Value.Interior.ColorIndex = 39      ‘將cell A1的值設置為color index為39的顏色