![](https://excel-vba.work/wp-content/themes/cocoon-master/images/b-woman.png)
テーブル化された表の
・列数を取得
できます!
VBAコード
ここでは例として、
・シート「data」上の
・テーブル化された表「productテーブル」の
・列数を取得
します。
![テーブル化された表「productテーブル」。列数は3。](https://excel-vba.work/wp-content/uploads/2021/10/vba_exceltable_columncount_001.png)
Option Explicit
Sub sample()
Dim columnCount As Long
'テーブル化された表の列数を取得
columnCount = Worksheets("data").ListObjects("productテーブル").ListColumns.Count
MsgBox ("列数は『" & columnCount & "』です。")
End Sub
実行結果
テーブル化された表の列数を取得できました。
![実行結果](https://excel-vba.work/wp-content/uploads/2021/10/vba_exceltable_columncount_002.png)
参考①
テーブル化された表のレコード数を取得することもできます。
詳細は以下の記事をご確認ください。
参考②
テーブル化された表の指定した列の列名を取得することもできます。
詳細は以下の記事をご確認ください。
参考③
上記のVBAコードで使用した以下の詳細は、公式サイトをご確認ください。
●「ListObjectオブジェクト」の「ListColumns」プロパティ
●「ListColumnsオブジェクト」 の「Count」プロパティ