動作検証バージョン：64bit Windows 10 Pro + 32bit Excel（バージョン2104 ビルド13929.20386 Microsoft Store）
「vba TableStyleName 一覧」
という検索でアクセスがあることに気が付きました。
テーブルスタイル名の一覧を、Excel VBAで作成するにはどのようなコードを書けばいいのかを探していた方による検索でしょうか。
［スポンサードリンク］
TableStyleの名前を出力するサンプル
以下のSubプロシージャを実行すると、アクティブなブックのTableStyleの名前がイミディエイトウィンドウに出力されます。
Sub TableStyleの名前を出力する()
Dim tbl_sty As TableStyle
For Each tbl_sty In ActiveWorkbook.TableStyles
Debug.Print _
tbl_sty.NameLocal & vbTab & _
tbl_sty.Name
Next
End Sub
Dim tbl_sty As TableStyle
For Each tbl_sty In ActiveWorkbook.TableStyles
Debug.Print _
tbl_sty.NameLocal & vbTab & _
tbl_sty.Name
Next
End Sub
Workbookオブジェクトに用意されているTableStylesプロパティを使うと、
すべてのテーブルスタイルを表すTableStylesコレクションを取得できます。
TableStylesコレクションから、要素である単独のテーブルスタイルを表すTableStyleオブジェクトを、For Each～Nextループで順番に取得して、
TableStyleのNameLocalプロパティとNameプロパティの値を、イミディエイトウィンドウに出力しています。
テーブルスタイルの名前を出力するサンプル
TableStylesコレクションには、ピボットテーブル等のスタイルも含まれています。
テーブルのスタイル名のみを出力するには、以下のようなSubプロシージャです。
Sub テーブルスタイルの名前を出力する()
Dim tbl_sty As TableStyle
For Each tbl_sty In ActiveWorkbook.TableStyles
If Not tbl_sty.ShowAsAvailableTableStyle Then Exit Sub
Debug.Print _
tbl_sty.NameLocal & vbTab & _
tbl_sty.Name
Next
End Sub
Dim tbl_sty As TableStyle
For Each tbl_sty In ActiveWorkbook.TableStyles
If Not tbl_sty.ShowAsAvailableTableStyle Then Exit Sub
Debug.Print _
tbl_sty.NameLocal & vbTab & _
tbl_sty.Name
Next
End Sub
TableStyle.ShowAsAvailableTableStyleプロパティがTrueでないときに、
Subプロシージャを抜けるようにしています。
If Not tbl_sty.ShowAsAvailableTableStyle Then Exit Sub
最終更新日時：2021-06-04 15:39
［スポンサードリンク］
Home » エクセルマクロ・Excel VBAの使い方 » ListObjectオブジェクト » VBAでテーブルスタイルの名前一覧を
