Oppdater pivottabell i VBA

Vi lager vanligvis et pivottabell når vi trenger å lage noen form for tomter eller diagrammer, eller vi må utføre en analyse over den. Ved å utarbeide Pivot-tabellen, kan vi få den generelle oversikten og ideen om hva som faktisk er inni dataene. Dette er den beste måten å finne en måte å komme inn på data på. Og hver gang vi gjør endringer i dataene, må vi også oppdatere pivottabellen. Slik at den også fyller det oppdaterte datatellingen. Det er veldig enkelt å oppdatere et pivottabell, men hva om vi har 10 s pivottabeller i en enkelt Excel-fil som vi trenger å oppdatere. Så i stedet for å oppdatere alle pivottabellene én etter én, kan vi direkte oppdatere alle pivottabellene på en gang ved hjelp av VBA Refresh Pivot Table.

Hvordan bruke Refresh Pivot Table i Excel VBA?

Nedenfor er de forskjellige eksemplene du kan bruke Refresh Pivot Table i Excel ved å bruke VBA-kode.

Du kan laste ned denne VBA Refresh Pivot Table Excel Template her - VBA Refresh Pivot Table Excel Template

VBA Refresh Pivot Table - Eksempel nr. 1

For å oppdatere pivottabellen, må vi først lage et pivottabell. Nedenfor har vi en artikkel på 1000-tallet som vi lager en pivottabell.

I skjermbildet over kan vi se den siste linjen på 1001 og disse dataene har kundeinformasjon mot mengden som er solgt til dem.

Gå nå til Sett inn menyfanen og klikk på PivotTable- alternativet.

Vi vil få en Create PivotTable-boks. Derfra velger du først tabellen som vi vil inkludere i en pivottabell. Velg deretter hvilket som helst sted i det gjeldende arket for Pivot-tabellen. Vi kan velge nytt arbeidsark også.

Når du er ferdig, klikker du på Ok.

Vi vil få laget pivottabellen. Dra nå de nødvendige feltene til forskjellige områder for å få den faktiske pivottabellen. Her drar vi kundenavn til ROWS og Quantity til COLUMNS som vist nedenfor.

Dette fullfører opprettelsen av en pivottabel. Men vi må oppdatere pivottabellen etter å ha endret noe i Data. Dette kan gjøres ved å oppdatere alternativet fra høyre-rullegardinmenyen som vist nedenfor.

Men den samme prosessen kan også automatiseres gjennom VBA. For dette trenger vi en modul. Så,

Trinn 1: Gå til Sett inn menyfanen og velg Modulalternativ fra rullegardinlisten som vist nedenfor.

Trinn 2: Skriv den underkategorien til VBA Pivot Refresh i den nyåpnede modulen, eller vi kan velge hvilket som helst navn etter vårt valg.

Kode:

 Sub Pivot_Refresh2 () Slutt Sub

Trinn 3: Definer først en variabel som PivotCache som vist nedenfor. PivotCache bruker Pivot-cachen, ikke dataene som brukes til å lage Pivot-tabellen.

Kode:

 Sub Pivot_Refresh2 () Dim Tabell Som PivotCache End Sub

Trinn 4: Nå bruker vi For- Loop. Så åpne en For-hver-sløyfe som vist nedenfor.

Kode:

 Sub Pivot_Refresh2 () Dim Tabell som PivotCache for hver neste tabellslutt Sub

Trinn 5: Nå inne i For-End-sløyfen, vil vi skrive betingelsen der vi vil velge det åpnede arbeidsarket som har en Pivot-tabell med PivotCache .

Kode:

 Sub Pivot_Refresh2 () Dim Table Som PivotCache for hver tabell i ThisWorkbook.PivotCaches Next Table End Sub

Trinn 6: Nå vil vi bruke Refresh- kommandoen som tilordnes den definerte variabelen Tabell .

Kode:

 Sub Pivot_Refresh2 () Dim Tabell som PivotCache for hver tabell i ThisWorkbook.PivotCaches Table.Refresh Next Table End Sub

