Hoe voeg je meerdere velden toe aan een draaitabel?
Wanneer we een draaitabel maken, moeten we de velden handmatig één voor één naar de Rijlabels of Waarden slepen. Als we een lange lijst met velden hebben, kunnen we snel een paar rijlabels toevoegen, maar de resterende velden moeten worden toegevoegd aan het Waardegebied. Zijn er snelle methoden om alle andere velden met één klik in het Waardegebied van de draaitabel toe te voegen?
Voeg meerdere velden toe aan het Waardegebied van een draaitabel met VBA-code
Voeg meerdere velden toe aan het Waardegebied van een draaitabel met VBA-code
Helaas is er geen selectievakje waarmee we alle velden in de Draaitabelveldenlijst met één klik snel kunnen selecteren, maar met de volgende VBA-code kun je de resterende velden tegelijkertijd aan het Waardegebied toevoegen. Doe het volgende:
1. Nadat je de draaitabel hebt gemaakt, moet je eerst de rijlabelvelden naar behoefte toevoegen en de waardevelden laten staan in de Lijst met velden om toe te voegen aan rapport, zie screenshot:
2. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.
3. Klik op Invoegen > Module en plak de volgende code in het Modulevenster.
VBA-code: Voeg meerdere velden toe aan het Waardegebied van draaitabellen 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 de F5-toets om deze code uit te voeren, alle resterende velden zijn tegelijkertijd aan het Waardegebied toegevoegd, zie screenshot:
Opmerking: Deze VBA-code is van toepassing op alle draaitabellen van het actieve werkblad.
Gerelateerde artikelen:
Hoe maak je een lijst van alle draaitabellen in een werkboek?
Hoe controleer je of een draaitabel bestaat in een werkboek?
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen