Hoe subtotalen in de draaitabel verbergen?
Als u in een draaitabel meer dan één veld aan de rij- of kolomlabels toevoegt, worden er subtotalen weergegeven. Heeft u ooit geprobeerd de subtotalen van de draaitabel te verwijderen?
Verberg of verwijder subtotalen in één draaitabel
Verberg of verwijder subtotalen in alle draaitabellen van het huidige werkblad
Verberg of verwijder subtotalen in één draaitabel
Om de subtotalen in een draaitabel te verwijderen, is er een gemakkelijke manier voor u, doe dit als volgt:
1. Klik op een cel in uw draaitabel en klik vervolgens op Design > subtotalen > Geen subtotalen weergeven, zie screenshot:
2. En de subtotalen binnen de opgegeven draaitabel zijn in één keer verborgen, zie screenshots:
Verberg of verwijder subtotalen in alle draaitabellen van het huidige werkblad
Als er meerdere draaitabellen in uw huidige werkblad staan en het vervelend zal zijn om de subtotalen een voor een te verbergen, kan de volgende VBA-code u helpen om subtotalen uit alle draaitabellen te verwijderen.
1. Houd de ALT + F11 toetsen, en het opent de Microsoft Visual Basic for Applications-venster.
2. Klik Invoegen > Moduleen plak de volgende code in het Module Venster.
VBA-code: verwijder subtotalen 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 F5 sleutel om deze code uit te voeren, en de subtotalen in alle draaitabellen van het actieve werkblad zijn in één keer verwijderd.
Tip: Als u de subtotalen opnieuw wilt zien, kunt u op de draaitabel klikken en klikken Design > Toon subtotalen onderaan de groep/ Toon subtotalen bovenaan de groep.
Gerelateerde artikelen:
Hoe meerdere eindtotalen in de draaitabel weergeven?
Hoe te sorteren met aangepaste lijstvolgorde in draaitabel?
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!