Для определенных типов анализа данных могут быть очень удобны сводные таблицы. Если у вас есть книга, содержащая несколько сводных таблиц, основанных на одних и тех же данных, вы можете задаться вопросом, есть ли способ обновить их все сразу, вместо того, чтобы просматривать их по отдельности и обновлять их.
Не существует команды Excel, позволяющей обновлять все сводные таблицы, но вы можете создать короткий макрос, который сделает эту работу за вас. Следующий макрос, RefreshAllPivots, просматривает каждый рабочий лист в книге, проверяет, есть ли какие-либо сводные таблицы, а затем обновляет их, если они есть.
Sub RefreshAllPivots () Dim wks As Worksheet Dim pt В качестве сводной таблицы для каждой недели в рабочих таблицах для каждой точки в неделях.Сводные таблицы pt.RefreshTable Следующая точка Следующая wksEnd Sub
Если вы много работаете с несколькими сводными таблицами, вы можете назначить макрос для сочетание клавиш, кнопки на панели инструментов или пункта меню, чтобы упростить выполнение. (Информация о том, как назначать макросы панелям инструментов, сочетаниям клавиш и меню, рассматривается в других выпусках ExcelTips. )
Источник: