Excel忍法　カラーパレットのインデックス番号

カラーパレットのインデックス番号

シートコード

Private Sub CommandButton1_Click()
    Dim i As Integer
    Dim j As Integer
    Dim n As Integer

    n = 1
    For j = 1 To 8
        For i = 1 To 7
            'インデックス番号
            ActiveSheet.Cells(j * 2 + 5, i + 1) = n
            'セルに色を塗る
            ActiveSheet.Cells(j * 2 + 6, i + 1).Interior.ColorIndex = n
            n = n + 1
        Next
    Next
End Sub

実行結果

	インデックス番号と実際にセルに色をつけた結果

Topへ