Hoe voegt u meerdere velden toe aan een draaitabel?
Bij het maken van een draaitabel slepen we velden gewoonlijk één voor één naar het gedeelte Rijlabels of Waarden. Als u een lange lijst met velden hebt, is het eenvoudig om er enkele als rijlabels toe te voegen, maar het resterende deel toevoegen aan het gedeelte Waarden kan tijdrovend zijn. Bestaat er een snelle manier om alle overgebleven velden in één keer aan het gedeelte Waarden toe te voegen?
Voeg meerdere velden toe aan het gedeelte Waarden van Draaitabel met VBA-code
Voeg meerdere velden toe aan het gedeelte Waarden van Draaitabel met VBA-code
Excel biedt momenteel geen ingebouwde functie—zoals een ‘selecteer alles’-selectievakje—in het veldenlijstpaneel om met één klik alle resterende velden direct aan het gedeelte Waarden toe te voegen. U kunt dit echter efficiënt automatiseren met een eenvoudige VBA-macro. Deze oplossing is bijzonder geschikt als u dit proces regelmatig herhaalt of werkt met een groot aantal gegevensvelden. Hieronder vindt u de gedetailleerde stappen en essentiële waarschuwingen om deze methode veilig en effectief toe te passen:
1.Nadat u uw draaitabel hebt gemaakt, voegt u de velden die u als rijlabels wilt gebruiken toe met de gebruikelijke sleep-en-plaatsmethode. Laat de andere velden—die u als waarden wilt samenvatten—ongeselecteerd in het gedeelte Kies velden om aan rapport toe te voegen. Zie de volgende schermafbeelding ter referentie:
3. Ga in het VBA-venster naar Invoegen > Module om een nieuwe module te maken. Kopieer en plak vervolgens de volgende VBA-code in het modulevenster. Ga naar Developer > Visual Basic vanuit het Excel-lint en zorg dat je in de juiste werkmap werkt.
2. Druk op ALT + F11 om het venster Microsoft Visual Basic for Applications te openen. U kunt het ook openen door te klikken op
VBA-code: Voeg meerdere velden toe aan het gedeelte Waarden van Draaitabel in het actieve werkblad
Sub AddAllFieldsValues()
'Update 20141112
Dim pt As PivotTable
Dim I As Long
For Each pt In ActiveSheet.PivotTables
For I = 1 To pt.PivotFields.Count
With pt.PivotFields(I)
If .Orientation = 0 Then .Orientation = xlDataField
End With
Next
Next
End Sub
4. Druk vervolgens op F5 om de macro uit te voeren, of klik op de knop Uitvoeren in de werkbalk van de VBA-editor. De macro verwerkt alle draaitabellen in het huidige werkblad: voor elke tabel voegt deze velden die u nog niet als rijlabels of kolomlabels hebt toegevoegd, direct toe aan het gedeelte Waarden. Zo verschijnt elk beschikbare gegevensveld als een samengevatte waarde in uw draaitabel, waardoor uitgebreide analyses razendsnel kunnen worden uitgevoerd. Zie de volgende schermafbeelding ter referentie:
Opmerking: Deze macro past wijzigingen toe op alle draaitabellen in het actieve werkblad op het moment dat u deze uitvoert. Als u meerdere draaitabellen hebt en er slechts één wilt bijwerken, overweeg dan om die tijdelijk naar een apart werkblad te verplaatsen. Sla uw werk altijd op voordat u VBA-code uitvoert, aangezien macro’s onomkeerbare wijzigingen kunnen aanbrengen. Daarnaast probeert deze macro automatisch alle resterende velden toe te voegen — inclusief velden die mogelijk niet geschikt zijn voor numerieke samenvatting — wat kan leiden tot fouten in de samenvatting of betekenisloze resultaten bij velden met niet-numerieke gegevens.
Gerelateerde artikelen:
Hoe toont u alle draaitabellen in een werkmap?
Hoe controleert u of er een draaitabel in een werkmap aanwezig is?
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins