カラー パレットのインデックス番号 : Excel(エクセル)

Excel Tipsメニューに戻る

スポンサーリンク






Excel VBA シートコード

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

スポンサーリンク



Excel実行結果

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

スポンサーリンク






Excel Tipsメニューに戻る

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します


Copyright (c) Excel-Excel ! All rights reserved