Excel2000 VBA 色番号 一覧を作成

Excel2000 VBA  色番号　一覧を作成

Sub color_index()
'Excel2000 colorindex 56色＋１（null)
'c_code=色番号、colu=列、ro=行

Dim c_code, col, ro As Long

'色コード初期設定
    c_code = 0
'色コード番号と色を表示
For col = 1 To 11 Step 3    '3列おき
    For ro = 1 To 16        '１行から１６行
        Cells(ro, col) = c_code
        Cells(ro, col + 1).Interior.ColorIndex = c_code
        c_code = c_code + 1
        If c_code > 56 Then Exit For  '番号５６まで
    Next ro
Next col

End Sub

タグ：Excel2000 VBA