Draaitabellen vernieuwen in vba (met voorbeelden)

U kunt de volgende methoden gebruiken om draaitabellen in Excel te vernieuwen met VBA:

Methode 1: Vernieuw een specifieke draaitabel

 Sub RefreshPivotTable()
    Sheet1.PivotTables(" PivotTable1 ").Refreshtable
End Sub

Deze specifieke macro vernieuwt alleen de waarden in de draaitabel genaamd Draaitabel1 in blad 1 van de werkmap.

Methode 2: Vernieuw alle draaitabellen in de werkmap

 Sub RefreshAllPivotTables()
    ThisWorkbook.RefreshAll
End Sub

Deze specifieke macro vernieuwt de waarden van elke draaitabel in de hele werkmap.

De volgende voorbeelden laten zien hoe u elk van deze methoden in de praktijk kunt gebruiken.

Voorbeeld 1: Vernieuw een specifieke draaitabel

Laten we zeggen dat we een draaitabel hebben gemaakt op basis van een set gegevens in Excel:

Wanneer we ons op het tabblad Draaitabelanalyse langs het bovenste lint in Excel bevinden, kunnen we in de linkerbovenhoek zien dat deze draaitabel Draaitabel1 wordt genoemd.

Stel dat we de laatste waarde van de puntenkolom in de dataset wijzigen van 22 in 200 :

We kunnen de volgende macro maken om de waarden van deze specifieke draaitabel te vernieuwen:

 Sub RefreshPivotTable()
    Sheet1.PivotTables(" PivotTable1 ").Refreshtable
End Sub

Wanneer we deze macro uitvoeren, worden de draaitabelwaarden automatisch bijgewerkt:

Voorbeeld 2: Vernieuw alle draaitabellen in de werkmap

Laten we zeggen dat we twee draaitabellen hebben gemaakt op basis van een set gegevens in Excel:

De eerste draaitabel toont de som van de punten per team en per positie.

De tweede draaitabel toont de gemiddelde punten per team en positie.

Stel dat we de laatste waarde van de puntenkolom in de dataset wijzigen van 22 in 200 .

We kunnen de volgende macro maken om de waarden van alle draaitabellen in de hele werkmap te vernieuwen:

 Sub RefreshAllPivotTables()
    ThisWorkbook.RefreshAll
End Sub

Wanneer we deze macro uitvoeren, worden de waarden in beide draaitabellen automatisch bijgewerkt:

Aanvullende bronnen

In de volgende tutorials wordt uitgelegd hoe u andere veelvoorkomende taken in VBA kunt uitvoeren:

VBA: waarden toevoegen in een bereik
VBA: Hoe de gemiddelde waarde van het bereik te berekenen
VBA: unieke waarden binnen bereik tellen