Hoe wijzigt u meerdere veldinstellingen in een draaitabel?
Wanneer u een draaitabel maakt in een werkblad en velden naar het Waarden-gedeelte van de Draaitabelveldlijst sleept, krijgt u mogelijk overal dezelfde samenvattingsfunctie: Aantal, zoals op de volgende schermafbeelding te zien is. Maar stel dat u liever de functie Som wilt gebruiken in plaats van Aantal voor al die velden tegelijk — hoe wijzigt u dan de berekening van meerdere draaitabelvelden in één keer in Excel?
Wijzig de Veldinstellingen in Draaitabel handmatig één voor één
Wijzig meerdere Veldinstellingen in Draaitabel met VBA-code
Wijzig de Veldinstellingen in Draaitabel handmatig één voor één
In Excel kunt u de berekening in de Waarde Veldinstellingen wijzigen door de functie één voor één aan te passen in het dialoogvenster. Volg hiervoor deze stappen:
1. Selecteer een veld in het Waarden-gebied waarvan u de samenvattingsfunctie wilt wijzigen in de draaitabel, klik er met de rechtermuisknop op en kies Waardeveldinstellingen, zie schermafbeelding:
2. Selecteer vervolgens in het dialoogvenster Waarde Veldinstellingen, onder het tabblad Waarden samenvatten op, het gewenste type berekening. Zie schermafbeelding:
3. Klik daarna op OK om dit dialoogvenster te sluiten. U ziet dan dat uw AANTAL-functie is gewijzigd in de SOM-functie, zie de schermafbeelding:
4. Herhaal de bovenstaande stappen om de berekeningsinstellingen van de overige velden één voor één aan te passen.
Opmerking: U kunt de veldinstellingen ook wijzigen door met de rechtermuisknop op een veldcel te klikken en Waarden samenvatten op te kiezen, waarna u de gewenste berekening selecteert in het contextmenu.
Wijzig meerdere Veldinstellingen in Draaitabel met VBA-code
De bovenstaande methode kost veel tijd en is vervelend wanneer u veel veldberekeningen moet aanpassen. Daarom bied ik u hier een VBA-code waarmee u meerdere veldinstellingen tegelijkertijd kunt wijzigen.
1. Klik op een willekeurige cel in uw draaitabel.
2. Houd de toetsencombinatie 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: Wijzig meerdere Veldinstellingen in Draaitabel
Public Sub SetDataFieldsToSum()
'Update 20141127
Dim xPF As PivotField
Dim WorkRng As Range
Set WorkRng = Application.Selection
With WorkRng.PivotTable
.ManualUpdate = True
For Each xPF In .DataFields
With xPF
.Function = xlSum
.NumberFormat = "#,##0"
End With
Next
.ManualUpdate = False
End With
End Sub
4. Druk vervolgens op de toets F5 om deze code uit te voeren. Alle veldinstellingen in uw geselecteerde draaitabel zijn nu tegelijkertijd omgezet naar de gewenste berekening, zie schermafbeeldingen:
|
 |
 |
Opmerking: In de bovenstaande code kunt u de Som-functie vervangen door een andere berekening, zoals Gemiddelde, Max of Min. Wijzig hiervoor alleen het woord Som in deze regels code:Public Sub SetDataFieldsToSum() en .Function = xlSum naar de gewenste functie.
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