【VBA】テーブル化された表の、列の数分繰り返し処理をする【ループ】

テーブル化された表の
 ・列の数分、繰り返し処理
ができます!

PR

VBAコード

ここでは例として、
 ・シート「data」上の
 ・テーブル化された表「productテーブル」の
 ・列の数分繰り返し処理をして
 ・列名をイミディエイトウインドウへ出力
します。

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

Sub sample()
    
    Dim columnsRange As range
    Dim range As range
    
    'テーブル化された表の列のセル部分を取得
    Set columnsRange = Worksheets("data").ListObjects("productテーブル").HeaderRowRange
    
    '取得した列のセル部分の数分繰り返し
    For Each range In columnsRange
        '列名をイミディエイトウインドウへ出力
        Debug.Print range.Value
    Next
    
End Sub

「Worksheetオブジェクト」の「ListObjects」プロパティにより、「ListObjectオブジェクト」を取得します(9行目)。
※“「ListObjects」メソッドの引数には「テーブル名」を指定します。上記では「productテーブル」を指定しています。

「ListObjectオブジェクト」の「HeaderRowRange」プロパティにより、列のセル部分を取得します(9行目)。

PR

実行結果

テーブル化された表の、列の数分繰り返し処理ができました。

実行結果
実行結果
PR

参考

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

●「Worksheetオブジェクト」の「ListObjects」プロパティ



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


●イミディエイトウィンドウへ出力