Imam delovni zvezek z 20 različnimi vrtilnimi tabelami. Ali obstaja kakšen preprost način za iskanje vseh vrtilnih tabel in njihovo osvežitev v VBA?
Da.
ThisWorkbook.RefreshAll
Ali če je vaša različica programa Excel dovolj stara,
Dim Sheet as WorkSheet, Pivot as PivotTable
For Each Sheet in ThisWorkbook.WorkSheets
For Each Pivot in Sheet.PivotTables
Pivot.RefreshTable
Pivot.Update
Next
Next
Ta koda VBA bo osvežila vse vrtilne tabele/grafe v delovnem zvezku.
Sub RefreshAllPivotTables()
Dim PT As PivotTable
Dim WS As Worksheet
For Each WS In ThisWorkbook.Worksheets
For Each PT In WS.PivotTables
PT.RefreshTable
Next PT
Next WS
End Sub
Druga neprogramska možnost je:
S tem boste osvežili vrtilno tabelo ob vsakem odprtju delovnega zvezka.
V objektu VB Worksheet imate zbirko PivotTables. Zato bo delovala hitra zanka, kot je ta:
Sub RefreshPivotTables()
Dim pivotTable As PivotTable
For Each pivotTable In ActiveSheet.PivotTables
pivotTable.RefreshTable
Next
End Sub
Opombe iz okopov:
Veliko sreče!