VBAでピボットテーブルの有無を確認する

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

「excel vba ピボット判断有無」
「ピボットテーブルの有無チェック vba」
「vba ピボットテーブルが存在するか確認」
といった検索で、このサイト・インストラクターのネタ帳へのアクセスがありました。

VBA（Visual Basic for Applications）で、ピボットテーブルが存在しているかどうかを調べるには、どのようなコード（オブジェクト式）を書けばいいのか、探している方による検索です。

［スポンサードリンク］

アクティブなシートにピボットテーブルがあるかを確認するサンプルマクロ

以下のような条件分岐文で、アクティブなシートにピボットテーブルが存在するかどうかを判定できます。

Sub ピボットテーブルの有無確認_アクティブシート()

　If ActiveSheet.PivotTables.Count = 0 Then
　　MsgBox "アクティブなシートにピボットテーブルはありません。"
　Else
　　MsgBox "アクティブなシートにピボットテーブルがあります！"
　End If

End Sub

シート上のすべてのピボットテーブルを表す、PivotTablesという名前のコレクションオブジェクトが存在します。このPivotTablesコレクションに含まれる、PivotTableオブジェクトの数を返すCountプロパティを調べれば、

VBAでピボットテーブルの有無を確認する

ピボットテーブルが存在しているのかどうかがわかります。PivotTables.Countが「0」なら、ピボットテーブルは存在していないことになります。

このPivotTablesコレクションオブジェクトを取得する、PivotTablesメソッドはWorksheetオブジェクトのメンバーですから、

VBAでピボットテーブルの有無を確認する

Worksheetオブジェクトを取得するために、ここではActiveSheetプロパティを利用したオブジェクト式「ActiveSheet.PivotTables....」を利用しています。

アクティブなブックに、ピボットテーブルがあるかどうかを調べるなら以下のようなマクロです。

Sub ピボットテーブルの有無確認_アクティブブック()

　Dim sh As Worksheet
　Dim n As Long ' ピボットテーブルの数

　n = 0
　For Each sh In Worksheets
　　n = n + sh.PivotTables.Count
　Next sh

　If n = 0 Then
　　MsgBox "アクティブなブックにピボットテーブルはありません。"
　Else
　　MsgBox "アクティブなブックに、" & n & "個のピボットテーブルがあります！"
　End If

End Sub

PivotTablesコレクションオブジェクトは、Worksheetオブジェクトの下位オブジェクトですから、アクティブなブック上の全ワークシートに対してFor Each～Nextループを回して、
　For Each sh In Worksheets

各ワークシート上のピボットテーブルの数を調べています。
　　n = n + sh.PivotTables.Count

ピボットテーブルをVBAから処理するサンプルコードは、書籍などでも掲載されているものは少ないですから、オブジェクト式の文法の正しい理解と、オブジェクトモデルの基本を頭に叩き込むことと、オブジェクトブラウザーの利用は必須だろうと感じます。

［スポンサードリンク］

『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。
Excel VBAの経験がある方を対象に、Word VBAの基本をキンドル本としてまとめました↓↓

Excel VBAユーザーの方を対象として、Wordの表をVBAで操作する基礎をまとめました↓↓

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

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

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

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

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

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

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

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

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

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

「ピボットテーブル」の記事一覧