【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

結果

レコード数を取得

列「section」の範囲のアドレスを取得

1レコード目の3列目のアドレスを取得

1レコード目の3列目の値を取得

1レコード目の3列目の値を変更

3レコード目の背景色を変更する

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