現在のカラーパレットをセルに表示して確認する

現在のカラーパレットの
表示される色とインデックスをセルに表示して確認します。

単純にFor文を使います。

コードはこちら

Sub macro110417a()
'カラーパレットを確認

    Sheets.Add
    Dim i As Integer
   
    Cells(1, 1) = "色"
    Cells(1, 2) = "ColorIndex"
   
    For i = 1 To 56
        Cells(i + 1, 1).Interior.ColorIndex = i
        Cells(i + 1, 2) = i
    Next i
   
End Sub

実行後のシートの一部：

単純ですが、なかなか重宝します。