Home » エクセルマクロ・Excel VBAの使い方 » ListObjectオブジェクト » ListObjectの列名を取得する-ListColumn.Name

ListObjectの列名を取得する-ListColumn.Name

対象:Excel2007, Excel2010, Excel2013

「vba listobject 列名」
という検索でこのサイト『インストラクターのネタ帳』へのアクセスがありました。

ListObjectオブジェクト(テーブル)の、列名を取得するExce VBAのコードを探している方による検索でしょうか。

[スポンサードリンク]

テーブルの列名を取得するサンプルマクロ

「vba listobject 列名」
という検索キーワードだけでは、詳細がわかりませんので、いつものように参考になりそうな、簡単なマクロをご紹介しておきます。
Sub テーブルの列名を取得する()
 Dim col As ListColumn
 For Each col In ActiveSheet.ListObjects(1).ListColumns
  Debug.Print col.Name
 Next
End Sub

テーブルの存在しているワークシートがアクティブな状態で、上記のマクロを実行すると、そのシート上にある一つ目のテーブルの列名が、イミディエイトウィンドウに出力されます。

ListColumn.Nameで列名を取得できる

「ActiveSheet.ListObjects(1)」というオブジェクト式で、アクティブなシートの一つ目のListObjectオブジェクトを取得できることは、これまでにも何度もListObjectオブジェクト関連の記事でご紹介しています。

そのListObjectオブジェクトの、ListColumnsプロパティを使うと、テーブルのすべての列を表すListColumnsコレクションオブジェクトを取得できます。

ListObject・テーブルの列名を取得するExcelマクロ

コレクションに含まれる単一オブジェクトをFor Each~Nextループで順番に取得して、
  For Each col In ActiveSheet.ListObjects(1).ListColumns

ListColunmオブジェクトの名前をNameプロパティで取得して、

ListObject・テーブルの列名を取得するExcelマクロ

Debug.Printしているのが、
   Debug.Print col.Name

上記のマクロです。

最終更新日時:2019-10-28 11:07

[スポンサードリンク]

Home » エクセルマクロ・Excel VBAの使い方 » ListObjectオブジェクト » ListObjectの列名を取得する-ListColumn.Name

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

検索


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

.