Hoe subtotalen in een draaitabel verbergen?
In een draaitabel, wanneer je meer dan één veld toevoegt aan de rij- of kolomlabels, worden subtotalen weergegeven. Heb je ooit geprobeerd de subtotalen uit de draaitabel te verwijderen?
Subtotalen in één draaitabel verbergen of verwijderen
Subtotalen in alle draaitabellen van het huidige werkblad verbergen of verwijderen
Subtotalen in één draaitabel verbergen of verwijderen
Om de subtotalen in één draaitabel te verwijderen, is er een eenvoudige manier voor jou, doe als volgt:
1. Klik op een willekeurige cel in je draaitabel en klik vervolgens op Ontwerp > Subtotalen > Geen subtotalen weergeven, zie screenshot:
2. En de subtotalen binnen de aangegeven draaitabel zijn meteen verborgen, zie screenshots:
 |  |  |
Subtotalen in alle draaitabellen van het huidige werkblad verbergen of verwijderen
Als er meerdere draaitabellen in je huidige werkblad staan, en het verbergen van de subtotalen één voor één zou tijdrovend zijn, kan de volgende VBA-code je helpen om subtotalen uit alle draaitabellen te verwijderen.
1. Houd de toetsen ALT + F11 ingedrukt, en het venster Microsoft Visual Basic for Applications wordt geopend.
2. Klik op Invoegen > Module, en plak de volgende code in het modulevenster.
VBA-code: Subtotalen verwijderen in alle draaitabellen van het huidige werkblad
Sub RemoveSubtotals()
'Update 20140905
Dim xPt As PivotTable
Dim xPf As PivotField
On Error Resume Next
For Each xPt In Application.ActiveSheet.PivotTables
For Each xPf In xPt.PivotFields
xPf.Subtotals(1) = True
xPf.Subtotals(1) = False
Next
Next
End Sub
3. Druk vervolgens op de F5-toets om deze code uit te voeren, en de subtotalen in alle draaitabellen van het actieve werkblad zijn meteen verwijderd.
Tip: Als je de subtotalen opnieuw wilt weergeven, kun je op de draaitabel klikken en op Ontwerp > Subtotalen onderaan groep weergeven / Subtotalen bovenaan groep weergeven klikken.
Gerelateerde artikelen:
Hoe meerdere eindtotalen in een draaitabel weergeven?
Hoe sorteren met een aangepaste lijstvolgorde in een draaitabel?
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