Käyttöönotto VBA-makro on tehokkain, nopein ja turvallisin tapa suorittaa mikä tahansa toiminto Excelissä. Tässä artikkelissa näytämme, miten voit päivitä pivot-taulukko Excelissä VBA:n avulla.

Lataa työkirja

Voit ladata ilmaisen harjoitus-Excel-työkirjan täältä.

Pivot-taulukon päivittäminen VBA.xlsm:llä

5 esimerkkiä Pivot-taulukon päivittämisestä VBA: lla Excelissä

Seuraavassa on esimerkki pivot-taulukostamme, jota käytämme koko artikkelin ajan ja näytämme sinulle 5 erilaista esimerkkiä. pivot-taulukoiden päivittäminen Excelissä VBA koodi.

1. VBA yhden Pivot-taulukon päivittämiseksi Excelissä

Jos haluat vain yhden pivot-taulukon päivittäminen Excel-taulukkoon,

• Paina Alt + F11 näppäimistöllä tai siirry välilehdelle Kehittäjä -> Visual Basic avata Visual Basic Editor .

• Valitse ponnahdusikkunan valikkoriviltä seuraava vaihtoehto Lisää -> Moduuli .

• Kopioi seuraava koodi ja liitä se koodiikkunaan.

 Sub RefreshOnePivotTable() ActiveSheet.PivotTables("PivotTable1").RefreshTable End Sub 

Koodisi on nyt valmis ajettavaksi.

Tässä, PivotTable1 on Pivot-taulukkomme nimi. Kirjoitat nimen, joka Pivot-taulukollasi on.

• Paina F5 näppäimistöllä tai valitse valikkoriviltä Suorita -> Suorita Sub/UserForm . Voit myös vain klikata pieni Play-kuvake alivalikkopalkissa makron suorittamiseksi.

Tämä on päivitä pivot-taulukko olemassa olevassa Excel-taulukossa.

Lue lisää: Pivot-taulukko ei päivity (5 ongelmaa & ratkaisut)

2. Makro kaikkien aktiivisen laskentataulukon Pivot-taulukoiden päivittämiseen aktiivisella laskentataulukolla

Kaikkien aktiivisen työarkin pivot-taulukoiden päivittäminen noudata seuraavia ohjeita.

• Samalla tavalla kuin aiemmin, avaa Visual Basic Editor alkaen Kehittäjä välilehti ja Lisää a Moduuli koodiikkunassa.
• Kopioi koodiikkunaan seuraava koodi ja liitä se.

 Sub RefreshActiveSheetPivotTables() Dim PivotTbl As PivotTable For Each PivotTbl In ActiveSheet.PivotTables PivotTbl.RefreshTable Next PivotTbl End Sub 

Koodisi on nyt valmis ajettavaksi.

• Suorita makro ja kaikki aktiivisen laskentataulukon pivot-taulukot päivitetään.

Lue lisää: Kuinka päivittää kaikki Pivot-taulukot Excelissä

3. VBA-koodi kaikkien Pivot-taulukoiden päivittämiseen useassa työkirjassa

Jos haluat päivittää kaikki pivot-taulukot useissa työkirjoissa kerralla VBA koodi, niin vaiheet ovat:

• Avaa Visual Basic Editor alkaen Kehittäjä välilehti ja Lisää a Moduuli koodiikkunassa.
• Kopioi koodiikkunaan seuraava koodi ja liitä se.

 Sub RefreshAllPivotTables() Dim PivotTbl As PivotTable For Each PivotTbl In ActiveWorkbook.PivotTables PivotTbl.RefreshTable Next PivotTbl End Sub 

Koodisi on nyt valmis ajettavaksi.

• Suorita koodi, ja kaikkien avoinna olevien Excel-työkirjojen kaikki pivot-taulukot päivitetään.

Muista pitää kaikki työkirjat avoin tämän koodin suorittamisen aikana.

Samanlaisia lukemia