Trinn 7: Dette fullfører koden, kompiler nå koden til filfeil ved å trykke på funksjonstasten F8. Nå for å teste, om den skriftlige koden fungerer ikke, har vi endret mengden av Customer14 til 69 .

Trinn 8: Kjør nå koden. Vi vil se det totale antallet mot kunde14 er oppdatert til 2183, som er uthevet i gul farge.

VBA Refresh Pivot Table - Eksempel # 2

Det er en annen måte å oppdatere pivottabellen gjennom VBA. Før vi går videre, kan vi vurdere å endre navnet på en pivottabell, eller vi kan også bruke standardnavnet. La oss prøve å gi et nytt navn til pivottabellen. For dette velger du pivottabellen og går til Analyser- menyfanen som vist nedenfor.

I den første delen av PivotTable Name kan vi se standardnavnet som PivotTable1 .

Nå skal vi endre dette navnet. Vurder å skrive det nye navnet som kundedata som vist nedenfor.

Trinn 1: Åpne deretter en ny modul og skriv underkategorien til VBA Refresh som vist nedenfor.

Kode:

 Sub Pivot_Refresh3 () Slutt Sub

Trinn 2: Definer nå en variabel som PivotTable . Her, med PivotTable, vil vi vurdere de fullstendige kildedataene.

Kode:

 Sub Pivot_Refresh3 () Dim Table As PivotTable End Sub

Trinn 3: Bruk nå Set med definert variabel og velg arket som for øyeblikket er åpnet.

Kode:

 Sub Pivot_Refresh3 () Dim Table As PivotTable Set Table = ActiveSheet. Slutt sub

Trinn 4: Velg navnet på Pivot-tabellen som vi vil oppdatere sammen med den variable datatypen vi har brukt som PivotTable .

Kode:

 Sub Pivot_Refresh3 () Dim Table As PivotTable Set Table = ActiveSheet.PivotTables ("Customer Data") Slutt Sub

Trinn 5: Bruk endelig variabelen med RefreshTable- funksjonen for å utføre den.

Kode:

 Sub Pivot_Refresh3 () Dim Table As PivotTable Set Table = ActiveSheet.PivotTables ("Customer Data") Table.RefreshTable End Sub

Trinn 6: La oss gjøre noen flere endringer i dataene, for å gi den virkelige grafikken til brukt kode.

Vi har endret antall kunder2 som 56 . Hvis vi kjører koden, i pivottabellen med kundenavn, skal det være endringene i summen av mengden for kunde2 .

Trinn 7: Gå nå til VBA-vinduet og sett sammen koden. Hvis ingen feil ble funnet, kjør den ved å klikke på spillknappen som er under menylinjen som vist nedenfor. Vi vil legge merke til at en sum solgt mengde for Customer2 nå går opp til 1724 ved å gjøre endringene i kildetabellen.

Ved dette kan vi inkludere mer enn en kildedata og lage en annen pivottabell. Og det er enkelt å automatisere pivottabellene, da vi bare trenger å ta med pivottabellnavnet og arket der tabellen ligger.

Fordeler med VBA Refresh Pivot Table

  • Det tar veldig mindre tid å oppdatere pivottabellen med VBA-kode.
  • Det er veldig enkelt å implementere.

Ting å huske

  • Vi kan legge til flere datakilder og automatisere dem etter VBA-kode.
  • For å se endringene skjedde, hold VBA-vindu og Excel-ark parallelt med hverandre.
  • Det er bedre å navngi hver eneste pivottabell hvis du har å gjøre med og håndtere flere datakilder og pivottabeller.
  • Kode med pivottabellnavn er lett å forstå, spore og lokalisere.

Anbefalte artikler

Dette er en guide til VBA Refresh Pivot Table. Her diskuterer vi hvordan du bruker Excel VBA Refresh Pivot Table sammen med praktiske eksempler og nedlastbar Excel-mal. Du kan også gå gjennom andre foreslåtte artikler -

  1. VBA FileSystemObject (FSO)
  2. Substring Excel-funksjon
  3. VBA lengde på streng
  4. Excel ISNUMBER-formel

Kategori:

VBA