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

ワークブックに複数のピボットテーブルがある場合、そして今、特定のピボットテーブルがこのワークブックに存在するかどうかをすぐに知りたいと思うでしょう。 通常、[ピボットテーブルオプション]ダイアログボックスに移動して、ピボットテーブル名をXNUMXつずつ確認できますが、ピボットテーブルが数十または数百ある場合、これは非常に時間と手間がかかります。 ここでは、この課題を解決するための秘訣についてお話します。

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

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

現在のブックにピボットテーブルが存在するかどうかをすばやく知るために、ユーザー定義関数を作成してそれを解決できます。

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

2。 を押し続けます Alt + F11 キー、そしてそれは開きます Microsoft Visual Basic forApplicationsウィンドウ.

3に設定します。 OK をクリックします。 インセット > モジュール、次のコードをに貼り付けます モジュールウィンドウ.

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。）上記の式では、「販売報告」は、確認するピボットテーブルの名前です。

（2.）ピボットテーブル名は二重引用符で囲む必要があり、名前では大文字と小文字が区別される必要があります。

5。 数式を入力した後、次の場合はEnterキーを押します。 TRUE あなたのセルには、ピボットテーブルが存在します。 間違った情報、ピボットテーブルが存在しません。

関連記事：

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

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