Osvježi stožernu tablicu u VBA

Obično kreiramo okretnu tablicu kada trebamo stvoriti neku vrstu crteža ili grafikona ili trebamo izvršiti neku analizu nad njom. Pripremom stožerne tablice možemo dobiti opći prikaz i ideju o tome što se zapravo nalazi unutar podataka. To je najbolji način da pronađete način za ulazak u podatke. Svaki put kada napravimo bilo kakve promjene u podacima, također moramo osvježiti stožernu tablicu. Tako će se popuniti i ažurirani broj podataka. Osvježavanje bilo koje okretne tablice je vrlo jednostavno, ali što ako imamo 10 s okretnih tablica u jednoj excel datoteci koju moramo ažurirati. Dakle, umjesto da osvježimo sve okretne tablice jednu po jednu, možemo izravno osvježiti sve okretne tablice u jednom potezu uz pomoć VBA Refresh stožernog stola.

Kako koristiti Osvježi stožernu tablicu u Excelu VBA?

Ispod su sljedeći primjeri za korištenje Osvježi stožernu tablicu u Excelu pomoću VBA koda.

Ovdje možete preuzeti ovaj VBA osvježiti stolni Excel obrazac za okretnu tablicu - VBA Osvježi Excel predložak okretne tablice

VBA Osvježiti stožernu tablicu - Primjer # 1

Za osvježavanje stožerne tablice, prvo moramo stvoriti okretnu tablicu. Ispod imamo podatke stavke retka od 1000 osoba po kojoj ćemo izrađivati ​​okretnu tablicu.

Na gornjoj snimci zaslona možemo vidjeti posljednji redak pod brojem 1001, a ti podaci sadrže podatke o kupcima u odnosu na količinu koja im je prodana.

Sada idite na karticu izbornika Umetanje i kliknite na opciju PivotTable .

Dobit ćemo okvir Create PivotTable. Odatle najprije odaberite raspon tablice koji želimo uključiti u okretnu tablicu. Zatim odaberite bilo koje mjesto na trenutnom listu za stožernu tablicu. Možemo odabrati i Novi radni list.

Nakon završetka kliknite OK.

Napravit ćemo stvorenu stožernu tablicu. Sada prevucite potrebna polja u različita područja kako biste dobili stvarnu okretnu tablicu. Ovdje povlačimo naziv kupca u ROWS i Količina u COLUMNS kao što je prikazano u nastavku.

Ovim se završava stvaranje okretne tablice. Ali trebamo ažurirati okretnu tablicu nakon što promijenimo bilo šta u Podaci, to bi se moglo učiniti jednostavnim osvježavanjem opcije s desnog klika na padajućem popisu izbornika kao što je prikazano u nastavku.

No isti se proces može automatizirati i putem VBA. Za to bi nam trebao Modul. Tako,

Korak 1: Idite na karticu izbornika Umetanje i na padajućem popisu odaberite opciju Modula kao što je prikazano u nastavku.

Korak 2: U novootvoreni modul napišite potkategoriju VBA Pivot Refresh ili možemo odabrati bilo koje ime prema vlastitom izboru.

Kodirati:

 Sub Pivot_Refresh2 () Kraj Sub

Korak 3: Prvo definirajte varijablu kao PivotCache kao što je prikazano u nastavku. PivotCache koristi Pivot predmemoriju, a ne podatke koji se koriste za izradu Pivot tablice.

Kodirati:

 Sub Pivot_Refresh2 () Dimna tablica kao kraj završetka PivotCache-a Sub

4. korak: Sada ćemo koristiti petlju For-svaka . Stoga otvorite petlju For-Every kao što je prikazano u nastavku.

Kodirati:

 Sub Pivot_Refresh2 () Dim tablica kao stožerni pomak za svaki sljedeći kraj tablice Sub

Korak 5: Sada ćemo unutar for-end petlje napisati uvjet gdje ćemo odabrati trenutno otvoreni radni list koji ima stožernu tablicu s PivotCacheom .

Kodirati:

 Sub Pivot_Refresh2 () Dim tablica kao stožerni pretvarač za svaku tablicu u ovoj knjizi rada.PivotCaches sljedeći kraj tablice Pod

Korak 6: Sada ćemo upotrijebiti naredbu Refresh za dodjelu definirane varijable Tablica .

Kodirati:

 Sub Pivot_Refresh2 () Dim tablica kao stožerni pretvarač za svaku tablicu u ovoj radnoj knjizi.PivotCaching tablica.Osnovi sljedeći kraj tablice Pod

