Home » エクセルマクロ・Excel VBAの使い方 » ListObjectオブジェクト » VBAでテーブルスタイルの名前一覧を

VBAでテーブルスタイルの名前一覧を

動作検証バージョン: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

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

TableStyle.ShowAsAvailableTableStyleプロパティがTrueでないときに、

Subプロシージャを抜けるようにしています。
  If Not tbl_sty.ShowAsAvailableTableStyle Then Exit Sub

最終更新日時:2021-06-04 15:39

[スポンサードリンク]

Home » エクセルマクロ・Excel VBAの使い方 » ListObjectオブジェクト » VBAでテーブルスタイルの名前一覧を

TrackBack:0

TrackBack URL

Home » エクセルマクロ・Excel VBAの使い方 » ListObjectオブジェクト » VBAでテーブルスタイルの名前一覧を

「ListObjectオブジェクト」の記事一覧

検索


Copyright © インストラクターのネタ帳 All Rights Reserved.

.