Visu šarnīra tabulu atsvaidzināšana manā Excel darbgrāmatā, izmantojot makro

Jā.

ThisWorkbook.RefreshAll

Vai, ja jūsu Excel versija ir pietiekami veca,

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

Šis VBA kods atsvaidzinās visas darbgrāmatā esošās šarnīra tabulas/ diagrammas.

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

Vēl viena neprogrammētiska iespēja ir:

• Ar peles labo pogu noklikšķiniet uz katras grozāmās tabulas
• Izvēlieties Tabulas opcijas
• Atzīmējiet opciju 'Atjaunināt, atverot'.
• Noklikšķiniet uz pogas OK

Tas atsvaidzinās šarnīra tabulu katru reizi, kad tiks atvērta darbgrāmata.

Jums ir PivotTables kolekcija objektā VB Worksheet. Tātad šāda ātra cilpa darbosies:

Sub RefreshPivotTables()
    Dim pivotTable As PivotTable
    For Each pivotTable In ActiveSheet.PivotTables
        pivotTable.RefreshTable
    Next
End Sub

Piezīmes no tranšejas:

1. Pirms PivotTable atjaunināšanas neaizmirstiet atcelt jebkuru aizsargāto lapu aizsardzību.
2. Saglabājiet bieži.
3. Es izdomāšu vairāk un atjaunināšu noteiktā laikā... :)

Veiksmi!