Jak zmienić ustawienia wielu pól w tabeli przestawnej?
Podczas tworzenia tabeli przestawnej w arkuszu, po przeciągnięciu pól do pliku Wartości lista w Lista pól tabeli przestawnej, możesz otrzymać to samo Liczyć działają jak na poniższym zrzucie ekranu. Ale teraz chcesz Suma funkcji, aby zastąpić Liczyć funkcji naraz, jak możesz zmienić obliczanie wielu pól tabeli przestawnej jednocześnie w programie Excel?
Zmień ręcznie ustawienia pól w tabeli przestawnej
Zmień ustawienia wielu pól w tabeli przestawnej za pomocą kodu VBA
Zmień ręcznie ustawienia pól w tabeli przestawnej
W programie Excel możesz zmienić obliczanie ustawień pola, zmieniając funkcję po kolei w Ustawienia pola wartości okno dialogowe, wykonaj następujące czynności:
1. Wybierz pole w obszarze Wartości, dla którego chcesz zmienić funkcję podsumowującą w tabeli przestawnej, i kliknij prawym przyciskiem myszy, aby wybrać Ustawienia pola wartościzobacz zrzut ekranu:
2. Następnie w Ustawienia pola wartości W oknie dialogowym wybierz jeden typ obliczeń, którego chcesz użyć w obszarze Podsumuj wartość według tab, zobacz zrzut ekranu:
3. A następnie kliknij OK aby zamknąć to okno dialogowe i widać, że funkcja Count została zmieniona na funkcję Sum, patrz zrzut ekranu:
4. Powtórz powyższe kroki, aby po kolei zmienić ustawienia obliczeń innych pól.
Uwaga: Możesz także zmienić ustawienia pola, klikając prawym przyciskiem myszy jedną komórkę pola i wybierając Podsumuj wartości według i wybierz potrzebne obliczenia z menu kontekstowych.
Zmień ustawienia wielu pól w tabeli przestawnej za pomocą kodu VBA
Powyższa metoda będzie czasochłonna i żmudna, jeśli trzeba zmienić wiele obliczeń pola, tutaj mogę wprowadzić kod, aby zmienić wiele ustawień jednocześnie.
1. Kliknij dowolną komórkę w tabeli przestawnej.
2. Przytrzymaj ALT + F11 klucze i otwiera plik Okno Microsoft Visual Basic for Applications.
3. Kliknij wstawka > Modułi wklej następujący kod w Okno modułu.
Kod VBA: zmień ustawienia wielu pól w tabeli przestawnej
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. Następnie naciśnij F5 klucz do wykonania tego kodu, a wszystkie ustawienia pól w wybranej tabeli przestawnej zostały od razu przekonwertowane na obliczenia potrzeb, zobacz zrzuty ekranu:
|
 |
 |
Note: W powyższym kodzie możesz zmienić funkcję Sum na dowolne inne obliczenia, takie jak średnia, maksymalna, minimalna, jak chcesz. Wystarczy zmienić sumę w tych skryptach: Public Sub SetDataFieldsToSum () i Funkcja = xlSum do innych funkcji.
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!