• Pivot-taulukon muokkaaminen Excelissä (5 menetelmää)
• Pivot-taulukon alueen päivittäminen (5 sopivaa menetelmää)
• Pivot-taulukon automaattinen päivittäminen, kun lähdetiedot muuttuvat

4. Pivot-taulukon välimuistin päivittäminen VBA:lla Excelissä

Jos työkirjassasi on useita pivot-taulukoita, jotka käyttävät samoja tietoja, voit päivittää vain pivot-taulukon välimuistin sen sijaan, että varsinaista pivot-taulukkoa päivitettäisiin koko ajan. Välimuistin päivittäminen tyhjentää automaattisesti kaikkien samaa tietoyhteyttä käyttävien pivot-taulukoiden välimuistin välimuistista.

Vaiheet tähän ovat,

• Avaa Visual Basic Editor alkaen Kehittäjä välilehti ja Lisää a Moduuli koodiikkunassa.
• Kopioi koodiikkunaan seuraava koodi ja liitä se.

 Sub RefreshPivotTableCache() Dim PivotCache As PivotCache For Each PivotCache In ActiveWorkbook.PivotCaches PivotCache.Refresh Next PivotCache End Sub 

Koodisi on nyt valmis ajettavaksi.

• Suorita koodi ja kaikki pivot-taulukon välimuistit tyhjennetään.

Lue lisää: Kuinka päivittää Pivot-taulukko automaattisesti ilman VBA: ta Excelissä (3 Smart Methods)

5. Pivot-taulukon automaattinen päivittäminen tietojen muuttuessa VBA-makron avulla

Entä jos sinulla on pivot-taulukko, jossa on suuri määrä tietoja, ja haluat vain päivittää muutamia tietoja, mutta koko taulukkoa ei tarvitse muuttaa. Excelissä voit pivot-taulukon automaattinen päivitys kun tietoja päivitetään VBA .

• Avaa Visual Basic Editor alkaen Kehittäjä.
• Toimittajan vasemmalla puolella olisi kenttä Project Explorer paneeli, jossa on kaikki työarkin nimet.
• Osoitteessa Project Explorer kaksoisnapsauta arkin nimeä, joka sisältää pivot-taulukon.

• Avautuu koodiikkuna, jossa luomme tapahtumamakron. Valitse Työtaulukko alkaen Kohde koodimoduulin vasemmalla puolella olevaan pudotusvalikkoon. Tämä lisää koodimoduuliin Worksheet_SelectionChange tapahtuma moduuliin, mutta emme oikeastaan tarvitse sitä, joten poistamme tämän koodinpätkän myöhemmin.
• Napsauta sitten Menettely pudotusvalikosta ja valitse Muuta Tämä lisää koodimoduulin yläosaan uuden tapahtuman nimeltä Työarkki_Change . Kirjoitamme koodimme tänne seuraavasti poista koodin tuottama koodi Worksheet_SelectionChange

• Kopioi nyt seuraava koodi ja liitä se kohtaan Työarkki_Change

 Private Sub Worksheet_Change(ByVal Target As Range) Worksheets("PivotTbl").PivotTables("PivotTable1").PivotCache.Refresh End Sub 

Koodisi on nyt valmis ajettavaksi.

Tässä, PivotTbl on Excel-työkirjamme työarkin nimi ja PivotTable1 on Pivot-taulukkomme nimi. Kirjoitat nimen, joka työarkillasi ja Pivot-taulukollasi on.

• Aina kun muutat tietoja työarkin alkuperäisessä datataulukossa, pivot-taulukon tiedot päivittyvät automaattisesti.

Lue lisää: Kuinka päivittää automaattisesti Pivot-taulukko Excelissä

Päätelmä

Tämä artikkeli osoitti, miten päivitä pivot-taulukko Excelissä VBA Toivottavasti tästä artikkelista on ollut teille paljon hyötyä. Kysykää rohkeasti, jos teillä on aiheeseen liittyviä kysymyksiä.