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:
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
