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?