Как проверить, существует ли в книге сводная таблица?
Если в вашей книге несколько сводных таблиц, и теперь вам нужно быстро узнать, существует ли в этой книге определенная сводная таблица. Обычно вы можете переходить в диалоговое окно «Параметры сводной таблицы», чтобы проверить имя сводной таблицы одно за другим, но это очень трудоемко и утомительно, когда есть десятки или сотни сводных таблиц. Здесь я могу рассказать вам о трюке, который поможет вам решить эту задачу.
Проверьте, существует ли сводная таблица в книге с функцией, определяемой пользователем
Проверьте, существует ли сводная таблица в книге с функцией, определяемой пользователем
Чтобы быстро узнать, существует ли сводная таблица в текущей книге, вы можете создать определяемую пользователем функцию для ее решения.
1. Откройте книгу, в которой вы хотите проверить, существует ли сводная таблица.
2. Удерживайте ALT + F11 ключи, и он открывает Окно Microsoft Visual Basic для приложений.
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.) В приведенной выше формуле «отчет о продаже»- это имя сводной таблицы, которую вы хотите проверить.
(2.) Вы должны ввести имя сводной таблицы в двойные кавычки, и имя должно быть чувствительным к регистру.
5. После ввода формулы нажмите клавишу Enter, если вы получите ИСТИНА в вашей ячейке существует сводная таблица, если вы получите НЕПРАВДА, сводная таблица не существует.
Статьи по теме:
Как перечислить все сводные таблицы из книги?
Как добавить несколько полей в сводную таблицу?
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!