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

テーブル化された表の
 ・レコード数を取得する方法
を記載します!

PR

VBAコード

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

テーブル化された表「productテーブル」。レコード数は6。
テーブル化された表「productテーブル」。レコード数は6。
Option Explicit

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

「ListObjects(“XXX”)」で、「ListObjectオブジェクト」を取得しています。

「ListObjectオブジェクト」の「ListRows.Count」により、レコード数を取得できます。

PR

実行結果

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

実行結果
実行結果
PR

参考

「ListObjectオブジェクト」の詳細については、公式サイトをご確認ください。

タイトルとURLをコピーしました