Sisällysluettelo
Tässä artikkelissa näytän sinulle, miten voit - päivitä kaikki työarkkisi tai työkirjasi Pivot-taulukot VBA:lla Excelissä. Opit myös yhden Pivot-taulukon päivittäminen sekä Pivot-taulukko välimuisti.
Päivitä kaikki Pivot-taulukot VBA: lla Excelissä (Pikakatselu)
Dim Table As PivotTable For Each Table In ActiveWorkbook.PivotTables Table.RefreshTable Next Table 
Tämä päivittää kaikki Pivot-taulukot aktiivisesta työkirjasta.
Lataa harjoituskirja
Lataa tämä harjoituskirja, jotta voit harjoitella tätä artikkelia lukiessasi.
Päivitä kaikki Pivot-taulukot.xlsm4 tapaa päivittää kaikki Pivot-taulukot VBA: lla Excelissä
A Pivot-taulukko on Excel-taulukon erityinen taulukkotyyppi, joka sisältää kaksi tietoluokkaa, jotka on nimetty seuraavasti. Rivi ja Arvo vastaavasti.
Kaikki taulukon sarakkeet on luokiteltu näihin kahteen luokkaan.
Se luodaan automaattisesti tietokokonaisuudesta, jos valitset tietokokonaisuuden ja siirryt kohtaan Insert> PivotTable vaihtoehto Excelin työkalurivillä.
Tänään tavoitteenamme on oppia, miten voimme päivittää kaikki Pivot-taulukot työarkin tai työkirjan, jossa on VBA Excelissä.
1. Yhden pivot-taulukon päivittäminen Excelissä
Ensin opettelemme virkistämään yksittäisen Pivot-taulukko .
Yksittäisen Pivot-taulukko , sinun on ensin viitattava siihen nimellä PivotTable esine.
Sitten sinun on käytettävä RefreshTable menetelmä VBA .
Tässä meillä on Pivot-taulukko nimeltään PivotTable1 aktiivisessa laskentataulukossa. (Klikkaa tästä saadaksesi tietää, että miten saada Pivot-taulukon nimi ).
Päivittääksemme sen, meidän on käytettävä seuraavia koodirivejä:
Dim Table1 As PivotTable As PivotTable Set Table1 = ActiveSheet.PivotTables("PivotTable1") Table1.RefreshTable 
Suorita koodi, ja se päivittää sivun Pivot-taulukko nimeltään PivotTable1 aktiivisella työarkilla.
Lue lisää: Kuinka päivittää automaattisesti Pivot-taulukko Excelissä (2 menetelmää)
2. Päivitä kaikki Excel-taulukon pivot-taulukot Excelissä.
Nyt päivitämme kaikki Pivot-taulukot laskentataulukon, jossa on VBA .
Päivittääksesi kaikki Pivot-taulukot aktiivisen laskentataulukon, sinun on käytävä läpi jokainen Pivot-taulukko of the ActiveSheet.PivotTables Käytä sitten RefreshTable menetelmä.
Dim Table As PivotTable For Each Table In ActiveSheet.PivotTables Table.RefreshTable Next Table 
Suorita koodi, ja se päivittää kaikki Pivot-taulukot aktiivisen laskentataulukon.
Lue lisää: Pivot-taulukko ei päivity (5 ongelmaa & ratkaisut)
3. Päivitä kaikki Excelin työkirjan pivot-taulukot.
Voit myös päivittää kaikki Pivot-taulukot työkirjan Excelissä.
Päivittääksesi kaikki Pivot-taulukot aktiivisessa työkirjassa, käy jokainen taulukko läpi taulukon ActiveWorkbook.PivotTables kohde VBA . Käytä sitten RefreshTable menetelmä.
Dim Table As PivotTable For Each Table In ActiveWorkbook.PivotTables Table.RefreshTable Next Table
Tämä koodi päivittää kaikki Pivot-taulukot aktiivisesta työkirjasta.
Lue lisää: Kuinka päivittää Pivot-taulukko automaattisesti, kun lähdetiedot muuttuvat?
4. Pivot-taulukon välimuistin päivittäminen VBA:lla Excelissä
Jos sinulla on useita Pivot-taulukot työkirjassa, jotka käyttävät samoja tietoja, sinun on parempi päivittää Pivot-taulukon välimuisti sen sijaan, että päivitettäisiin Pivot-taulukko .
Virkistääksesi Pivot-taulukon välimuisti , käy läpi jokainen Pivot-taulukon välimuisti aktiivisen työkirjan ActiveWorkbook.PivotCaches esine.
Käytä sitten R efresh menetelmä VBA .
Dim Cache As PivotCache For Each Cache In ActiveWorkbook.PivotCaches Cache.Refresh Next Cache 
Se päivittää kaikki Pivot-taulukon välimuisti aktiivisesta työkirjasta.
Lue lisää: Kuinka päivittää Pivot-taulukko automaattisesti ilman VBA: ta Excelissä (3 Smart Methods)
Muistettavat asiat
Tässä olemme osoittaneet päivittää Pivot-taulukot vain aktiivisesta työarkista tai työkirjasta. Jos haluat päivittää tietoja muusta kuin aktiivisesta työarkista tai työkirjasta, käytä työarkin tai työkirjan nimeä sen sijaan ActiveSheet tai ActiveWorkbook esine.
Voit esimerkiksi päivittää kaikki Pivot-taulukot osoitteesta Sheet1 , käytä For Each Taulukko In Työarkit("Sheet1").PivotTables .
Ja virkistäytyä Työkirja1 , käytä For Each Taulukko In Työkirjat("Työkirja1").PivotTables .
Päätelmä
Näiden menetelmien avulla voit päivittää kaikki Pivot-taulukot työarkista tai työkirjasta, jossa on VBA Excelissä. Onko sinulla kysyttävää? Kysy meiltä.
