「vba listobject 列名」
という検索でこのサイト『インストラクターのネタ帳』へのアクセスがありました。
ListObjectオブジェクト(テーブル)の、列名を取得するExce VBAのコードを探している方による検索でしょうか。
テーブルの列名を取得するサンプルマクロ
「vba listobject 列名」という検索キーワードだけでは、詳細がわかりませんので、いつものように参考になりそうな、簡単なマクロをご紹介しておきます。
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コレクションオブジェクトを取得できます。
コレクションに含まれる単一オブジェクトをFor Each~Nextループで順番に取得して、
For Each col In ActiveSheet.ListObjects(1).ListColumns
ListColunmオブジェクトの名前をNameプロパティで取得して、
Debug.Printしているのが、
Debug.Print col.Name
上記のマクロです。
最終更新日時:2019-10-28 11:07
Home » エクセルマクロ・Excel VBAの使い方 » ListObjectオブジェクト » ListObjectの列名を取得する-ListColumn.Name