Перейти к основному содержанию

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

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

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


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

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

1. На панели вкладок листа щелкните правой кнопкой мыши вкладку листа, содержащую исходные данные, и выберите Просмотреть код в контекстном меню. Смотрите скриншот:

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

VBA: автоматическое обновление указанной сводной таблицы

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

Ноты:
(1) В коде рабочих листов ("имя листа"). Сводные таблицы ("Имя сводной таблицы") .PivotCache.Refresh, замените имя листа на имя листа, содержащего указанную сводную таблицу, и замените Имя сводной таблицы с именем указанной сводной таблицы.
(2) Выберите любую ячейку в указанной сводной таблице, вы получите ее имя в Анализировать вкладку (или Опции вкладка). Смотрите скриншот:

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

С этого момента, когда вы изменяете данные в исходных данных, указанная сводная таблица будет обновляться автоматически.

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

Объединение десятков листов из разных книг в один может оказаться утомительным занятием. Но с Kutools for Excel's Объединить (рабочие листы и рабочие тетради) утилиту, вы можете сделать это всего за несколько кликов!


объявление объединить листы книги 1

Статьи по теме:

Лучшие инструменты для офисной работы

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

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

Описание


Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
If the Pivot Table is on the same sheet that changes data, you need avoid a loop, so you need implement a conditional statement

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("M:M")) Is Nothing Then
Exit Sub
Else
'MsgBox "You just changed" & Target.Address
Worksheets("SheetName").PivotTables("PivotTableName").PivotCache.Refresh
End If

End Sub
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations