Actualizează tabelul pivot în VBA

De obicei, creăm un tabel pivot atunci când trebuie să creăm un fel de loturi sau diagrame sau trebuie să efectuăm unele analize asupra acesteia. Pregătind tabelul Pivot, putem obține imaginea de ansamblu și ideea despre ceea ce este de fapt în interiorul datelor. Acesta este cel mai bun mod de a găsi o modalitate de a intra în date. Și de fiecare dată când facem modificări în date, trebuie să actualizăm și tabelul pivot. Astfel, va popula și numărul actualizat de date. Actualizarea oricărei tabele pivot este foarte ușoară, dar ce este cazul dacă avem 10 secțiuni de tabele pivot într-un singur fișier excel pe care trebuie să îl actualizăm. Deci, în loc să reîmprospătați toate tabele pivot una câte una, putem actualiza direct toate tabelele pivot dintr-o singură dată, cu ajutorul tabelului Pivot actualizare VBA.

Cum să utilizați actualizați tabelul rotativ în Excel VBA?

Mai jos sunt prezentate diferitele exemple de utilizare a tabelului actualizator în Excel folosind codul VBA.

Puteți descărca acest șablon Excel cu tabel rotativ de actualizare VBA aici - șablonul Excel cu tabel rotativ VBA actualizare

Tabelul rotativ de actualizare VBA - Exemplul # 1

Pentru reîmprospătarea tabelului pivot, mai întâi, trebuie să creăm o tabelă pivot. Mai jos avem o informație de 1000 de elemente rând prin care vom crea un tabel pivot.

În ecranul de mai sus, putem vedea ultima linie la 1001, iar aceste date au informații despre clienți cu privire la cantitatea vândută acestora.

Acum accesați fila meniu Insert și faceți clic pe opțiunea PivotTable .

Vom primi o casetă Creare tabel rotativ. De acolo, mai întâi, selectăm intervalul de tabel pe care dorim să-l includem într-un tabel pivot. Apoi selectați orice locație din foaia curentă pentru tabelul Pivot. Putem alege și Foaie de lucru nouă.

Odată terminat, faceți clic pe Ok.

Vom obține tabelul pivot creat. Acum trageți câmpurile necesare în diferite zone pentru a obține tabelul pivot real. Aici, tragem numele Clientului în ROWS și Cantitatea în COLUMNI, așa cum se arată mai jos.

Aceasta finalizează crearea unui tabel rotativ. Dar trebuie să actualizăm tabelul pivot după ce am schimbat ceva în Date, acest lucru ar putea fi făcut prin simpla opțiune de actualizare din meniul derulant cu clic dreapta, așa cum se arată mai jos.

Dar același proces poate fi automatizat și prin VBA. Pentru aceasta, am avea nevoie de un modul. Asa de,

Pasul 1: Accesați fila Meniu Insert și selectați opțiunea Modul din lista derulantă, așa cum se arată mai jos.

Pasul 2: În modulul nou deschis, scrieți subcategoria de actualizare a pivotului VBA sau putem alege orice nume după alegerea noastră.

Cod:

 Sub Pivot_Refresh2 () End Sub

Pasul 3: Mai întâi, definiți o variabilă ca PivotCache așa cum se arată mai jos. PivotCache folosește cache-ul Pivot nu datele utilizate pentru crearea tabelului Pivot.

Cod:

 Sub Pivot_Refresh2 () Dim Tabel ca PivotCache End Sub

Pasul 4: Acum vom folosi bucla For-Each . Așadar, deschideți o buclă For-Each, așa cum se arată mai jos.

Cod:

 Sub Pivot_Refresh2 () Dim Tabel ca pivotCache pentru fiecare tabel următor

Pasul 5: Acum, în bucla For-End, vom scrie condiția în care vom selecta foaia de lucru deschisă curent, care are o tabelă Pivot cu PivotCache .

Cod:

 Sub Pivot_Refresh2 () Dim Tabel ca PivotCache pentru fiecare tabel din ThisWorkbook.PivotCaches Următorul tabel End sub

Pasul 6: Acum vom folosi comanda Actualizare atribuindu-i tabelul variabilei definite.

Cod:

 Sub Pivot_Refresh2 () Dim Tabel ca PivotCache pentru fiecare tabel din ThisWorkbook.PivotCaches Table.Refresh Următorul tabel

Pasul 7: Acesta completează codul, acum compilați codul la eroarea de fișier apăsând tasta funcțională F8. Acum, pentru a testa dacă codul scris nu funcționează, am schimbat cantitatea de Client14 la 69 .

Pasul 8: Acum rulați codul. Vom vedea că numărul total față de Client14 este actualizat la 2183, care este evidențiat în culoarea Galben.

Tabel rotativ de actualizare VBA - Exemplul # 2

Există un alt mod de a actualiza tabelul Pivot prin VBA. Înainte de a merge mai departe, putem lua în considerare schimbarea numelui unui tabel pivot sau putem folosi și numele implicit. Să încercăm să dăm un nou nume tabelului Pivot. Pentru aceasta, selectați tabelul pivot și accesați fila meniu Analiza, așa cum se arată mai jos.

În prima secțiune din PivotTable Name, putem vedea, numele implicit ca PivotTable1 .

Acum vom schimba acest nume. Luați în considerare scrierea noului nume ca date ale clienților, după cum se arată mai jos

Pasul 1: După aceea, deschideți un nou modul și scrieți subcategoria de actualizare VBA, așa cum se arată mai jos.

Cod:

 Sub Pivot_Refresh3 () End Sub

Pasul 2: Acum definiți o variabilă ca PivotTable . Aici, cu tabelul rotativ, vom lua în considerare datele sursă complete.

Cod:

 Sub Pivot_Refresh3 () Dim Tabel ca PivotTable End Sub

Pasul 3: Acum folosiți Setare cu variabilă definită și selectați foaia care este deschisă în prezent.

Cod:

 Sub Pivot_Refresh3 () Dim Dim Ca tabel de set PivotTable Set = ActiveSheet. Sub final

Pasul 4: Selectați numele tabelului Pivot pe care dorim să-l actualizăm împreună cu tipul de date variabile pe care l-am folosit ca tabel de pivotare.

Cod:

 Sub Pivot_Refresh3 () Tabel Dim Ca tabel de set PivotTable Set = ActiveSheet.PivotTables ("Date client")

Pasul 5: În sfârșit, utilizați variabila cu funcția RefreshTable pentru a o executa.

Cod:

 Sub Pivot_Refresh3 () Dim Tabel ca tabel de set PivotTable = ActiveSheet.PivotTables ("Date despre clienți") Table.RefreshTable Sub Sub

Pasul 6: Haideți să facem alte modificări în date, pentru a oferi imaginile reale ale codului aplicat.

Am schimbat numărul de clienți2 ca 56 . Acum, dacă rulăm codul, în tabelul pivot al Numelui Clientului, ar trebui să existe modificări în suma cantității pentru Client2 .

Pasul 7: Acum accesați fereastra VBA și compilați codul. Dacă nu a fost găsită nicio eroare, executați-o făcând clic pe butonul de redare care se află sub bara de meniu, așa cum se arată mai jos. Vom observa că o sumă de cantitate vândută pentru Customer2 se ridică acum la 1724 prin efectuarea modificărilor în tabelul sursă.

Prin aceasta, putem include mai mult de o sursă de date și să creăm un tabel pivot diferit. De asemenea, automatizarea acestor tabele pivot este ușoară, întrucât trebuie doar să includem numele și foaia tabelului pivot unde se află tabelul.

Avantajele tabelului pivot actualizare VBA

  • Este nevoie de foarte puțin timp în reîmprospătarea tabelului pivot prin cod VBA.
  • Este foarte ușor de implementat.

Lucruri de amintit

  • Putem adăuga mai multe surse de date și le automatizăm prin cod VBA.
  • Pentru a vedea modificările care au avut loc, mențineți fereastra VBA și foaia Excel paralele unele cu altele.
  • Este mai bine să numiți fiecare tabel pivot dacă aveți de-a face și gestionați mai multe surse de date și tabele pivot.
  • Codul cu numele tabelului pivot este ușor de înțeles, urmărit și localizat.

Articole recomandate

Acesta este un ghid pentru tabelul rotativ de actualizare VBA. Aici vom discuta despre cum să utilizăm Excel VBA Actualizare Pivot Tabel împreună cu exemple practice și șablon Excel descărcabile. De asemenea, puteți parcurge și alte articole sugerate -

  1. VBA FileSystemObject (FSO)
  2. Substring Funcție Excel
  3. VBA Lungimea șirului
  4. Excel Formula ISNUMBER

Categorie:

VBA