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