Jak odświeżyć tabele przestawne w vba (z przykładami)
Aby odświeżyć tabele przestawne w programie Excel przy użyciu języka VBA, możesz użyć następujących metod:
Metoda 1: Odśwież określoną tabelę przestawną
Sub RefreshPivotTable()
Sheet1.PivotTables(" PivotTable1 ").Refreshtable
End Sub
To konkretne makro odświeży jedynie wartości w tabeli przestawnej o nazwie PivotTable1 w arkuszu 1 skoroszytu.
Metoda 2: Odśwież wszystkie tabele przestawne w skoroszycie
Sub RefreshAllPivotTables()
ThisWorkbook.RefreshAll
End Sub
To konkretne makro odświeży wartości każdej tabeli przestawnej w całym skoroszycie.
Poniższe przykłady pokazują, jak zastosować każdą z tych metod w praktyce.
Przykład 1: Odśwież określoną tabelę przestawną
Załóżmy, że utworzyliśmy tabelę przestawną na podstawie zbioru danych w programie Excel:
Kiedy jesteśmy na karcie Analiza tabeli przestawnej znajdującej się na górnej wstążce w programie Excel, w lewym górnym rogu widzimy, że ta tabela przestawna nosi nazwę Tabela przestawna1 .
Załóżmy, że zmieniamy ostatnią wartość kolumny punktów w zbiorze danych z 22 na 200 :
Możemy utworzyć następujące makro, aby odświeżyć wartości tej konkretnej tabeli przestawnej:
Sub RefreshPivotTable()
Sheet1.PivotTables(" PivotTable1 ").Refreshtable
End Sub
Kiedy uruchomimy to makro, wartości tabeli przestawnej zostaną automatycznie zaktualizowane:
Przykład 2: Odśwież wszystkie tabele przestawne w skoroszycie
Załóżmy, że utworzyliśmy dwie tabele przestawne na podstawie zestawu danych w programie Excel:
Pierwsza tabela przestawna pokazuje sumę punktów na drużynę i na pozycję.
Druga tabela przestawna pokazuje średnią punktów według drużyny i pozycji.
Załóżmy, że zmieniamy ostatnią wartość kolumny punktów w zbiorze danych z 22 na 200 .
Możemy utworzyć następujące makro, aby odświeżyć wartości wszystkich tabel przestawnych w całym skoroszycie:
Sub RefreshAllPivotTables()
ThisWorkbook.RefreshAll
End Sub
Kiedy uruchomimy to makro, wartości w obu tabelach przestawnych zostaną automatycznie zaktualizowane:
Dodatkowe zasoby
Poniższe samouczki wyjaśniają, jak wykonywać inne typowe zadania w VBA:
VBA: Jak dodać wartości w zakresie
VBA: Jak obliczyć średnią wartość zakresu
VBA: Jak policzyć unikalne wartości w zakresie