Rakendamine VBA makro on kõige tõhusam, kiirem ja turvalisem meetod mis tahes toimingute teostamiseks Excelis. Selles artiklis näitame teile, kuidas teha VBA abil Exceli pivot-tabeli värskendamine.

Lae alla töövihik

Tasuta Exceli harjutusvihiku saate alla laadida siit.

Värskenda Pivot tabelit VBA.xlsm abil

5 näidet Pivot tabeli värskendamiseks VBAga Excelis

Järgnevalt on toodud näide meie pivot tabelist, mida me kasutame kogu artikli jooksul ja näitame teile 5 erinevat näidet. Pivot-tabelite värskendamine Excelis koos VBA kood.

1. VBA ühe Pivot-tabeli värskendamiseks Excelis

Kui soovite värskendada ainult ühte pöördtabelit oma Exceli töölehel,

• Press Alt + F11 klaviatuuril või mine vahekaardile Arendaja -> Visual Basic avada Visual Basic toimetaja .

• Pikakoodi aknas klõpsake menüüribal nuppu Insert -> Moodul .

• Kopeeri järgmine kood ja kleebi see koodiaknasse.

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

Teie kood on nüüd valmis käivitamiseks.

Siin, PivotTable1 on meie Pivot Table'i nimi. Kirjutage nimi, mis on teie Pivot Table'il.

• Press F5 klaviatuuril või valige menüüribalt Run -> Run Sub/UserFormi käivitamine Võite ka lihtsalt klõpsata väike Play ikoon allmenüüribal makro käivitamiseks.

See on uuendada pivot-tabelit oma olemasolevas Exceli töölehel.

Loe edasi: Pivot tabel ei värskendata (5 probleemi & lahendused)

2. Aktiivse töölehe kõigi Pivot-tabelite uuendamise makro

Aktiivse töölehe kõigi pivot-tabelite uuendamine järgige alljärgnevaid samme.

• Samamoodi nagu varem, avatud Visual Basic toimetaja alates Arendaja vahekaart ja Sisesta a Moodul koodiaknas.
• Kopeerige koodiaknas järgmine kood ja kleepige see sisse.

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

Teie kood on nüüd valmis käivitamiseks.

• Käivita makro ja kõik aktiivse töölehe pivot-tabelid värskendatakse.

Loe edasi: Kuidas värskendada kõiki Pivot-tabeleid Excelis

3. VBA-kood kõigi Pivot-tabelite värskendamiseks mitmes töövihikus

Kui soovite värskendada kõiki pivot-tabeleid mitmes töövihikus korraga koos VBA kood, siis on sammud järgmised:

• Avatud Visual Basic toimetaja alates Arendaja vahekaart ja Sisesta a Moodul koodiaknas.
• Kopeerige koodiaknas järgmine kood ja kleepige see sisse.

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

Teie kood on nüüd valmis käivitamiseks.

• Käivita koodi ja kõik pivot-tabelid kõigis teie avatud Exceli töövihikutes värskendatakse.

Pea meeles hoida kõiki töövihikuid avatud selle koodi käivitamisel.

Sarnased lugemised

• Kuidas redigeerida Pivot-tabelit Excelis (5 meetodit)
• Pivot tabeli vahemiku uuendamine (5 sobivat meetodit)
• Kuidas automaatselt uuendada Pivot tabelit, kui lähteandmed muutuvad

4. Pivot tabeli vahemälu värskendamine VBAga Excelis

Kui teil on oma töövihikus mitu pivot-tabelit, mis kasutavad samu andmeid, saate te värskendada ainult pivot tabeli vahemälu selle asemel, et värskendada kogu aeg tegelikku pivot-tabelit. Vahemälu värskendamine tühjendab automaatselt kõigi sama andmeühendust kasutavate pivot-tabelite vahemälu.

Selleks on järgmised sammud,

• Avatud Visual Basic toimetaja alates Arendaja vahekaart ja Sisesta a Moodul koodiaknas.
• Kopeerige koodiaknas järgmine kood ja kleepige see sisse.

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

Teie kood on nüüd valmis käivitamiseks.

• Käivita kood ja kõik pivot tabeli vahemälud tühjendatakse.

Loe edasi: Kuidas automaatselt värskendada Pivot tabelit ilma VBA-ta Excelis (3 nutikat meetodit)

5. Automaatne värskendamine Pivot tabeli muutmise ajal andmete muutmisel VBA makroga

Mis siis, kui teil on pivot-tabel, millel on suur hulk andmeid ja kõik, mida soovite, on uuendada mõned andmed, kuid kogu tabel jääb puutumata. Excelis saate te pivot-tabeli automaatne uuendamine andmete uuendamise ajal koos VBA .

• Avatud Visual Basic toimetaja alates Arendaja.
• Redaktori vasakul poolel oleks olemas Projekt Explorer paan, millel on kõik töölehe nimed.
• Veebilehel Projekt Explorer , topeltklõpsake lehe nimel, mis sisaldab pivot-tabelit.

• Ilmub koodiaken, kus loome sündmuse makro. Valige Tööleht alates Objekt koodimooduli vasakpoolses rippmenüüst. Sellega lisatakse Tööleht_valikMuutus sündmus moodulile, tegelikult ei ole meil seda vaja, seega kustutame selle koodi hiljem.
• Seejärel klõpsake nuppu Menetlus rippmenüüst ja valige Muuda See lisab koodimooduli tippu uue sündmuse nimega Tööleht_Change Kirjutame oma koodi siia nii kustutada kood, mille on genereerinud Tööleht_valikMuutus

• Nüüd kopeerige järgmine kood ja kleepige see faili Tööleht_Change

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

Teie kood on nüüd valmis käivitamiseks.

Siin, PivotTbl on meie Exceli töövihiku töölehe nimi ja PivotTable1 on meie Pivot Table'i nimi. Kirjutage nimi, mis on teie töölehel ja Pivot Table'il.

• Iga kord, kui muudate andmeid oma töölehe algses andmetabelis, uuendatakse automaatselt andmeid pivot-tabelis.

Loe edasi: Kuidas automaatselt värskendada Exceli Pivot-tabelit

Kokkuvõte

See artikkel näitas teile, kuidas uuendada pivot-tabelit Excelis koos VBA . ma loodan, et see artikkel oli teile väga kasulik. Küsige julgelt, kui teil on küsimusi selle teema kohta.