Sisukord
Selles artiklis näitan teile, kuidas te saate värskendage kõiki oma töölehe või töövihiku Pivot-tabeleid VBAga Excelis. Samuti õpite te ühe Pivot tabeli värskendamine , samuti Pivot tabel vahemälu.
Värskendage kõiki Pivot-tabeleid VBAga Excelis (kiire vaade)
Dim Table As PivotTable For Each Table In ActiveWorkbook.PivotTables Table.RefreshTable Next Table 
See värskendab kõiki Pivot tabelid aktiivse töövihiku.
Lae alla praktiline töövihik
Lae alla see harjutusvihik, et seda artiklit lugedes harjutada.
Värskenda kõik pöördtabelid.xlsm4 viisi kõigi Pivot-tabelite värskendamiseks VBAga Excelis
A Pivot tabel on Exceli töölehe eriline tabelitüüp, mis sisaldab kahte andmekategooriat, mille pealkirjaks on Rida ja Väärtus vastavalt.
Kõik tabeli veerud on liigitatud nende kahe kategooria alla.
See genereeritakse automaatselt andmekogumist, kui te valite andmekogumi ja lähete menüüsse Insert> PivotTable valik Exceli tööriistaribal.
Täna on meie eesmärk õppida, kuidas me saame värskendada kõiki Pivot tabelid töölehe või töövihiku VBA Excelis.
1. Üksiku Pivot-tabeli värskendamine Excelis
Kõigepealt õpime värskendama üheainsa Pivot tabel .
Üksiku värskendamiseks Pivot tabel , tuleb kõigepealt viidata sellele kui PivotTable objekt.
Siis tuleb kasutada RefreshTable meetod VBA .
Siin on meil Pivot tabel nimega PivotTable1 aktiivsel töölehel. (Klõpsake siin, et teada saada kuidas saada Pivot tabeli nime ).
Selle värskendamiseks peame kasutama järgmisi koodiridu:
Dim Table1 As PivotTable Set Table1 = ActiveSheet.PivotTables("PivotTable1") Table1.RefreshTable 
Käivita kood ja see värskendab programmi Pivot tabel nimega PivotTable1 aktiivsel töölehel.
Loe edasi: Kuidas Exceli Pivot-tabeli automaatset värskendamist (2 meetodit)
2. Värskendage kõiki Exceli töölehe Pivot-tabeleid
Nüüd värskendame kõiki Pivot tabelid tööleht koos VBA .
Et värskendada kõiki Pivot tabelid aktiivse töölehe, tuleb iga töölehti läbi iteratsioonida. Pivot tabel kohta ActiveSheet.PivotTables objekti. Seejärel kasutage RefreshTable meetod.
Dim Table As PivotTable For Each Table In ActiveSheet.PivotTables Table.RefreshTable Next Table 
Käivita kood ja see värskendada kõiki Pivot-tabeleid aktiivse töölehe kohta.
Loe edasi: Pivot tabel ei värskendata (5 probleemi & lahendused)
3. Värskendage kõiki Exceli töövihiku pöördtabeleid
Samuti saate värskendada kõiki Pivot tabelid Exceli töövihik.
Et värskendada kõiki Pivot tabelid aktiivse töövihiku, iteratsiooni läbi iga tabeli järgi ActiveWorkbook.PivotTables objekt VBA Siis kasutage RefreshTable meetod.
Dim Table As PivotTable For Each Table In ActiveWorkbook.PivotTables Table.RefreshTable Next Table
See kood värskendab kõiki Pivot tabelid aktiivse töövihiku.
Loe lisaks: Kuidas automaatselt uuendada Pivot tabelit, kui lähteandmed muutuvad
4. Värskendage Pivot tabeli vahemälu VBAga Excelis
Kui teil on mitu Pivot tabelid oma töövihikus, mis kasutavad samu andmeid, siis on parem värskendada Pivot tabeli vahemälu selle asemel, et värskendada Pivot tabel .
Värskendada Pivot tabeli vahemälu , iteratsioon läbi iga Pivot tabeli vahemälu aktiivse töövihiku poolt ActiveWorkbook.PivotCaches objekt.
Seejärel kasutage R efresh meetod VBA .
Dim Cache As PivotCache For Each Cache In ActiveWorkbook.PivotCache Cache.Refresh Next Cache 
See värskendab kõiki Pivot tabeli vahemälu aktiivsest töövihikust.
Loe edasi: Kuidas automaatselt värskendada Pivot tabelit ilma VBA-ta Excelis (3 nutikat meetodit)
Asjad, mida meeles pidada
Siin oleme näidanud, et värskendada Pivot tabelid ainult aktiivsest töölehest või töövihikust. Kui soovite värskendada andmeid töövihikust või töölehelt, mis ei ole aktiivne, kasutage töölehe või töövihiku nime asemel tähte ActiveSheet või ActiveWorkbook objekt.
Näiteks, et värskendada kõiki Pivot tabelid aadressilt Leht1 , kasutage For Each Table In Worksheets("Sheet1").PivotTables .
Ja värskendamiseks alates Töövihik1 , kasutage For Each Table In Workbooks("Workbook1").PivotTables .
Kokkuvõte
Nende meetodite abil saate värskendada kõiki Pivot tabelid töölehest või töövihikust koos VBA Excelis. Kas teil on küsimusi? Küsige meilt julgelt.
