Для автоматического обновления данных в отчете сводной таблицы:

Шаг 1: Автоматически обновить диапазон исходных данных Имя

См. Совет: Автоматическое обновление ссылки на имя диапазона.

Шаг 2. Добавьте событие VBA для автоматического обновления отчета сводной таблицы 1. Нажмите Alt + F11, а затем дважды щелкните имя листа на панели VBAProject.

  1. В левом раскрывающемся списке над листом «Модуль» выберите Рабочий лист, а в правом раскрывающемся списке выберите «Активировать».

  2. Скопируйте приведенный ниже код и вставьте его в лист модуля.

    • Private Sub Worksheet_Activate ()

ActiveSheet.PivotTables («PivotTable1»). PivotCache.Refresh End Sub * 4. Нажмите Ctrl + S, чтобы сохранить книгу, а затем нажмите Alt + F4, чтобы закрыть VBA. Отчет сводной таблицы обновляется автоматически при выборе листа, который его содержит.

Примечание. Чтобы найти имя отчета сводной таблицы (в данном примере «Сводная таблица1»), выберите Инструменты сводной таблицы → Параметры → Имя сводной таблицы (в параметрах сводной таблицы).