Kako osvežiti vrtilno tabelo, ko se podatki spremenijo v Excelu?

Kot veste, če spremenite podatke v izvirni tabeli, relativna vrtilna tabela medtem ne osveži podatkov v njej. Če morate osvežiti vrtilno tabelo, ko se podatki spremenijo v tabeli v Excelu, vam lahko povem nekaj hitrih načinov.

Osvežite vrtilno tabelo na delovnem listu s pritiskom na Osveži

Osvežite vrtilno tabelo na delovnem listu ali delovnem zvezku z VBA

Osvežite vrtilno tabelo na delovnem listu s pritiskom na Osveži

V Excelu obstaja funkcija Osveži in osveži vse za osvežitev vrtilne tabele na enem delovnem listu.

Kliknite vrtilno tabelo, za katero želite osvežiti podatke, in nato kliknite Možnost (v Excelu 2013 kliknite ANALIZA)> Osveži > Osveži. Oglejte si posnetek zaslona:

Če želite osvežiti vse vrtilne tabele na enem delovnem listu, lahko izberete Osveži vse.

Osvežite vrtilno tabelo na delovnem listu ali delovnem zvezku z VBA

Z VBA lahko osvežite ne samo vse vrtilne tabele na enem delovnem listu, temveč lahko osvežite tudi vse vrtilne tabele v celotnem delovnem zvezku.

1. Pritisnite F11 + Nadomestna tipke na tipkovnici, da odprete Microsoft Visual Basic za aplikacije okno.

2. Nato kliknite Vstavi > Moduli da vstavite novo okno modula. Nato v okno kopirajte naslednjo kodo VBA.

VBA: osvežite vrtilne tabele na delovnem listu.

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

3. klik Run v oknu ali tipko F5 za zagon VBA, nato se osrednje tabele na delovnem listu osvežijo.

Nasvet: Če želite osvežiti vse vrtilne tabele v celotnem delovnem zvezku, lahko uporabite naslednji VBA.

VBA: osvežite vse vrtilne tabele v delovnem zvezku.

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

Relativni članki:

• Osveži vrtilno tabelo v datoteki, odprti v Excelu
• Posodobite obseg podatkov vrtilne tabele v Excelu