Przejdź do głównej zawartości

Jak odświeżyć tabelę przestawną po zmianie danych w programie Excel?

Jak wiesz, jeśli zmienisz dane w oryginalnej tabeli, względna tabela przestawna nie odświeży w międzyczasie danych w niej zawartych. Jeśli potrzebujesz odświeżyć tabelę przestawną, gdy dane zmieniają się w tabeli w programie Excel, mogę Ci powiedzieć kilka szybkich sposobów.

Odśwież tabelę przestawną w arkuszu, naciskając przycisk Odśwież

Odśwież tabelę przestawną w arkuszu lub skoroszycie za pomocą VBA


strzałka niebieski prawy bąbelek Odśwież tabelę przestawną w arkuszu, naciskając przycisk Odśwież

W programie Excel dostępna jest funkcja Odśwież i Odśwież wszystko, aby odświeżyć tabelę przestawną w jednym arkuszu.

Kliknij tabelę przestawną, którą chcesz odświeżyć dane, a następnie kliknij Option (w programie Excel 2013 kliknij ANALIZOWAĆ)> Odśwież kod > Odśwież kod. Zobacz zrzut ekranu:

dokument-odświeżanie-tabeli-przestawnej-1

Jeśli chcesz odświeżyć wszystkie tabele przestawne w jednym arkuszu, możesz wybrać Odśwież wszystko.


strzałka niebieski prawy bąbelek Odśwież tabelę przestawną w arkuszu lub skoroszycie za pomocą VBA

Dzięki VBA możesz nie tylko odświeżyć wszystkie tabele przestawne w jednym arkuszu, ale także odświeżyć wszystkie tabele przestawne w całym skoroszycie.

1. naciśnij F11 + Alt klawisze razem na klawiaturze, aby otworzyć plik Microsoft Visual Basic for Applications okno.

2. Następnie kliknij wstawka > Moduł aby wstawić nowe okno modułu. A następnie skopiuj następujący kod VBA do okna.

VBA: Odśwież tabele przestawne w arkuszu.

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

3. kliknij run w oknie lub klawisz F5, aby uruchomić VBA, tabele przestawne w arkuszu zostaną odświeżone.

Wskazówka: Aby odświeżyć wszystkie tabele przestawne w całym skoroszycie, możesz użyć następującego języka VBA.

VBA: Odśwież wszystkie tabele przestawne w skoroszycie.

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

Względne 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 (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