パターン一覧

セルの背景やグラフの背景に設定できるパターンの一覧を
VBAで作成します。
パターンの見本として使えます。

パターンに設定できる値は
次のMicrosoft内ページを参照してください。
「xlpattern 列挙 (Excel)」

文字の説明ではわかり難いので
実際にセルにパターンを設定してみます。

次のコードはパターン一覧を作成します。

Sub macro20200613a()
'パターン一覧を作成する

    Dim ptn()
    Dim ptn_str()
    Dim p
    Dim i
    i = 1
   
    Sheets.Add.Name = "パターン一覧"
   
    'パターンに設定する定数を格納する配列
    ptn() = Array(xlPatternAutomatic, xlPatternChecker, xlPatternCrissCross, _
        xlPatternDown, xlPatternGray16, xlPatternGray25, _
        xlPatternGray50, xlPatternGray75, xlPatternGray8, _
        xlPatternGrid, xlPatternHorizontal, xlPatternLightDown, _
        xlPatternLightHorizontal, xlPatternLightUp, _
        xlLightVertical, xlPatternNone, xlPatternSemiGray75, _
        xlPatternSolid, xlPatternUp, xlPatternVertical)
   
    'セルに表示するパターンの定数を表す文字列を
    '格納する配列
    ptn_str() = Array("xlPatternAutomatic", "xlPatternChecker", "xlPatternCrissCross", _
        "xlPatternDown", "xlPatternGray16", "xlPatternGray25", _
        "xlPatternGray50", "xlPatternGray75", "xlPatternGray8", _
        "xlPatternGrid", "xlPatternHorizontal", "xlPatternLightDown", _
        "xlPatternLightHorizontal", "xlPatternLightUp", _
        "xlLightVertical", "xlPatternNone", "xlPatternSemiGray75", _
        "xlPatternSolid", "xlPatternUp", "xlPatternVertical")
   
    'セルにパターンを設定
    For i = 0 To UBound(ptn())
        Cells(i + 1, 1).Interior.Pattern = ptn(i)
        Cells(i + 1, 2) = ptn_str(i)
    Next i
    Cells.EntireColumn.AutoFit
   
End Sub

実行結果：

使用Ver：Win10, Excel For Office365