Osveži vrtilno tabelo v VBA

Običajno ustvarimo vrtilno tabelo, ko moramo ustvariti nekakšne ploskve ali grafikone ali pa moramo nad njo opraviti kakšno analizo. S pripravo tabele Pivot lahko dobimo celoten pogled in predstavo o tem, kaj je dejansko znotraj podatkov. To je najboljši način za iskanje informacij. Vsakič, ko spremenimo podatke, moramo osvežiti tudi vrtilno tabelo. Tako bo tudi napolnjeno število prenovljenih podatkov. Osveževanje katere koli vrtilne tabele je zelo enostavno, kaj pa, če imamo v eni datoteki excel 10s vrtilnih tabel, ki jih moramo posodobiti. Torej lahko namesto osveževanja vseh vrtilnih tabel eno za drugo neposredno osvežimo vse vrtilne tabele s pomočjo VBA Refresh vrtilne tabele.

Kako uporabljati osveži vrtilno tabelo v Excelu VBA?

Spodaj so različni primeri za uporabo Osveži vrtilno tabelo v Excelu z uporabo kode VBA.

To predlogo za osveževanje vrtilne tabele VBA Osveži predlogo lahko prenesete tukaj - VBA Osveži predlogo Excelove vrtilne tabele

VBA Osveži vrtilno tabelo - primer št. 1

Za osvežitev vrtilne tabele moramo najprej izdelati vrtilno tabelo. Spodaj imamo podatke vrstice vrstice 1000s, po kateri bomo ustvarjali vrtilno tabelo.

Na zgornjem posnetku zaslona lahko vidimo zadnjo vrstico pod številko 1001 in ti podatki vsebujejo podatke o strankah glede na prodano količino.

Zdaj pojdite na jeziček Vstavi meni in kliknite možnost PivotTable .

Dobili bomo polje Ustvari vrtilno tabelo. Od tam najprej izberite obseg tabele, ki jo želimo vključiti v vrtilno tabelo. Nato izberite poljubno mesto v trenutnem listu za vrtilno tabelo. Izberemo lahko tudi Nov delovni list.

Ko končate, kliknite V redu.

Dobili bomo ustvarjeno vrtilno tabelo. Zdaj povlecite potrebna polja v različna območja, da dobite dejansko vrtilno tabelo. Tu povlečemo ime stranke v ROWS in Količina v COLUMNS, kot je prikazano spodaj.

S tem se zaključi izdelava vrtilne tabele. Toda moramo spremeniti vrtilno tabelo, potem ko spremenimo karkoli v podatku, to lahko storimo s preprosto osvežitvijo možnosti s spustnega seznama z desno miškino tipko, kot je prikazano spodaj.

Toda isti postopek je mogoče avtomatizirati tudi prek VBA. Za to bi potrebovali Modul. Torej,

1. korak: Pojdite na jeziček Vstavi meni in na spustnem seznamu izberite možnost Modul, kot je prikazano spodaj.

2. korak: V novo odprti modul napišite podkategorijo VBA Pivot Refresh ali pa lahko izberemo poljubno ime po lastni izbiri.

Koda:

 Sub Pivot_Refresh2 () Konec Pod

3. korak: Najprej določite spremenljivko kot PivotCache, kot je prikazano spodaj. PivotCache uporablja pomnilnik Pivot, ne pa podatki, ki se uporabljajo za ustvarjanje tabele.

Koda:

 Sub Pivot_Refresh2 () Zatemnjena tabela kot konec pivotCache Sub

4. korak: Zdaj bomo uporabili zanko For- Every. Torej odprite zanko For-Every, kot je prikazano spodaj.

Koda:

 Sub Pivot_Refresh2 () Zatemnjena tabela kot vrtilni predpomnilnik za vsako naslednjo tabelo Pod

5. korak: Zdaj v zanko For-End zapišemo pogoj, ko bomo izbrali trenutno odprt delovni list, ki ima vrtilno tabelo s PivotCache .

Koda:

 Pod Pivot_Refresh2 () Zatemnjena tabela kot vrtilni predpomnilnik za vsako tabelo v tej knjigi.

6. korak: Zdaj bomo uporabili ukaz Refresh in mu dodelili definirano spremenljivko Tabela .

Koda:

 Pod Pivot_Refresh2 () Zatemnjena tabela kot vrtilni predpomnilnik za vsako tabelo v tej knjigi.

