KutoolsforOffice — Одно решение — пять мощных инструментов.Меньше усилий — больше результата.

Как автоматически обновлять сводную таблицу в Excel?

АвторКеллиДата изменения

Обычно после обновления исходных данных сводная таблица не обновляется автоматически — вам нужно вручную нажать Анализ > Обновить. Это может быстро надоесть, особенно если сводная таблица находится на другом листе, и вы рискуете забыть её обновить. В этой статье мы расскажем, как настроить автоматическое обновление сводной таблицы в Excel с помощью VBA.

Автоматическое обновление Сводная таблица с помощью VBA

Автоматическое обновление Сводная таблица с помощью VBA

Чтобы автоматически обновлять указанную сводную таблицу в Excel с помощью макроса VBA, выполните следующие шаги.

1. На листе «Панель» щёлкните правой кнопкой мыши ярлык листа с исходными данными и в контекстном меню выберите Просмотреть код. См. снимок экрана:
Снимок экрана, показывающий контекстное меню на вкладке листа Excel, где выбран пункт «Просмотреть код»

2. В открывшемся окне Microsoft Visual Basic for Applications вставьте приведённый ниже код.

VBA: автоматическое обновление указанного Сводная таблица

Private Sub Worksheet_Change(ByVal Target As Range)
 Worksheets("sheet name").PivotTables("PivotTable name").PivotCache.Refresh
 End Sub

Примечания:
(1) В строке кода Worksheets(")имя листа«).PivotTables(»Имя сводной таблицы").PivotCache.Refresh замените имя листа на имя листа, содержащего указанную сводную таблицу, а также замените Имя сводной таблицы на имя указанной сводной таблицы.
(2) Выделите любую ячейку в указанной сводной таблице — её имя отобразится на вкладке Анализ(или на вкладке)Параметры). См. снимок экрана:
Снимок экрана, показывающий имя сводной таблицы на вкладке «Анализ» в Excel

3. Сохраните код.

Теперь при изменении данных в «Исходных данных» указанная сводная таблица будет автоматически обновляться.

Легко объединяйте несколько листов, книг или файлов CSV в один лист или книгу

Объединение десятков листов из разных книг в один может быть утомительным. Однако с помощью утилиты Kutools для Excel и функции «Объединить (листы и книги)» эту задачу можно выполнить всего за несколько щелчков!

Рекламное изображение инструмента Kutools for Excel для объединения листов и книг

Kutools для Excel— раскройте весь потенциал Excel с помощью более чем 300 незаменимых инструментов, которые ускоряют и упрощают вашу работу, а также воспользуйтесь возможностями ИИ для более разумной обработки данных и повышения продуктивности.Получить сейчас

См. также:

Как с помощью сводной таблицы в Excel рассчитать среднее значение по дням, месяцам, кварталам или часам?

Лучшие инструменты повышения продуктивности в Office

🤖KUTOOLS AI Помощник: Преобразуйте Анализ данных с помощью:Интеллектуального выполнения   |  Генерации кода|  Создания пользовательские формулы  |  Анализа данных и построения диаграмм|  Вызова Расширенные функции…
Популярные функции:Поиск, выделение или Отметить дубликаты   |  Удалить пустые строки   |  Объединить столбцы или ячеек без потери данных   |  Округление без использования формул…
Супер ПОИСК:VLookup по нескольким критериям  |  VLookup по нескольким значениям  |   VLookup по нескольким листам   |   Распознавание нечетких соответствий…
Расширенный раскрывающийся список:Быстрое создание выпадающего списка   |  Зависимый выпадающий список   |  Выпадающий список с множественным выбором…
Управление столбцами:Добавление заданного количества столбцов|Перемещение столбцов|Переключение видимости скрытых столбцов|Сравнение диапазонов и столбцов…
Избранные функции:Сетка фокусировки   |  Просмотр дизайна   |Улучшенная строка формулы   | Управление рабочими книгами и листами   |  Библиотека ресурсов(автотекст)|  Выбор даты   |  Объединить листы  |  Шифрование/Расшифровать ячейки   | Отправка писем по списку   |  Супер фильтр   |   Специальный фильтр(Фильтр ячеек с жирным шрифтом/курсив/зачёркивание…) …
Лучшие наборы инструментов 15:12 Текстовыеинструменты(Добавить текст,Удалить определенные символы, …)|   50+Типыдиаграмм(Диаграмма Ганта, …)|   40+ Практические формулы(Рассчитать возраст на основе даты рождения, …)|   19 Инструментывставки(Вставить QR-код,Вставка изображения по пути, …)|   12 Инструментыпреобразования(Преобразовать в слова,Конвертация валют, …)|   7 Объединить и разделитьИнструменты(Расширенное объединение строк,Разделить ячейки, …)|… и многое другое
Используйте Kutools на предпочитаемом языке — поддержка английского, испанского, немецкого, французского, китайского и ещё 40+ языков!

Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…

Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу

  • Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
  • Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!

Все надстройки Kutools — один установщик

Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.

ExcelWordOutlookTabsPowerPoint
  • Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
  • Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
  • Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
  • 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
  • Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек