Как перечислить все сводные таблицы из книги?
Предположим, у вас есть большая книга с несколькими сводными таблицами. Хотите получить список всех сводных таблиц в этой книге? Конечно, это возможно! Приведённый в статье код VBA поможет вам справиться с этой задачей. Чтобы узнать больше, прочитайте статью ниже.
Перечисление всех Сводная таблица из книги с помощью кода VBA
Перечисление всех Сводная таблица из книги с помощью кода VBA
Следующий код VBA поможет вам получить список всех сводных таблиц с их атрибутами, такими как диапазон исходных данных, имя листа, дата обновления и т.д.
1. Откройте книгу, для которой нужно получить список всех сводных таблиц.
2. Удерживайте клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic для приложений.
3. Нажмите Вставка > Модуль и вставьте приведённый ниже код в окно Модуля.
Код VBA: перечисление всех Сводная таблица из книги
Sub ListPivotsInfor()
'Update 20141112
Dim St As Worksheet
Dim NewSt As Worksheet
Dim pt As PivotTable
Dim I, K As Long
Application.ScreenUpdating = False
Set NewSt = Worksheets.Add
I = 1: K = 2
With NewSt
.Cells(I, 1) = "Name"
.Cells(I, 2) = "Source"
.Cells(I, 3) = "Refreshed by"
.Cells(I, 4) = "Refreshed"
.Cells(I, 5) = "Sheet"
.Cells(I, 6) = "Location"
For Each St In ActiveWorkbook.Worksheets
For Each pt In St.PivotTables
I = I + 1
.Cells(I, 1).Value = pt.Name
.Cells(I, 2).Value = pt.SourceData
.Cells(I, 3).Value = pt.RefreshName
.Cells(I, 4).Value = pt.RefreshDate
.Cells(I, 5).Value = St.Name
.Cells(I, 6).Value = pt.TableRange1.Address
Next
Next
.Activate
End With
Application.ScreenUpdating = True
End Sub
4. Затем нажмите клавишу F5, чтобы выполнить этот код. Имена всех сводных таблиц, диапазоны исходных данных, имена листов и другие атрибуты будут выведены на новый лист, расположенный перед активным листом, как показано на следующем снимке экрана:
Связанные статьи:
Как проверить, существует ли сводная таблица в книге?
Как добавить несколько полей в сводную таблицу?
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек