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.