Przejdź do głównej zawartości

Jak automatycznie odświeżyć tabelę przestawną w programie Excel?

Zwykle, gdy aktualizujemy dane źródłowe tabeli przestawnej, tabela przestawna nie zostanie zaktualizowana, dopóki nie klikniemy Analizować > Odśwież kod ręcznie. Będzie to dość nudne, jeśli tabela przestawna pozostanie w innym arkuszu i możesz zapomnieć o jej odświeżeniu. W tym artykule wprowadzimy VBA do automatycznego odświeżania tabeli przestawnej w programie Excel.

Automatycznie odśwież tabelę przestawną według VBA


Automatycznie odśwież tabelę przestawną według VBA

Wykonaj poniższe kroki, aby zastosować VBA do automatycznego odświeżania określonej tabeli przestawnej w programie Excel.

1. Na pasku kart Arkusz kliknij prawym przyciskiem myszy kartę arkusza zawierającą dane źródłowe i wybierz Wyświetl kod w menu kontekstowym. Zobacz zrzut ekranu:

2. W otwartym oknie Microsoft Visual Basic for Applications wklej kod.

VBA: Automatyczne odświeżanie określonej tabeli przestawnej

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

Uwagi:
(1) W kodzie arkuszy roboczych („nazwa arkusza") .PivotTables ("Nazwa tabeli przestawnej") .PivotCache.Odśwież, wymień nazwa arkusza nazwą arkusza zawierającego określoną tabelę przestawną i zamień rozszerzenie Nazwa tabeli przestawnej z nazwą określonej tabeli przestawnej.
(2) Wybierz dowolną komórkę w określonej tabeli przestawnej, otrzymasz jej nazwę w pliku Analizować tab (lub Opcje patka). Zobacz zrzut ekranu:

3. Zapisz kod.

Odtąd, gdy zmienisz dane w danych źródłowych, określona tabela przestawna zostanie odświeżona automatycznie.

Z łatwością łącz wiele arkuszy / skoroszytów / plików CSV w jeden arkusz roboczy / skoroszyt

Łączenie dziesiątek arkuszy z różnych skoroszytów w jeden arkusz może być żmudne. Ale z Kutools dla Excela Połącz (arkusze i skoroszyty) narzędzie, możesz to zrobić za pomocą kilku kliknięć!


ad łączenie arkuszy książek 1

Podobne artykuły:

Najlepsze narzędzia biurowe

🤖 Pomocnik AI Kutools: Zrewolucjonizuj analizę danych w oparciu o: Inteligentne wykonanie   |  Wygeneruj kod  |  Twórz niestandardowe formuły  |  Analizuj dane i generuj wykresy  |  Wywołaj funkcje Kutools...
Popularne funkcje: Znajdź, wyróżnij lub zidentyfikuj duplikaty   |  Usuń puste wiersze   |  Łącz kolumny lub komórki bez utraty danych   |   Okrągły bez wzoru ...
Super wyszukiwanie: Wiele kryteriów VLookup    Wiele wartości VLookup  |   Przeglądanie pionowe na wielu arkuszach   |   Wyszukiwanie rozmyte ....
Zaawansowana lista rozwijana: Szybko twórz listę rozwijaną   |  Zależna lista rozwijana   |  Lista rozwijana wielokrotnego wyboru ....
Menedżer kolumn: Dodaj określoną liczbę kolumn  |  Przesuń kolumny  |  Przełącz stan widoczności ukrytych kolumn  |  Porównaj zakresy i kolumny ...
Polecane funkcje: Fokus siatki   |  Widok projektu   |   Duży pasek formuły    Menedżer skoroszytów i arkuszy   |  Biblioteka zasobów (Automatyczny tekst)   |  Selektor dat   |  Połącz arkusze   |  Szyfruj/odszyfruj komórki    Wysyłaj e-maile według listy   |  Super filtr   |   Specjalny filtr (filtruj pogrubienie/kursywa/przekreślenie...) ...
15 najlepszych zestawów narzędzi12 Tekst Tools (Dodaj tekst, Usuń znaki, ...)   |   50 + Wykres rodzaje (Wykres Gantta, ...)   |   40+ Praktyczne Wzory (Oblicz wiek na podstawie urodzin, ...)   |   19 Wprowadzenie Tools (Wstaw kod QR, Wstaw obraz ze ścieżki, ...)   |   12 Konwersja Tools (Liczby na słowa, Przeliczanie walut, ...)   |   7 Połącz i podziel Tools (Zaawansowane wiersze łączenia, Podział komórki, ...)   |   ... i więcej

Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas.  Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...

Opis


Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę

  • Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
  • Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
  • Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!
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