Как проверить, существует ли сводная таблица в книге?

Если в вашей книге есть несколько сводных таблиц, и вы хотите быстро узнать, существует ли определенная сводная таблица в этой книге. Обычно вы можете перейти в диалоговое окно «Параметры сводной таблицы», чтобы проверить название сводной таблицы одну за другой, но это очень трудоемко и утомительно, когда есть десятки или сотни сводных таблиц. Здесь я могу рассказать вам о трюке, который поможет решить эту задачу.

Проверка наличия сводной таблицы в книге с помощью пользовательской функции

Проверка наличия сводной таблицы в книге с помощью пользовательской функции

Чтобы быстро узнать, существует ли сводная таблица в текущей книге, вы можете создать пользовательскую функцию для решения этой задачи.

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, то сводная таблица не существует.

Связанные статьи:

Как вывести список всех сводных таблиц из книги?

Как добавить несколько полей в сводную таблицу?