Korak 7: Ovim se završava kôd, sada sastavite kôd za datotečnu pogrešku pritiskom na F8 funkcionalnu tipku. Sada da bismo provjerili radi li pisani kod na ne, promijenili smo količinu kupca14 na 69 .

Korak 8: Sada pokrenite kod. Vidjet ćemo da je ukupno računanje prema kupcu14 ažurirano na 2183, što je istaknuto žutom bojom.

VBA Osvježiti stožernu tablicu - Primjer # 2

Postoji još jedan način osvježavanja stožerne tabele putem VBA. Prije nego što krenemo naprijed, možemo razmotriti promjenu imena stožerne tablice ili možemo koristiti i zadano ime. Pokušajmo dati novo ime stožernoj tablici. Za to odaberite okretnu tablicu i idite na karticu izbornika Analiza kao što je prikazano u nastavku.

U prvom odjeljku Naziv stope tabele, možemo vidjeti, zadani naziv kao PivotTable1 .

Sada ćemo promijeniti ovo ime. Razmislite o pisanju novog imena kao korisničkim podacima kao što je prikazano u nastavku.

Korak 1: Nakon toga otvorite novi modul i napišite podkategoriju VBA Refresh kao što je prikazano u nastavku.

Kodirati:

 Sub Pivot_Refresh3 () Kraj Sub

Korak 2: Sada definirajte varijablu kao PivotTable . Ovdje ćemo s PivotTableom razmotriti kompletne izvorne podatke.

Kodirati:

 Sub Pivot_Refresh3 () Dim tablica kao kraj okretne tablice Sub

Korak 3: Sada koristite Set s definiranom varijablom i odaberite list koji je trenutno otvoren.

Kodirati:

 Sub Pivot_Refresh3 () Dim tablica kao tablica postavljenih okretnih tablica = ActiveSheet. Kraj Sub

Korak 4: Odaberite ime stožerne tablice koju želimo osvježiti zajedno s promjenjivom vrstom podataka koju smo koristili kao okretnu tablicu.

Kodirati:

 Sub Pivot_Refresh3 () Dim tablica kao tablica postavljenih okretnih tablica = ActiveSheet.PivotTables ("Podaci o klijentu") Kraj Pod

Korak 5: Napokon, koristite varijablu s funkcijom RefreshTable da biste je izvršili.

Kodirati:

 Sub Pivot_Refresh3 () Dim tablica kao tablica postavljenih okretnih tablica = ActiveSheet.PivotTables ("Podaci o klijentu") Tablica.RefreshTable Kraj

Korak 6: Učinimo još neke promjene u podacima kako bismo dobili stvarne slike primijenjenog koda.

Promijenili smo broj kupaca2 kao 56 . Ako pokrenemo kôd, u stožernoj tablici Naziv kupca trebalo bi doći do promjena u zbroju količine za Kupca2 .

Korak 7: Sada idite na VBA prozor i sastavite kod. Ako nije pronađena nijedna pogreška, pokrenite je klikom na gumb za reprodukciju koji se nalazi ispod trake izbornika kao što je prikazano u nastavku. Primijetit ćemo da količina prodane količine za Customer2 sada raste do 1724. godine unošenjem promjena u izvornu tablicu.

Na ovaj način možemo uključiti više izvora i stvoriti drugačiju okretnu tablicu. A automatizacija i tih okretnih tablica je jednostavna jer trebamo samo unijeti naziv i tablice stožerne tablice gdje se tablica nalazi.

Prednosti VBA Osvježiti stožernu tablicu

  • Za osvježavanje okretne tablice prema VBA kodu potrebno je vrlo manje vremena.
  • Vrlo je lako implementirati.

Stvari koje treba zapamtiti

  • Možemo dodati tablici s više izvora podataka i automatizirati ih pomoću VBA koda.
  • Da biste vidjeli promjene se dogodilo, držite VBA prozor i Excel list paralelno jedan s drugim.
  • Bilo je bolje imenovati svaku okretnu tablicu ako se bavite i rukujete više izvora podataka i okretnim tablicama.
  • Kôd s nazivom okretne tablice lako je razumjeti, pratiti i locirati.

Preporučeni članci

Ovo je vodič za VBA Refresh stožernu tablicu. Ovdje smo raspravljali o tome kako koristiti Excel VBA Osvježiti stožernu tablicu zajedno s praktičnim primjerima i preuzeti Excel predložak. Možete i pregledati naše druge predložene članke -

  1. VBA FileSystemObject (FSO)
  2. Podstring Excel funkcija
  3. VBA Dužina žice
  4. Formula ISNUMBER Formula

Kategorija:

VBA