7. korak: S tem dokončate kodo, zdaj s pritiskom na funkcijsko tipko F8 sestavite kodo za napako. Zdaj, da preverimo, ali pisana koda deluje ne, smo količino stranke14 spremenili v 69 .

8. korak: Zdaj zaženite kodo. Videli bomo, da je skupno število kupcev v primerjavi s stranko14 posodobljeno na 2183, kar je poudarjeno v rumeni barvi.

VBA Osveži vrtilno tabelo - primer # 2

Obstaja še en način za osvežitev vrtilne tabele prek VBA. Preden gremo naprej, lahko razmislimo o spremembi imena vrtilne tabele ali pa lahko uporabimo tudi privzeto ime. Poskusimo dati novo ime tabeli Pivot. Za to izberite vrtilno tabelo in pojdite na zavihek menija Analiza, kot je prikazano spodaj.

V prvem razdelku imena vrtilne tabele lahko vidimo privzeto ime kot vrtilna tabela1 .

Zdaj bomo to ime spremenili. Razmislite, ali bi novo ime zapisali kot podatke o strankah, kot je prikazano spodaj.

1. korak: Po tem odprite nov modul in napišite podkategorijo VBA Refresh, kot je prikazano spodaj.

Koda:

 Sub Pivot_Refresh3 () Konec Sub

2. korak: Zdaj določite spremenljivko kot vrtilno tabelo . Tu bomo s PivotTable upoštevali celotne podatke o izvoru.

Koda:

 Pod Pivot_Refresh3 () Zatemnjena tabela kot končna vrtilna tabela Pod

Korak 3: Zdaj uporabite Set z definirano spremenljivko in izberite list, ki je trenutno odprt.

Koda:

 Pod Pivot_Refresh3 () Zatemnjena tabela kot tabela nastavitve vrtilne tabele = ActiveSheet. Končni pod

4. korak: Izberite ime vrtilne tabele, ki jo želimo osvežiti, in spremenljiv tip podatkov, ki smo ga uporabili kot vrtilno tabelo.

Koda:

 Pod Pivot_Refresh3 () Dimna tabela kot tabela nastavitve vrtilne tabele = ActiveSheet.PivotTables ("Podatki o kupcu") End Sub

5. korak: Končno uporabite spremenljivko s funkcijo RefreshTable, da jo izvršite.

Koda:

 Pod Pivot_Refresh3 () Dimna tabela kot tabela nastavitve vrtilne tabele = ActiveSheet.PivotTables ("Podatki o kupcu") Tabela.RefreshTable End Sub

6. korak: Naredimo še nekaj sprememb podatkov, da bomo dali resnične slike uporabljene kode.

Število strank2 smo spremenili v 56 . Zdaj, če zaženemo kodo, bi morali v vrtilni tabeli Ime stranke obstajati spremembe vsote količine za Stranko2 .

7. korak: Pojdite v okno VBA in sestavite kodo. Če napake ni mogoče najti, jo zaženite s klikom na gumb za predvajanje, ki je pod menijsko vrstico, kot je prikazano spodaj. Opazili bomo, da se vsota prodane količine za stranko2 s spremembami v izvorni tabeli poveča do leta 1724.

S tem lahko vključimo več izvornih podatkov in ustvarimo drugačno vrtilno tabelo. Tudi avtomatizacija teh vrtilnih tabel je enostavna, saj moramo samo vključiti ime vrtilne tabele in list, kjer se nahaja tabela.

Prednosti VBA Osveži vrtilno tabelo

  • Za osvežitev vrtilne tabele s kodo VBA potrebuje zelo manj časa.
  • Izvedba je zelo enostavna.

Stvari, ki jih je treba zapomniti

  • Tabeli virov virov lahko dodamo več tabel in jih avtomatiziramo s kodo VBA.
  • Če želite videti spremembe, ohranite okno VBA in list Excela vzporedno drug do drugega.
  • Vsako vrtilno tabelo je bolje imenovati, če imate opravka z več viri podatkov in vrtilnimi tabelami.
  • Kodo z imenom vrtilne tabele je enostavno razumeti, slediti in najti.

Priporočeni članki

To je vodnik za osveževalno vrtilno tabelo VBA. Tukaj smo razpravljali o uporabi Excelove VBA Osveži vrtilno tabelo s praktičnimi primeri in naložljivo predlogo Excela. Ogledate si lahko tudi druge naše predlagane članke -

  1. VBA FileSystemObject (FSO)
  2. Funkcija podvrsti Excela
  3. VBA Dolžina niza
  4. Excel ISNUMBER Formula

Kategorija:

VBA