【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

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

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

PR

実行結果

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

実行結果
実行結果
PR

参考

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

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

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