IZBORNIK HOME FORUM ACCESS 2003 EXCEL 2003 WORD 2003  .
   
   
HOME
FORUM Win Tips&Tricks
   
KAKO INSTALIRATI
WINDOWS XP ?
Kako instalirati Win XP sa USB STICKA
Kako instalirati WINDOWS 7 ?
Naučite za 15 minuta raditi u Windows XP
Naučite Internet Explorer i Outlook Express
za 15 minuta
Kako kreirati BOOT CD za instalaciju Win95
   
MS OFFICE 2003
MS OFFICE 2007
   
   
HOME NETWORK
tutorijal za mreže
Network Windows 7 - XP
   
ZANIMLJIVI LINKOVI
BROJEVNI SUSTAVI
(DEC, OKT, BIN, HEX )
CMD - Command Prompt
CISCO - CCNA tutoriali
VLSM and SUBNETTING
   
Tutorijali za phpBB forum
JAVASCRIPT
VISUAL BASIC 6.0
AUTOCAD 2007
 
.
MICROSOFT EXCEL 2007 - Kako automatski osvježiti Pivot tablicu, Kako izvršiti Update PivotTabel, Refresh PivotTable

Kako automatski izvršiti osvježavanje Pivot Tablice
(Automatic Refresh or Update PivotTable)


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.

Refresh or Update PivotTable When openning the file

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







©- 2006 - 2021 - IvanC  - Sva prava pridržana.  ic.ims.hr