Как обновить сводную таблицу, исходные данные которой обновляются макросами?

Question

У меня есть приборная панель по сводным диаграммам. Исходные данные обновляются с помощью макросов. Тем не менее, когда я обновляю данные для сводных таблиц, исходная таблица данных сводится к заголовкам исходного файла? Есть ли способ обновить эти сводные таблицы, не выбирая исходные данные каждый раз, когда я обновляю исходный лист, запуская макросы?

Answer 1

Если вам просто нужно обновить сводную таблицу, вы можете добавить новую подпрограмму только по этой причине. Вот пример:

Sub RefreshPivotTable()

Dim ws As Worksheet 'Sheet containing the pivot table
Dim rng As Range 'top left cell of the pivot table
Dim pt As PivotTable

Set ws = Worksheets("Pivot Cohort")
Set rng = ws.Range("G1")
Set pt = rng.PivotTable

'~~> Refresh only this pivot table
pt.RefreshTable

'~~> Or Refresh all tables and queries in the active workbook
ActiveWorkbook.RefreshAll

'~~> Clear the variables from memory
Set ws = Nothing
Set rng = Nothing
Set pt = Nothing

End Sub