Excel VBA取得儲存格顏色代碼
Excel VBA如何取得「儲存格」的「顏色代碼」?如:取得下列各個顏色的代碼。

選取儲存格顏色代碼
※輸入以下指令※
Sub GetColor()
MsgBox Selection.Interior.ColorIndex
End Sub

點選「開發人員」-「巨集」或按下「Ctrl」+「F8」快捷鍵,並「執行」巨集。

則顯示出所選取儲存格的「顏色代碼」,如A1儲存格「藍色」代碼為「23」。

如A2儲存格「紅色」代碼為「3」。

整列儲存格顏色代碼
※輸入以下指令※
Sub GetColor2()
N = ActiveSheet.UsedRange.Rows.Count
For i = 1 To N
Cells(i, 2).Value = Cells(i, 1).Interior.ColorIndex
Next
End Sub

按下「Ctrl」+「F8」快捷鍵,並「執行」巨集。

則列出整列儲存格的「顏色代碼」。
