VBA pentru a reîmprospăta tabelul pivot în Excel (5 exemple)

Hugh West

29-09-2023 Excel Pivot Table
  • Imparte Asta
Hugh West

Implementarea Macro VBA este cea mai eficientă, mai rapidă și mai sigură metodă de a executa orice operațiune în Excel. În acest articol, vă vom arăta cum să reîmprospătați tabelul pivot în Excel utilizând VBA.

Descărcați caietul de lucru

Puteți descărca gratuit caietul de lucru Excel de practică de aici.

Reîmprospătarea tabelului pivot cu VBA.xlsm

5 Exemple de reîmprospătare a tabelului pivot cu VBA în Excel

Urmează exemplul tabelului nostru pivot pe care îl vom folosi pe parcursul întregului articol și vă vom arăta 5 exemple diferite de reîmprospătarea tabelelor pivot în Excel cu VBA cod.

1. VBA pentru a reîmprospăta un tabel pivot în Excel

Dacă doriți să reîmprospătați doar un tabel pivot în foaia de calcul Excel,

  • Apăsați Alt + F11 de pe tastatură sau mergeți la fila Dezvoltator -> Visual Basic pentru a deschide Editor Visual Basic .

  • În fereastra de cod pop-up, din bara de meniu, faceți clic pe Inserare -> Modul .

  • Copiați următorul cod și lipiți-l în fereastra de cod. 
 Sub RefreshOnePivotTable() ActiveSheet.PivotTables("PivotTable1").RefreshTable End Sub

Codul dumneavoastră este acum gata de a fi executat.

Aici, TabelPivot1 este numele Tabelului Pivot. Scrieți numele pe care îl are Tabelul Pivot.

  • Apăsați F5 de pe tastatură sau, din bara de meniu, selectați Run -> Run Sub/UserForm Puteți, de asemenea, să faceți clic pe pictograma mică de redare din bara de submeni pentru a rula macrocomenzul.

Acest lucru va reîmprospătați tabelul pivot în foaia de calcul Excel existentă.

Citește mai mult: Tabelul pivot nu se reîmprospătează (5 probleme & soluții)

2. Macro pentru reîmprospătarea tuturor tabelelor pivot din foaia de lucru activă

Pentru a reîmprospăta toate tabelele pivot din foaia de lucru activă , urmați pașii de mai jos.

  • În același mod ca și înainte, deschideți Editor Visual Basic de la Dezvoltator fila și Introduceți a Modul în fereastra de cod.
  • În fereastra de cod, copiați următorul cod și lipiți-l. 
 Sub RefreshActiveSheetPivotTables() Dim PivotTbl As PivotTable For Each PivotTbl In ActiveSheet.PivotTables PivotTbl.RefreshTable Next PivotTbl End Sub

Codul dumneavoastră este acum gata de a fi executat.

  • Rulați și toate tabelele pivot din foaia de lucru activă vor fi reîmprospătate.

Citește mai mult: Cum să reîmprospătați toate tabelele pivotante în Excel

3. Codul VBA pentru a reîmprospăta toate tabelele pivotante din mai multe registre de lucru

Dacă doriți să reîmprospătați toate tabelele pivot din mai multe registre de lucru imediat cu VBA cod, atunci pașii sunt:

  • Deschideți Editor Visual Basic de la Dezvoltator fila și Introduceți a Modul în fereastra de cod.
  • În fereastra de cod, copiați următorul cod și lipiți-l. 
 Sub RefreshAllPivotTables() Dim PivotTbl As PivotTable For Each PivotTbl In ActiveWorkbook.PivotTables PivotTbl.RefreshTable Next PivotTbl End Sub

Codul dumneavoastră este acum gata de a fi executat.

  • Rulați codul și toate tabelele pivot din toate registrele de lucru Excel deschise vor fi actualizate.

Amintiți-vă pentru a păstra toate registrele de lucru deschis în timp ce se execută acest cod.

Lecturi similare

  • Cum să editați un tabel pivot în Excel (5 metode)
  • Actualizarea intervalului tabelului pivot (5 metode adecvate)
  • Cum să actualizați automat un tabel pivot atunci când datele sursă se modifică

4. Reîmprospătarea memoriei cache a tabelului pivot cu VBA în Excel

