Как да проверя дали в работна книга съществува обобщена таблица?
Ако във вашата работна книга има няколко обобщени таблици и сега, бързо искате да знаете дали в тази работна книга съществува конкретна обобщена таблица. Обикновено можете да отидете в диалоговия прозорец Опции на обобщената таблица, за да проверите едно по едно името на обобщената таблица, но това отнема много време и е досадно, когато има десетки или стотици обобщени таблици. Тук мога да говоря за трик за решаване на тази задача.
Проверете дали съществува обобщена таблица в работна книга с дефинирана от потребителя функция
Проверете дали съществува обобщена таблица в работна книга с дефинирана от потребителя функция
За да разберете бързо дали съществува обобщена таблица в текущата работна книга, можете да създадете дефинирана от потребителя функция, за да я разрешите.
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.) В горната формула „salereport” е името на обобщената таблица, която искате да проверите.
(2.) Трябва да въведете името на обобщената таблица в двойни кавички и името трябва да е чувствително към главни и малки букви.
5. След като въведете формулата, натиснете клавиша Enter, ако получите TRUE във вашата клетка осевата таблица съществува, ако получите FALSE, обобщената таблица не съществува.
Още по темата:
Как да изброя всички обобщени таблици от работна книга?
Как да добавите множество полета в обобщена таблица?
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
