Hoe voeg ik meerdere velden toe aan een draaitabel?
Wanneer we een draaitabel maken, moeten we de velden een voor een handmatig 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 gebied Waarde. Zijn er snelle methoden om alle andere velden met één klik in de draaitabel toe te voegen aan het gebied Waarde?
Voeg meerdere velden toe aan het waardegebied van de draaitabel met VBA-code
Voeg meerdere velden toe aan het waardegebied van de draaitabel met VBA-code
Helaas is er voor ons geen selectievakje om snel alle velden in de lijst met draaitabelvelden met één klik te controleren, maar met de volgende VBA-code kan het u helpen om de resterende velden in één keer aan het gebied Waarden toe te voegen. Ga als volgt te werk:
1. Nadat u de draaitabel heeft gemaakt, moet u eerst de rijlabelvelden naar behoefte toevoegen en de waardevelden in de Kies velden om toe te voegen aan rapport lijst, zie screenshot: </ p>
2. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic for Applications-venster.
3. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.
VBA-code: voeg meerdere velden toe aan het waardegebied van draaitabellen in een actief 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 sleutel om deze code uit te voeren, alle resterende velden zijn tegelijkertijd aan het gebied Waarden toegevoegd, zie screenshot:
Note: Deze VBA-code wordt toegepast op alle draaitabellen van een actief werkblad.
Gerelateerde artikelen:
Hoe alle draaitabellen weergeven in een werkmap?
Hoe controleer ik of een draaitabel in een werkmap bestaat?
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!
