【VBA関係】VBAでテーブルを操作するにはListObject？構造化参照？？｜ポテの学習メモ #006

Dim tbl As ListObject
Set tbl = Worksheet.ListObjects("テーブル名")

Sub WorkWithListObject()

    Dim ws As Worksheet
    Dim tbl As ListObject

    ' シートとテーブルの参照を設定
    Set ws = ThisWorkbook.Sheets("Sheet1")
    Set tbl = ws.ListObjects("Table1")

    ' データ範囲にアクセス
    Debug.Print "データ範囲: " & tbl.DataBodyRange.Address

    ' 新しい行を追加
    tbl.ListRows.Add

    ' 特定のセルを操作
    tbl.DataBodyRange(1, 1).Value = "更新された値"

End Sub

Range("テーブル名[特殊項目指定子][列指定子]")

Sub UseStructuredReferences()

    Dim ws As Worksheet
    Dim rng As Range

    ' テーブル全体を参照
    Set rng = ws.Range("Table1[#All]")
    Debug.Print "テーブル全体: " & rng.Address

    ' 特定の列を参照
    Set rng = ws.Range("Table1[列名]")
    Debug.Print "列「列名": " & rng.Address

    ' データ部分を参照
    Set rng = ws.Range("Table1[#Data]")
    Debug.Print "データ部分: " & rng.Address

End Sub

' ListObject
Dim rng As Range
Set rng = tbl.DataBodyRange ' データの部分

' 構造化参照：
Dim rng As Range
Set rng = ws.Range("Table1[#Data]") ' データの部分

' ListObject：
tbl.ListRows.Add ' 新しい行を追加

' 構造化参照：
サポートされていない

' ListObject：
Dim value As Variant
value = tbl.DataBodyRange(1, 1).Value ' 1行目1列目の値を取得
Debug.Print value

' 構造化参照：
Dim value As Variant
value = ws.Range("Table1[列名]")(1, 1).Value ' 列名の最初の値を取得
Debug.Print value

' ListObject：
tbl.ListRows(1).Delete ' 1行目を削除

' 構造化参照：
サポートされていない