Прескочи на основното съдържание

Как да обновя обобщената таблица, когато данните се променят в Excel?

Автор: Слънце Последна промяна: 2014-08-07

Както знаете, ако промените данните в оригиналната таблица, относителната обобщена таблица не опреснява данните в нея междувременно. Ако трябва да опресните осевата таблица, когато данните се променят в таблицата в Excel, мога да ви кажа някои бързи начини.

Обновете обобщената таблица в работен лист, като натиснете Refresh

Обновяване на обобщена таблица в работен лист или работна книга с VBA


стрелка син десен балон Обновете обобщената таблица в работен лист, като натиснете Refresh

В Excel има функция Refresh и Refresh All за обновяване на обобщена таблица в един работен лист.

Щракнете върху обобщена таблица, която искате да опресните, и след това щракнете Опция (в Excel 2013 щракнете АНАЛИЗИРАМ)> Обновяване > Обновяване. Вижте екранна снимка:

doc-refresh-pivot-table-data-1

Ако искате да опресните всички обобщени таблици в един работен лист, можете да изберете Обнови всички.


стрелка син десен балон Обновяване на обобщена таблица в работен лист или работна книга с VBA

С VBA можете не само да опресните всички осеви таблици в един работен лист, но също така можете да опресните всички осеви таблици в цялата работна книга.

1. Натиснете F11 + Alt съберете клавишите на клавиатурата, за да отворите Microsoft Visual Basic за приложения прозорец.

2. След това кликнете Поставете > Модули за вмъкване на нов прозорец на модула. След това копирайте следния 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

Относителни статии:

Най-добрите инструменти за продуктивност в офиса

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

Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време.  Щракнете тук, за да получите функцията, от която се нуждаете най-много...

Описание


Раздел 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