【VBA】テーブル化された表の、レコード数を取得する

VBAコード

ここでは例として、
　・シート「data」上の
　・テーブル化された表「productテーブル」の
　・レコード数を取得
します。

Option Explicit

Sub sample()
    
    Dim rowCount As Long
    
    'テーブル化された表のレコード数を取得
    rowCount = Worksheets("data").ListObjects("productテーブル").ListRows.Count
        
    MsgBox ("レコード数は『" & rowCount & "』です。")
    
End Sub

実行結果

テーブル化された表の、レコード数を取得できました。

参考①

テーブル化された表の、指定した条件に一致しないレコード数(件数)を取得することもできます。

詳細は以下の記事をご確認ください。
※この記事の内容をほんの少し修正すれば、条件に一致するレコード数(件数)も取得できます。

参考②

テーブル化された表の列数を取得することもできます。

参考③

テーブル化された表の指定した列の列名を取得することもできます。

詳細は以下の記事をご確認ください。

参考④

上記のVBAコードで使用した以下の詳細は、公式サイトをご確認ください。


●「ListObjectオブジェクト」の「ListRows」プロパティ

● 「ListRowsオブジェクト」の「Count」プロパティ