【VBA】エクセルのテーブルを操作する

前提
サンプルプログラム
結果

前提

ここでは以下のテーブルを操作します。

シート名　：サンプル
テーブル名：tblSample

サンプルプログラム

'変数の宣言を必須
Option Explicit

Sub TableOeration()
    
    Dim tbl As ListObject
    Dim recordCount As Long
    
    Dim tagetAdress As String
    Dim tagetStr As String
    Dim tagetColumnAdress As String
    
    'テーブルを取得
    Set tbl = Sheets("サンプル").ListObjects("tblSample")
    
    'レコード数を取得
    recordCount = tbl.ListRows.Count
    MsgBox (recordCount)
    
    '列「section」の範囲のアドレスを取得
    tagetColumnAdress = tbl.ListColumns("section").DataBodyRange.Address
    MsgBox (tagetColumnAdress)
    
    '1レコード目の3列目のアドレスを取得
    tagetAdress = tbl.ListRows(1).Range(3).Address
    MsgBox (tagetAdress)

    '1レコード目の3列目の値を取得
    tagetStr = tbl.ListRows(1).Range(3).Text
    MsgBox (tagetStr)
    
    '1レコード目の3列目の値を変更
    tbl.ListRows(1).Range(3) = "aiueo"

    '3レコード目の背景色を変更する
    tbl.ListRows(3).Range.Interior.ColorIndex = 32

End Sub