Wanneer u gegevens moet vernieuwen of bijwerken in een bestaande Draaitabel na het aanmaken ervan, moet u de Gegevensbron wijzigen Het handmatig bijwerken van de draaitabel is echter onhandig en tijdrovend. Daarom moet u uitzoeken hoe u een automatische draaitabel kunt maken die de gegevens automatisch bijwerkt. In deze handleiding laten we u zien hoe u een draaitabel automatisch kunt bijwerken als de brongegevens veranderen.

Download Praktijk Werkboek

Download dit oefenwerkboek om te oefenen terwijl u dit artikel leest.

7 eenvoudige stappen om een draaitabel automatisch bij te werken als de brongegevens veranderen

In de onderstaande afbeelding hebben we een dataset opgenomen met informatie over verkoopgegevens in verschillende regio's. U kunt ervan uitgaan dat onze dataset vrij groot is. Voor een dynamisch doel hebben we dus een geautomatiseerd proces nodig telkens wanneer we gegevens bijwerken. Daartoe voeren we een VBA-code en pas het toe op de onderstaande dataset. Volg de onderstaande stappen om de taak te voltooien.

Stap 1: Maak een draaitabel met een gegevensbronbereik

• Klik eerst op de Plaats tabblad om een draaitabel .
• Klik vervolgens op de Draaitabel commando van de Draaitabellen groep.
• Selecteer de Van tabel/bereik optie uit de lijst.

• Selecteer het tabelbereik met de kop.
• Kies de Nieuw werkblad optie om de draaitabel op een nieuw werkblad.
• Klik dan op OK .

• In een nieuw werkblad ( Blad4 ), wordt de draaitabel gemaakt.
• Zoals u in de onderstaande afbeelding kunt zien, kunt u de velden ( Regio , Tak , Prijs , Hoeveelheid , enz.) te verschijnen in de draaitabel .
• Selecteer de Draaitabel commando van de Draaitabel Analyseren U kunt de naam van uw draaitabel ( Draaitabel2 ) daar en bewerk het indien nodig.

Stap 2: Visual Basic Editor openen om VBA-code toe te passen

• Druk op Alt + F11 om de Visual Basic-editor .
• Van de VBA Excel-objecten dubbelklik om de naam van het werkblad te selecteren ( Sheet2 ) waar uw gegevensverzameling zich bevindt.

Stap 3: Maak een werkbladgebeurtenis met uw blad met gegevensset

• Om een werkblad gebeurtenis voor Sheet2 selecteer de Werkblad optie uit de lijst.

Opmerkingen: A werkblad gebeurtenis betekent dat alle wijzigingen die u aanbrengt in de brongegevens onmiddellijk in uw programma worden weerspiegeld. Daarom wordt het programma automatisch uitgevoerd wanneer u wijzigingen aanbrengt in de brongegevensreeks.

Stap 4: Een nieuwe gebeurtenis voor wijziging in het werkblad invoegen

• Kies Verander in plaats van SelectionChange om een nieuwe werkbladgebeurtenis te maken.

• Verwijder de vorige om alleen de gebeurtenis van de verandering te behouden.

Stap 5: Alle variabelen declareren met een expliciete optieverklaring

• Om alle variabelen te declareren en de niet gedeclareerde variabelen te vinden, typt u Optie Expliciet bovenaan de programmapagina.

Stap 6: VBA-code invoegen om de draaitabel automatisch bij te werken

• Krijg de voltooide VBA-code en plak het.

 Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) 'Sheet4 is de bladnaam van de PivotTable locatie 'PivotTable2 is de PivotTable Naam Sheet4.PivotTables("PivotTable2").PivotCache.Refresh End Sub 

Stap 7: VBA-code uitvoeren en wijzigingen in de resultaten verkrijgen

• Druk op F5 om de VBA-code .
• Breng een wijziging aan in de gegevensset om te zien of het programma nog steeds werkt. Bijvoorbeeld, in de IRE regio, de prijs waarde voor de Belfast tak is veranderd in £113 .

• Ga terug naar uw draaitabel, en zie dat de gewijzigde prijs waarde ( £113 ) wordt bijgewerkt.

Conclusie

Ik hoop dat dit artikel u een handleiding heeft gegeven over hoe u een draaitabel automatisch kunt bijwerken wanneer de brongegevens in Excel Al deze procedures moeten worden geleerd en toegepast op uw dataset. Bekijk de oefenwerkmap en stel deze vaardigheden op de proef. We zijn gemotiveerd om tutorials als deze te blijven maken dankzij uw waardevolle steun.

Neem contact met ons op als u vragen hebt. Laat ook gerust opmerkingen achter in de rubriek hieronder.

Wij, de Exceldemy Team, reageren altijd op uw vragen.

Blijf bij ons en blijf leren.