Jak změnit více nastavení polí v kontingenční tabulce?
Když vytvoříte kontingenční tabulku v listu, po přetažení polí do Hodnoty seznam v Seznam polí kontingenční tabulky, můžete získat všechny stejné Počítat funkce jako následující snímek obrazovky. Ale teď chcete Součet funkce nahradit Počítat funkce najednou, jak byste mohli změnit výpočet více polí kontingenční tabulky najednou v aplikaci Excel?
Postupně ručně změňte nastavení pole v kontingenční tabulce
Změňte více nastavení polí v kontingenční tabulce pomocí kódu VBA
Postupně ručně změňte nastavení pole v kontingenční tabulce
V aplikaci Excel můžete změnit výpočet nastavení pole změnou funkce jeden po druhém v Nastavení hodnotového pole dialog, proveďte prosím toto:
1. Vyberte pole v oblasti Hodnoty, pro které chcete změnit souhrnnou funkci v kontingenční tabulce, a kliknutím pravým tlačítkem vyberte Nastavení hodnotového pole, viz screenshot:
2. Pak v Nastavení hodnotového pole V dialogovém okně vyberte jeden typ výpočtu, který chcete použít pod Shrnout hodnotu podle karta, viz screenshot:
3. A pak klikněte na tlačítko OK zavřete toto dialogové okno a uvidíte, že vaše funkce Count byla změněna na funkci Sum, viz screenshot:
4. Opakujte výše uvedené kroky a postupně změňte nastavení výpočtu ostatních polí.
Poznámka: Můžete také změnit nastavení pole kliknutím pravým tlačítkem na jednu buňku pole a výběrem Shrňte hodnoty podle a vyberte jeden výpočet, který potřebujete, z kontextových nabídek.
Změňte více nastavení polí v kontingenční tabulce pomocí kódu VBA
Výše uvedená metoda bude časově náročná a zdlouhavá, pokud je třeba změnit mnoho výpočtů pole, zde vám mohu představit kód pro změnu nastavení více polí najednou.
1. Klikněte na libovolnou buňku v kontingenční tabulce.
2. Podržte ALT + F11 klíče a otevře se Okno Microsoft Visual Basic pro aplikace.
3, klikněte Vložit > Modula vložte následující kód do Okno modulu.
Kód VBA: Změňte více nastavení polí v kontingenční tabulce
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. Pak stiskněte tlačítko F5 klíč k provedení tohoto kódu a všechna nastavení pole ve vybrané kontingenční tabulce byla převedena na výpočet vaší potřeby najednou, viz screenshoty:
Poznámka: Ve výše uvedeném kódu můžete změnit funkci Součet na jakékoli jiné výpočty, jako je Průměr, Max, Min, jak chcete. Musíte pouze změnit Součet v těchto skriptech: Veřejná dílčí sadaDataFieldsToSum () a .Funkce = xlSum k dalším funkcím.
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!