ピボットテーブルがワークブックに存在するかどうかを確認するにはどうすればよいですか？

ワークブック内に複数のピボットテーブルがあり、特定のピボットテーブルがこのワークブックに存在するかどうかを迅速に知りたい場合、通常は「ピボットテーブル オプション」ダイアログ ボックスを開き、ピボットテーブル名を一つずつ確認します。しかし、数十または数百のピボットテーブルがある場合には非常に時間がかかり、面倒です。ここで、このタスクを解決するためのトリックをご紹介します。

ユーザー定義関数を使用して、ピボットテーブルがワークブックに存在するか確認する

ユーザー定義関数を使用して、ピボットテーブルがワークブックに存在するか確認する

現在のワークブックにピボットテーブルが存在するかどうかを迅速に確認するために、ユーザー定義関数を作成して解決できます。

1. ピボットテーブルが存在するかどうか確認したいワークブックを開きます。

2. ALT + F11 キーを押したままにすると、Microsoft Visual Basic for Applications ウィンドウが開きます。

3. 「挿入」>「モジュール」をクリックし、次のコードをモジュール ウィンドウに貼り付けます。

VBA コード: ワークブックにピボットテーブルが存在するかどうかを確認する

Function PivotExist(Name As String) As Boolean
'Update 20141112
    Dim sh As Worksheet
    Dim pt As PivotTable
    PivotExist = False
    For Each sh In ActiveWorkbook.Worksheets
        For Each pt In sh.PivotTables
            If pt.Name = Name Then
                PivotExist = True
                Exit For
            End If
        Next
    Next
End Function

4. その後、コードを保存して閉じ、ワークシートに戻り、=pivotexist("salereport") という数式を空白セルに入力します。スクリーンショットをご覧ください：

注: (1.) 上記の数式では、「salereport」は確認したいピボットテーブルの名前です。

(2.) ピボットテーブル名は必ず二重引用符で囲み、大文字と小文字を区別する必要があります。

5. 数式を入力した後、Enterキーを押します。セルにTRUEが表示された場合、ピボットテーブルが存在します。FALSEが表示された場合、ピボットテーブルは存在しません。

関連記事：

ワークブックからすべてのピボットテーブルをリストするにはどうすればよいですか？

複数のフィールドをピボットテーブルに追加するにはどうすればよいですか？