ListObjectオブジェクトの有無を確認する

対象：Excel2007, Excel2010, Excel2013, Windows版Excel2016

VBAでテーブル・ListObjectの有無を確認する

「vba listobject 有無判断」
という検索で、このサイト・インストラクターのネタ帳へのアクセスがありました。

ListObjectオブジェクト（テーブル）が存在するかどうかの判定・確認を、VBAで行うには、どのようなコードを書けばいいのか探していた方による検索キーワードです。

［スポンサードリンク］

アクティブシートのテーブル・ListObjectの有無を判定するサンプルマクロ

以下のようなマクロで、アクティブなシート上にテーブル・ListObjectオブジェクトが存在しているかどうかを判定できます。

Sub テーブルが存在するか判定する_アクティブシート()
　If ActiveSheet.ListObjects.Count = 0 Then
　　MsgBox "テーブルは存在しません。"
　Else
　　MsgBox "テーブルが存在します。"
　End If
End Sub

ListObjectオブジェクトを単一メンバーとして持つ、ListObjectsコレクションオブジェクトのCountプロパティを調べて「0」だったならば、ListObjectオブジェクトは存在していないと判定できます。

以下のようなマクロにすれば、アクティブなブック内にテーブル・ListObjectオブジェクトが存在しているかどうかを判定できます。

Sub テーブルが存在するか判定する_アクティブブック()
　Dim ws As Worksheet
　Dim cnt As Long: cnt = 0

　For Each ws In Worksheets
　　cnt = ws.ListObjects.Count + 1
　Next ws

　If cnt = 0 Then
　　MsgBox "テーブルは存在しません。"
　Else
　　MsgBox "テーブルが存在します。"
　End If
End Sub

全ワークシートを対象にFor Each～Nextループを回して、
　For Each ws In Worksheets

各ワークシート上のListObjectsコレクションオブジェクトのCountプロパティで返される値を加算し続けて、
　　cnt = ws.ListObjects.Count + 1

もしも変数・cntが「0」のままだったら、アクティブブック上にListObjectオブジェクトが存在していないという判定を行っています。
　If cnt = 0 Then
　　MsgBox "テーブルは存在しません。"

最終更新日時：2019-10-23 15:11

［スポンサードリンク］

『インストラクターのネタ帳』では、2003年10月から平日のほぼ毎日、Microsoft Officeの使い方などを紹介し続けています。
Excel VBAユーザーを対象とした、Word VBAの入門書をキンドル本として出しました↓↓

『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓

PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓

グラフを操作するExcel VBAの基本を解説したキンドル本です↓↓

図形を操作するExcel VBAの基本を解説したキンドル本を出しました↓↓

Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓

数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓

Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓

小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓

日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓

上記の『Excel VBAユーザーのためのPythonプログラミング』の元になったキンドル本です↓↓

3年前(2021年4月)の
人気記事

「ListObjectオブジェクト」の記事一覧