Cum se reîmprospătează tabelul pivot atunci când datele se schimbă în Excel?

După cum știți, dacă modificați datele din tabelul original, tabelul pivot relativ nu actualizează datele din acesta între timp. Dacă trebuie să reîmprospătați tabelul pivot atunci când datele se schimbă în tabel în Excel, vă pot spune câteva modalități rapide.

Reîmprospătați tabelul pivot într-o foaie de lucru apăsând Reîmprospătare

Reîmprospătați tabelul pivot într-o foaie de lucru sau un registru de lucru cu VBA

Reîmprospătați tabelul pivot într-o foaie de lucru apăsând Reîmprospătare

În Excel, există o funcție Reîmprospătare și Reîmprospătare toate pentru a reîmprospăta tabelul pivot într-o singură foaie de lucru.

Faceți clic pe un tabel pivot pe care doriți să îl reîmprospătați, apoi faceți clic pe Opțiune (în Excel 2013, faceți clic pe A ANALIZA)> Reîmprospăta > Reîmprospăta. Vedeți captura de ecran:

Dacă doriți să reîmprospătați toate tabelele pivot într-o singură foaie de lucru, puteți selecta împrospătare.

Reîmprospătați tabelul pivot într-o foaie de lucru sau un registru de lucru cu VBA

Cu VBA, nu numai că puteți reîmprospăta toate tabelele pivot dintr-o singură foaie de lucru, ci și puteți reîmprospăta toate tabelele pivot din întregul registru de lucru.

1. presa F11 + Alt tastele împreună de pe tastatură pentru a deschide fișierul Microsoft Visual Basic pentru aplicații fereastră.

2. Apoi apasa Insera > Module pentru a insera o nouă fereastră de modul. Și apoi copiați următorul cod VBA în fereastră.

VBA: Reîmprospătați tabelele pivot într-o foaie de lucru.

Sub AllWorksheetPivots()
'Updateby20140724
Dim xTable As PivotTable
For Each xTable In Application.ActiveSheet.PivotTables
    xTable.RefreshTable
Next
End Sub

3. clic Alerga butonul din fereastră sau tasta F5 pentru a rula VBA, apoi tabelele pivot dintr-o foaie de lucru sunt reîmprospătate.

Vârf: Pentru a reîmprospăta toate tabelele pivot dintr-un întreg registru de lucru, puteți utiliza următorul VBA.

VBA: Reîmprospătați toate tabelele pivot dintr-un registru de lucru.

Sub RefreshAllPivotTables()
'Updateby20140724
Dim xWs As Worksheet
Dim xTable As PivotTable
For Each xWs In Application.ActiveWorkbook.Worksheets
    For Each xTable In xWs.PivotTables
        xTable.RefreshTable
    Next
Next
End Sub

Articole relative:

• Reîmprospătați tabelul pivot în fișier deschis în Excel
• Actualizați intervalul de date al tabelului pivot în Excel