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

テーブル化された表の
 ・列数を取得
できます!

PR

VBAコード

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

テーブル化された表「productテーブル」。列数は3。
テーブル化された表「productテーブル」。列数は3。
Option Explicit

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

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

「ListObjectオブジェクト」の「ListColumns」プロパティにより、「ListColumnsオブジェクト」を取得します(8行目)。

「ListColumnsオブジェクト」 の「Count」プロパティにより、列数を取得します(8行目)。

PR

実行結果

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

実行結果
実行結果
PR

参考①

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

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

PR

参考②

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

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

PR

参考③

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

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


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

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