補充:
MS Office 2007以上, 顏色變化更多了.
如下, 可自已玩玩看:
Sub change_palette_color
dim color_index as long
color_index = 10
ActiveWorkbook.Colors(color_index) = RGB(128, 128, 128)
End sub
Sub test_color()
For i = 1 To 256
Cells(i, 1).Interior.Color = RGB(i, i, i)
Next i
End Sub
Sub test_color()
For i = 1 To 256
Cells(i, 1).Interior.ThemeColor = xlThemeColorAccent1
Cells(i, 1).Interior.TintAndShade = (i * 2 - 256) / 256
Next i
End Sub