Hur ändrar jag flera fältinställningar i pivottabellen?
När du skapar en pivottabell i ett kalkylblad, efter att du har dragit fälten till Värden listan i Pivottabellfältlistakan du få samma sak Att Räkna fungerar som följande skärmdump visas. Men nu vill du ha Sum funktion för att ersätta Att Räkna funktion samtidigt, hur kan du ändra beräkningen av flera pivottabellfält samtidigt i Excel?
Ändra fältinställningarna i pivottabellen manuellt en efter en
Ändra flera fältinställningar i pivottabellen med VBA-kod
Ändra fältinställningarna i pivottabellen manuellt en efter en
I Excel kan du ändra beräkningen av fältinställningarna genom att ändra funktionen en efter en i Värde fältinställningar dialog, gör så här:
1. Välj ett fält i området Värden som du vill ändra sammanfattningsfunktionen för i pivottabellen och högerklicka för att välja Värde fältinställningar, se skärmdump:
2. Sedan i Värde fältinställningar i dialogrutan väljer du en typ av beräkning som du vill använda under Sammanfatta värde efter flik, se skärmdump:
3. Och klicka sedan på OK för att stänga den här dialogrutan, och du kan se att din räkningsfunktion har ändrats till Sum-funktion, se skärmdump:
4. Upprepa stegen ovan för att ändra andra fälts beräkningsinställningar en efter en.
Notera: Du kan också ändra fältinställningarna genom att högerklicka på en fältcell och välja Sammanfatta värden efter och välj en beräkning du behöver från snabbmenyerna.
Ändra flera fältinställningar i pivottabellen med VBA-kod
Ovanstående metod kommer att vara tidskrävande och tråkig om det finns många fältberäkningar som behöver ändras, här kan jag presentera en kod för att ändra flera arkiverade inställningar samtidigt.
1. Klicka på vilken cell som helst i din pivottabell.
2. Håll ner ALT + F11 knapparna och det öppnar Microsoft Visual Basic for Applications-fönstret.
3. Klicka Insert > Modulernaoch klistra in följande kod i Modulfönster.
VBA-kod: Ändra flera fältinställningar i pivottabellen
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. Tryck sedan på F5 för att köra den här koden, och alla fältinställningar i den valda pivottabellen har konverterats till din behovsberäkning på en gång, se skärmdumpar:
|
 |
 |
Anmärkningar: I koden ovan kan du ändra Sum-funktionen till andra beräkningar, till exempel Genomsnitt, Max, Min som du vill. Du behöver bara ändra summan i dessa skript: Public Sub SetDataFieldsToSum () och .Funktion = xlSum till andra funktioner.
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