Dacă aveți mai multe tabele pivot în registrul de lucru care utilizează aceleași date, puteți reîmprospătați numai memoria cache a tabelului pivot în loc să reîmprospătați mereu tabelul pivot real. Reîmprospătarea memoriei cache șterge automat memoria cache a tuturor tabelelor pivot care utilizează aceeași conexiune de date în memoria cache.

Pașii pentru a face acest lucru sunt,

  • Deschideți Editor Visual Basic de la Dezvoltator fila și Introduceți a Modul în fereastra de cod.
  • În fereastra de cod, copiați următorul cod și lipiți-l. 
 Sub RefreshPivotTableCache() Dim PivotCache As PivotCache For Each PivotCache In ActiveWorkbook.PivotCaches PivotCache PivotCache.Refresh Next PivotCache End Sub

Codul dumneavoastră este acum gata de a fi executat.

  • Rulați codul și toate memoriile cache ale tabelului pivot vor fi șterse.

Citește mai mult: Cum să reîmprospătați automat tabelul pivotant fără VBA în Excel (3 metode inteligente)

5. Reîmprospătarea automată a tabelului pivot în timp ce se schimbă datele cu ajutorul macro VBA

Ce se întâmplă dacă aveți un tabel pivot care are o cantitate mare de date și tot ce doriți este să actualizați câteva date, fără a afecta întregul tabel. În Excel, puteți să reîmprospătarea automată a tabelului pivot în timp ce se actualizează datele cu VBA .

  • Deschideți Editor Visual Basic de la Dezvoltator.
  • În partea stângă a editorului, va exista un buton Proiect Explorer care conține toate denumirile foii de lucru.
  • În Proiect Explorer , faceți dublu clic pe numele foii care conține tabelul pivotant.

  • Va apărea fereastra de cod în care vom crea o macro de eveniment. Alegeți Fișa de lucru de la Obiect din stânga modulului de cod. Acest lucru va adăuga un cod Schimbare_Selecție_foaie_de_lucru în modul, de fapt nu avem nevoie de el, așa că vom șterge această bucată de cod mai târziu.
  • Apoi faceți clic pe butonul Procedura lista derulantă și selectați Schimbare Acest lucru adaugă un nou eveniment în partea de sus a modulului de cod numit Schimbare_foaie_de_lucru Vom scrie codul nostru aici, astfel șterge codul generat de Schimbare_Selecție_foaie_de_lucru

  • Acum copiați următorul cod și lipiți-l în Schimbare_foaie_de_lucru 
 Private Sub Worksheet_Change(ByVal Target As Range) Worksheets("PivotTbl").PivotTables("PivotTable1").PivotCache.Refresh End Sub

Codul dumneavoastră este acum gata de a fi executat.

Aici, PivotTbl este numele foii de lucru din registrul nostru de lucru Excel și TabelPivot1 este numele tabelului pivot. Scrieți numele pe care îl are foaia de lucru și tabelul pivot.

  • Acum, de fiecare dată când modificați datele din tabelul de date original din foaia de lucru, datele din tabelul pivot vor fi actualizate automat.

Citește mai mult: Cum să reîmprospătați automat tabelul pivotant în Excel

Concluzie

Acest articol v-a arătat cum să reîmprospătați tabelul pivot în Excel cu VBA . sper că acest articol a fost foarte benefic pentru dvs. Nu ezitați să mă întrebați dacă aveți întrebări legate de acest subiect.

Postarea anterioară Utilizarea funcției Offset în Excel
Postarea următoare Cum se face conversia Picioare pătrate în Metri pătrați în Excel (2 metode rapide)

Hugh West este un trainer și analist Excel cu o experiență de peste 10 ani în industrie. Deține o diplomă de licență în contabilitate și finanțe și un master în administrarea afacerilor. Hugh are o pasiune pentru predare și a dezvoltat o abordare unică de predare care este ușor de urmărit și de înțeles. Cunoștințele sale experte despre Excel au ajutat mii de studenți și profesioniști din întreaga lume să-și îmbunătățească abilitățile și să exceleze în cariera lor. Prin blogul său, Hugh își împărtășește cunoștințele lumii, oferind tutoriale gratuite Excel și instruire online pentru a ajuta persoanele și companiile să-și atingă întregul potențial.