Automatsko osvježavanje Pivot Tablice
(Automatic refresh or Update PivotTable)
Uzmimo za primjer da ste kreirali
PivotTablicu. Ako ne znate
kako se kreira Pivot Tablica
pogledajte na dotičnom linku. Izvorne bazne
podatke povremeno imate potrebu izmijeniti i želite da vam
se automatski iste promjene podataka odraze na Pivot
Tablicu.
Ovaj problem automatskog osvježavanja
podataka u Pivot Tablici možemo riješiti pomoću VBA
makronaredbe (Macro) koju smjestimo u VBE dotičnog radnog
lista (WorkSheet).
Možemo postaviti da se podaci osvježe (refresh) prilikom otvaranja datoteke koja sadrži PivotTable.
Situacija je slijedeća:
Imamo nekakve podatke na Sheetu "Podaci"
prikazane na slici ispod.
Na Sheetu "Rezultat" smo kreirali Pivot
tablicu. U Options PivotTable možemo uočiti koji je naziv
naše Pivot tablice.
Povremeno vršimo izmjene u izvornom Sheetu
tj. bazi podataka.
Želimo da prelaskom tj. aktiviranjem
Sheeta "Rezultat" izmjene koje smo napravili se odraze i na
našu Pivot tablicu.
Da bi smo riješili ovo automatsko
osvježavanje (refresh ili update) PivotTable iskoristimo ovu
makronaredbu ispod.
Kliknite na naziv Sheet "Rezultat" desnom tipkom miša
pa klik na View Code pa zalijepite makronaredbu (Macro)
u CodeWindow.
Option Explicit
Private Sub Worksheet_Activate()
'Izmijenite "Rezultat"
u naziv vašeg Sheeta na kojem se nalaze izvorni podaci
'Izmijenite "PivotTable4" u naziv vaše PivotTable
Sheets("Rezultat").PivotTables("PivotTable4").RefreshTable
End Sub
Snimite Workbook i zatvorite je.
Otvorite Workbook ponovno, izvršite izmjene na baznim
podacima i prijeđite na Sheet "Rezultat". Uočite da su se
izmjene koje ste izvršili automatski odrazile i na
PivotTable. U koliko vršite dodavanje novih podataka u
baznu tablicu tada na samoj PivotTable izvršite Change
Data Source i selektirajte novo područje (range)
Probajte i ovu makronaredbu na aktivnom
Sheetu
Sub RefreshPivot()
Sheets("rezultat").Select
ActiveSheet.PivotTables("PivotTable4").PivotCache.Refresh
End Sub
Također možete probati i ove makronaredbe
gdje se prije izvođenja refresha otključava Sheet pa nakon
refrsha zaključava Sheet
Sub RefreshPivot()
Const C_Pwd = "YourPassword"
With ActiveSheet
.Unprotect C_Pwd
.PivotTables(4).PivotCache.Refresh
.Protect C_Pwd
End With
End Sub
Ili za više Sheets (više Pivot tablica)
Private Sub Workbook_SheetActivate(ByVal
Sh As Object)
Dim pt As PivotTable, bPiv As Boolean
If Sh.Type <> xlWorksheet Then Exit Sub
For Each pt In Me.PivotTables
Me.Protect Password:="Secret", UserInterfaceOnly:=True
pt.RefreshTable
Next pt
End Sub
|
|
Također pogledajte i ostale tutorijale
vezane za Pivot Table:
-
Create PivotTable from
multiple Worksheets
-
Kreiranje Pivot Tablice u
Excelu 2007
-
Automatsko osvježavanje Pivot
Tablice
-
Auto refresh Pivot Table and
Chart conditional value
-
Radno vrijeme Pivot tablica
i grafikon u Excelu
-
Kako zbrojiti vrijednosti
između dva datuma uz uvjet pomoću Pivot Tablice
|