Osveževanje vseh vrtilnih tabel v delovnem zvezku excel z makrom

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:

• Z desno tipko miške kliknite na vsako vrtilno tabelo
• Izberite Možnosti tabele
• Označite možnost 'Osveži ob odprtju'.
• Kliknite na gumb V redu

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:

1. Pred posodobitvijo PivotTable ne pozabite odstraniti zaščite vseh zaščitenih listov.
2. Pogosto shranjujte.
3. Spomnil se bom še na kaj več in to pravočasno dopolnil... :)

Veliko sreče!