Як перевірити, чи існує зведена таблиця в книзі?
Якщо у вашій книзі кілька зведених таблиць і зараз, ви швидко хочете дізнатись, чи існує в цій книзі конкретна зведена таблиця. Як правило, ви можете перейти до діалогового вікна "Параметри зведеної таблиці", щоб по черзі перевірити ім'я зведеної таблиці, але це дуже трудомістко і нудно, коли зведених таблиць є десятки або сотні. Тут я можу поговорити про трюк для вирішення цього завдання.
Перевірте, чи існує зведена таблиця в книзі з функцією, яку визначає користувач
Перевірте, чи існує зведена таблиця в книзі з функцією, яку визначає користувач
Щоб швидко дізнатися, чи існує зведена таблиця у поточній книзі, можна створити визначену користувачем функцію для її вирішення.
1. Відкрийте книгу, яку потрібно перевірити, чи існує зведена таблиця.
2. Утримуйте клавішу ALT + F11 і відкриває Вікно Microsoft Visual Basic для програм.
3. Клацання Insert > Модуліта вставте наступний код у Вікно модуля.
Код 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 ("звіт про продаж") в порожню комірку, див. знімок екрана:
примітки: (1.) У наведеній вище формулі „звіт про продаж”- це назва зведеної таблиці, яку потрібно перевірити.
(2.) Ви повинні вводити назву зведеній таблиці в подвійних лапках, і ім’я повинно чути регістр.
5. Після введення формули натисніть клавішу Enter, якщо отримаєте ІСТИНА у вашій комірці зведена таблиця існує, якщо ви отримаєте ПОМИЛКОВИЙ, зведена таблиця не існує.
Статті по темі:
Як перерахувати всі зведені таблиці з книги?
Як додати кілька полів у зведену таблицю?
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!