Man ir darbgrāmata ar 20 dažādām šarnīra tabulām. Vai ir kāds vienkāršs veids, kā atrast visas šarnīrgriežu tabulas un atsvaidzināt tās ar VBA?
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:
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:
Veiksmi!