Перейти до основного матеріалу

Як оновити зведену таблицю при зміні даних у Excel?

Як відомо, якщо ви зміните дані у вихідній таблиці, відносна зведена таблиця тим часом не оновить дані в ній. Якщо вам потрібно оновити зведену таблицю, коли дані змінюються в таблиці в Excel, я можу розповісти вам кілька швидких способів.

Оновіть зведену таблицю на аркуші, натиснувши кнопку Оновити

Оновіть зведену таблицю на аркуші або книзі за допомогою VBA


стрілка синя права міхур Оновіть зведену таблицю на аркуші, натиснувши кнопку Оновити

В Excel існує функція «Оновити та оновити все» для оновлення зведеної таблиці на одному аркуші.

Клацніть зведену таблицю, для якої потрібно оновити дані, а потім натисніть варіант (у програмі Excel 2013 натисніть Аналізувати)> оновлення > оновлення. Дивіться знімок екрана:

doc-refresh-pivot-table-data-1

Якщо ви хочете оновити всі зведені таблиці на одному аркуші, ви можете вибрати Оновити все.


стрілка синя права міхур Оновіть зведену таблицю на аркуші або книзі за допомогою VBA

За допомогою VBA ви можете не тільки оновити всі зведені таблиці на одному робочому аркуші, але також можете оновити всі зведені таблиці у всій книзі.

1. прес F11 + Alt клавіші на клавіатурі, щоб відкрити Microsoft Visual Basic для додатків вікна.

2 Потім натисніть Insert > Модулі щоб вставити нове вікно модуля. А потім скопіюйте наступний код VBA у вікно.

VBA: оновіть зведені таблиці на аркуші.

Sub AllWorksheetPivots()
'Updateby20140724
Dim xTable As PivotTable
For Each xTable In Application.ActiveSheet.PivotTables
    xTable.RefreshTable
Next
End Sub

3. клацання прогін у вікні або клавішу F5 для запуску VBA, тоді зведені таблиці на аркуші оновляються.

Чайові: Щоб оновити всі зведені таблиці в цілій книзі, ви можете використовувати наступний VBA.

VBA: оновіть усі зведені таблиці в книзі.

Sub RefreshAllPivotTables()
'Updateby20140724
Dim xWs As Worksheet
Dim xTable As PivotTable
For Each xWs In Application.ActiveWorkbook.Worksheets
    For Each xTable In xWs.PivotTables
        xTable.RefreshTable
    Next
Next
End Sub

Відносні статті:

Найкращі інструменти продуктивності офісу

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

Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу.  Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...

вкладка kte 201905


Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Using Pivot Table I used your site to find out about preserving formatting when updating a Pivot Table. Issue however is that I noticed I had made an error in the formatting. How to I have my table save the new formatting rather than reverting back to the one with the error. Thanks.
This comment was minimized by the moderator on the site
il y a un probleme dans le code car sa actualise uniquement si on est present sur la sheet en question, or si on est dans un userform qui me donne les graphique , il actualise pas puisque nous somme pas sur activeSheet...
This comment was minimized by the moderator on the site
I LOVE this site!!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations