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

Как автоматично да обновявате обобщена таблица в Excel?

Автор: Кели Последна промяна: 2020-09-10

Обикновено, когато актуализираме изходните данни на обобщена таблица, обобщената таблица няма да се актуализира, докато не щракнем Анализирам > Обновяване ръчно. Това ще бъде доста скучно, ако обобщената таблица остане в друг работен лист и може да забравите да я опресните. Тук тази статия ще представи 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) В кода на работните листове ("име на листа").PivotTables("Име на обобщена таблица").PivotCache.Опреснете, моля, заменете име на листа с името на листа, съдържащ указаната обобщена таблица, и заменете Име на обобщена таблица с името на посочената обобщена таблица.
(2) Изберете която и да е клетка в указаната обобщена таблица, ще получите нейното име в Анализирам раздел (или Настроики раздел). Вижте екранна снимка:

3. Запазете кода.

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

Комбинирайте лесно множество работни листове/работни книги/CSV файлове в един работен лист/работна книга

Може да е досадно да комбинирате десетки листове от различни работни книги в един лист. Но с Kutools за Excel Комбинирайте (работни листове и работни тетрадки) помощна програма, можете да го направите само с няколко кликвания!


реклама комбиниране на листове книги 1

Още по темата:

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

🤖 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 (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