Toepassing van VBA-macro is de meest effectieve, snelste en veiligste methode om elke bewerking in Excel uit te voeren. In dit artikel laten we u zien hoe u de draaitabel in Excel verversen met VBA.

Werkboek downloaden

U kunt de gratis oefen Excel-werkmap hier downloaden.

Draaitabel vernieuwen met VBA.xlsm

5 Voorbeelden om draaitabel te vernieuwen met VBA in Excel

Hieronder volgt het voorbeeld van onze draaitabel die we in het hele artikel zullen gebruiken en waarvan we u 5 verschillende voorbeelden zullen laten zien. draaitabellen verversen in Excel met VBA code.

1. VBA om een draaitabel in Excel te vernieuwen

Als u slechts één draaitabel verversen in uw Excel-werkblad dan,

• Druk op Alt + F11 op uw toetsenbord of ga naar de tab Ontwikkelaar -> Visual Basic om te openen Visual Basic-editor .

• In het pop-up codevenster, klik in de menubalk op Invoegen -> Module .

• Kopieer de volgende code en plak die in het codevenster.

 Sub VernieuwenOnePivotTable() ActiveSheet.PivotTables("PivotTable1").RefreshTable Eind Sub 

Uw code is nu klaar om te draaien.

Hier, Draaitabel1 is onze draaitabelnaam. U schrijft de naam die uw draaitabel heeft.

• Druk op F5 op uw toetsenbord of selecteer in de menubalk Run -> Run Sub/UserForm U kunt ook gewoon op de klein pictogram Play in de submenubalk om de macro uit te voeren.

Dit zal de draaitabel verversen in uw bestaande Excel-werkblad.

Lees meer: Draaitabel niet verversen (5 problemen en oplossingen)

2. Macro voor het vernieuwen van alle draaitabellen in het actieve werkblad

Om alle draaitabellen in het actieve werkblad te vernieuwen volg de onderstaande stappen.

• Dezelfde manier als voorheen, open Visual Basic-editor van de Ontwikkelaar tab en Plaats a Module in het codevenster.
• Kopieer in het codevenster de volgende code en plak deze.

 Sub VernieuwActiveSheetPivotTables() Dim PivotTbl Als PivotTable Voor Elke PivotTbl In ActiveSheet.PivotTables PivotTbl.RefreshTable Volgende PivotTbl Einde Sub 

Uw code is nu klaar om te draaien.

• Ren de macro en worden alle draaitabellen in uw actieve werkblad ververst.

Lees meer: Alle draaitabellen in Excel vernieuwen

3. VBA-code om alle draaitabellen in meerdere werkmappen te vernieuwen

Als u alle draaitabellen in meerdere werkmappen verversen meteen met VBA code dan zijn de stappen:

• Open Visual Basic-editor van de Ontwikkelaar tab en Plaats a Module in het codevenster.
• Kopieer in het codevenster de volgende code en plak deze.

 Sub Alle draaitabellen vernieuwen() Dim PivotTbl Als draaitabel Voor elke draaitabel in ActiveWorkbook.PivotTables PivotTbl.RefreshTable Volgende draaitabel Einde Sub 

Uw code is nu klaar om te draaien.

• Ren de code en alle draaitabellen in al uw geopende Excel-werkmappen worden ververst.

Denk aan om alle werkboeken te bewaren open tijdens het uitvoeren van deze code.

Vergelijkbare lezingen

• Een draaitabel bewerken in Excel (5 methoden)
• Draaitabelbereik bijwerken (5 geschikte methoden)
• Een draaitabel automatisch bijwerken als de brongegevens veranderen

4. De draaitabel-cache vernieuwen met VBA in Excel

Als u meerdere draaitabellen in uw werkmap hebt die dezelfde gegevens gebruiken, kunt u alleen de cache van de draaitabel verversen in plaats van steeds de eigenlijke draaitabel te verversen. Het verversen van de cache wist automatisch het cachegeheugen van alle draaitabellen die dezelfde gegevensverbinding in de cache gebruiken.

Stappen om dat te doen zijn,

• Open Visual Basic-editor van de Ontwikkelaar tab en Plaats a Module in het codevenster.
• Kopieer in het codevenster de volgende code en plak deze.

 Sub VernieuwenPivotTabelCache() Dim PivotCache Als PivotCache Voor Elke PivotCache In ActiveWorkbook.PivotCaches PivotCache.Vernieuwen Volgende PivotCache Einde Sub 

Uw code is nu klaar om te draaien.

• Ren de code en alle cache-geheugens van de draaitabel worden gewist.

Lees meer: Hoe automatisch draaitabel verversen zonder VBA in Excel (3 slimme methoden)

5. Draaitabel automatisch vernieuwen terwijl gegevens worden gewijzigd met VBA-macro

Wat als u een draaitabel hebt met een grote hoeveelheid gegevens en u wilt alleen maar een paar gegevens bijwerken terwijl de hele tabel onaangeroerd blijft? In Excel kunt u automatisch verversen van de draaitabel terwijl de gegevens worden bijgewerkt met VBA .

• Open Visual Basic-editor van de Ontwikkelaar.
• Aan de linkerkant van de editor zou er een Projectverkenner deelvenster met alle namen van het werkblad.
• In Projectverkenner dubbelklik op de bladnaam die de draaitabel bevat.

• Het codevenster verschijnt waar we een gebeurtenismacro zullen maken. Kies Werkblad van de Object drop-down box aan de linkerkant van de code module. Dit zal een Werkblad_SelectieWijziging evenement naar de module, we hebben het eigenlijk niet nodig, dus we zullen dit stukje code later verwijderen.
• Klik dan op de Procedure drop-down lijst en selecteer Verander Dit voegt een nieuwe gebeurtenis toe bovenaan de code module genaamd Werkblad_wijziging We zullen onze code hier zo schrijven verwijder de code gegenereerd door de Werkblad_SelectieWijziging

• Kopieer nu de volgende code en plak die in de Werkblad_wijziging

 Private Sub Worksheet_Change(ByVal Target As Range) Worksheets("PivotTbl").PivotTables("PivotTable1").PivotCache.Refresh End Sub 

Uw code is nu klaar om te draaien.

Hier, PivotTbl is de werkbladnaam in onze Excel-werkmap en Draaitabel1 U schrijft de naam die uw werkblad en draaitabel heeft.

• Telkens wanneer u nu de gegevens in de oorspronkelijke gegevenstabel in uw werkblad wijzigt, worden de gegevens in de draaitabel automatisch bijgewerkt.

Lees meer: Hoe de draaitabel in Excel automatisch te verversen

Conclusie

Dit artikel liet zien hoe je de draaitabel verversen in Excel met VBA Ik hoop dat dit artikel nuttig voor je is geweest. Voel je vrij om vragen te stellen als je vragen hebt over het onderwerp.