Jak skrýt mezisoučty v kontingenční tabulce?
Když v kontingenční tabulce přidáte do popisků řádků nebo sloupců více než jedno pole, zobrazí se mezisoučty. Zkusili jste někdy odstranit mezisoučty z kontingenční tabulky?
Skrýt nebo odebrat mezisoučty v jedné kontingenční tabulce
Skrýt nebo odebrat mezisoučty ve všech kontingenčních tabulkách aktuálního listu
Skrýt nebo odebrat mezisoučty v jedné kontingenční tabulce
Chcete-li odstranit mezisoučty v jedné kontingenční tabulce, existuje pro vás snadný způsob, postupujte takto:
1. Klikněte na libovolnou buňku v kontingenční tabulce a poté klikněte na Design > Mezisoučet > Nezobrazovat mezisoučty, viz screenshot:
2. A mezisoučty v určené kontingenční tabulce byly skryty najednou, viz screenshoty:
 |
 |
 |
Skrýt nebo odebrat mezisoučty ve všech kontingenčních tabulkách aktuálního listu
Pokud ve vašem aktuálním listu existuje více kontingenčních tabulek, bude skrýt mezisoučty po jednom zdlouhavé, takže následující kód VBA vám pomůže odstranit mezisoučty ze všech kontingenčních tabulek.
1. Podržte ALT + F11 klíče a otevře se Okno Microsoft Visual Basic pro aplikace.
2. klikněte Vložit > Modula vložte následující kód do Okno modulu.
Kód VBA: Odstraňte mezisoučty ve všech kontingenčních tabulkách aktuálního listu
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. Pak stiskněte tlačítko F5 klíč ke spuštění tohoto kódu a mezisoučty ve všech kontingenčních tabulkách aktivního listu byly odstraněny najednou.
Tip: Chcete-li znovu zobrazit mezisoučty, můžete kliknout na kontingenční tabulku a kliknout Design > Zobrazit mezisoučty ve spodní části skupiny/ Zobrazit mezisoučty v horní části skupiny.
Související články:
Jak zobrazit více velkých součtů v kontingenční tabulce?
Jak třídit s vlastním seznamem v kontingenční tabulce?
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
