Для определенных типов анализа данных могут быть очень полезны сводные таблицы. Если у вас есть книга, содержащая несколько сводных таблиц, основанных на одних и тех же данных, вы можете задаться вопросом, есть ли способ обновить их все сразу, вместо того, чтобы просматривать их по отдельности и обновлять их.

Не существует команды Excel, которая позволяет вам обновлять все сводные таблицы, но вы можете создать короткий макрос, который выполнит эту работу за вас. Следующий макрос RefreshAllPivots просматривает каждый рабочий лист в книге, проверяет, есть ли какие-либо сводные таблицы, а затем обновляет их, если они есть.

Sub RefreshAllPivots()

Dim wks As Worksheet     Dim pt As PivotTable

For Each wks In Worksheets         For Each pt In wks.PivotTables             pt.RefreshTable         Next pt     Next wks End Sub

Если вы много работаете с несколькими сводными таблицами, вы можете назначить макрос для сочетания клавиш, кнопки на панели инструментов или для параметра меню, чтобы его было проще запустить. (Информация о том, как назначать макросы панелям инструментов, сочетаниям клавиш и меню, рассматривается в других выпусках ExcelTips.)

_Примечание: _

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

link: / excelribbon-ExcelTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

ExcelTips — ваш источник экономичного обучения Microsoft Excel.

Этот совет (2287) относится к Microsoft Excel 97, 2000, 2002 и 2003. Вы можете найти версию этого совета для ленточного интерфейса Excel (Excel 2007 и более поздних версий) здесь:

link: / excelribbon-Updating_Multiple_PivotTables_at_Once [Одновременное обновление нескольких сводных таблиц].