Jak ukryć sumy częściowe w tabeli przestawnej?
W tabeli przestawnej po dodaniu więcej niż jednego pola do etykiet wierszy lub kolumn zostaną wyświetlone sumy częściowe. Czy próbowałeś kiedyś usunąć sumy częściowe z tabeli przestawnej?
Ukryj lub usuń podsumy w jednej tabeli przestawnej
Ukryj lub usuń podsumy we wszystkich tabelach przestawnych w bieżącym arkuszu
Ukryj lub usuń podsumy w jednej tabeli przestawnej
Aby usunąć sumy pośrednie w jednej tabeli przestawnej, istnieje łatwy sposób, wykonaj następujące czynności:
1. Kliknij dowolną komórkę w tabeli przestawnej, a następnie kliknij Wnętrze > Podsumy > Nie pokazuj sum pośrednichzobacz zrzut ekranu:
2. Sumy częściowe w określonej tabeli przestawnej zostały od razu ukryte, patrz zrzuty ekranu:
Ukryj lub usuń podsumy we wszystkich tabelach przestawnych w bieżącym arkuszu
Jeśli w bieżącym arkuszu znajduje się wiele tabel przestawnych, a ukrywanie sum pośrednich jedna po drugiej będzie uciążliwe, więc poniższy kod VBA może pomóc w usunięciu sum pośrednich ze wszystkich tabel przestawnych.
1. Przytrzymaj ALT + F11 klucze i otwiera plik Okno Microsoft Visual Basic for Applications.
2. Kliknij wstawka > Modułi wklej następujący kod w Okno modułu.
Kod VBA: Usuń sumy częściowe we wszystkich tabelach przestawnych bieżącego arkusza roboczego
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. Następnie naciśnij F5 klucz do uruchomienia tego kodu, a sumy częściowe we wszystkich tabelach przestawnych aktywnego arkusza zostały natychmiast usunięte.
Wskazówka: Jeśli chcesz ponownie wyświetlić podsumy, możesz kliknąć tabelę przestawną i kliknąć Wnętrze > Pokaż sumy pośrednie na dole grupy/ Pokaż sumy pośrednie na początku grupy.
Podobne artykuły:
Jak wyświetlić wiele sum końcowych w tabeli przestawnej?
Jak sortować według niestandardowej kolejności listy w tabeli przestawnej?
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!