Як оновити зведені таблиці у vba (з прикладами)

Щоб оновити зведені таблиці в Excel за допомогою VBA, можна скористатися такими методами:

Спосіб 1: оновіть певну зведену таблицю

 Sub RefreshPivotTable()
    Sheet1.PivotTables(" PivotTable1 ").Refreshtable
End Sub

Цей конкретний макрос лише оновить значення у зведеній таблиці під назвою PivotTable1 на аркуші 1 робочої книги.

Спосіб 2. Оновіть усі зведені таблиці в книзі

 Sub RefreshAllPivotTables()
    ThisWorkbook.RefreshAll
End Sub

Цей конкретний макрос оновить значення кожної зведеної таблиці у всій книзі.

Наступні приклади показують, як використовувати кожен із цих методів на практиці.

Приклад 1: Оновіть певну зведену таблицю

Припустімо, ми створили зведену таблицю з набору даних у Excel:

Коли ми перебуваємо на вкладці «Аналіз зведеної таблиці» на верхній стрічці в Excel, ми бачимо у верхньому лівому куті, що ця зведена таблиця називається PivotTable1 .

Припустимо, ми змінимо останнє значення стовпця точок у наборі даних з 22 на 200 :

Ми можемо створити такий макрос, щоб оновити значення цієї конкретної зведеної таблиці:

 Sub RefreshPivotTable()
    Sheet1.PivotTables(" PivotTable1 ").Refreshtable
End Sub

Коли ми запускаємо цей макрос, значення зведеної таблиці автоматично оновлюються:

Приклад 2: оновіть усі зведені таблиці в книзі

Припустімо, ми створили дві зведені таблиці з набору даних у Excel:

Перша зведена таблиця показує суму очок команди та позиції.

Друга зведена таблиця показує середні бали за командою та позицією.

Припустімо, ми змінимо останнє значення стовпця точок у наборі даних з 22 на 200 .

Ми можемо створити такий макрос, щоб оновити значення всіх зведених таблиць у всій книзі:

 Sub RefreshAllPivotTables()
    ThisWorkbook.RefreshAll
End Sub

Коли ми запускаємо цей макрос, значення в обох зведених таблицях автоматично оновлюються:

Додаткові ресурси

У наступних посібниках пояснюється, як виконувати інші типові завдання у VBA:

VBA: Як додати значення в діапазон
VBA: як обчислити середнє значення діапазону
VBA: Як підрахувати унікальні значення в діапазоні