VBA テーブル（ListObjects）の基本操作

テーブルの有無確認

Sub test()
    'テーブル有無確認
    
    Dim WS As Worksheet
    Set WS = ActiveSheet
    
    If WS.ListObjects.Count > 0 Then
        MsgBox "テーブルあり"
    End If

End Sub

テーブルの個数確認

Sub test2()

    'テーブルの個数確認
    
    Dim WS As Worksheet
    Set WS = ActiveSheet
    Dim xlCnt As Integer
    
    xlCnt = WS.ListObjects.Count
    If xlCnt > 0 Then
        MsgBox "テーブルが" & xlCnt & "個あります"
    End If

End Sub

テーブル名を取得

Sub test3()
    'テーブル名を取得
    
    Dim WS As Worksheet
    Set WS = ActiveSheet
    
    If WS.ListObjects.Count > 0 Then
            MsgBox WS.ListObjects(1).Name
    End If

End Sub

実行結果

参考記事

『VBA テーブル（ListObjects）の基本操作』

『VBA　テーブル（ListObjects）の設定・解除』

『VBA　テーブル（ListObjects）のフィルター設定・解除』

『VBA　テーブル（ListObjects）指定値以上赤文字にする』

『VBA　テーブル（ListObjects）データを追加する』

『VBA　テーブル（ListObjects）行の削除』

― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじ へ戻る