Note: The other languages of the website are Google-translated. Back to English

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?

doc-ändra-fält-inställning-1

Ändra fältinställningarna i pivottabellen manuellt en efter en

Ändra flera fältinställningar i pivottabellen med VBA-kod

Fliken Office Aktiverar flikredigering och surfning i Office, och gör ditt arbete mycket enklare ...
Kutools för Excel löser de flesta av dina problem och ökar din produktivitet med 80%
  • Återanvänd allt: Lägg till de mest använda eller komplexa formlerna, diagrammen och allt annat till dina favoriter och återanvänd dem snabbt i framtiden.
  • Mer än 20 textfunktioner: Extrahera nummer från textsträng; Extrahera eller ta bort en del av texterna; Konvertera siffror och valutor till engelska ord.
  • Sammanfoga verktyg: Flera arbetsböcker och ark till en; Slå ihop flera celler / rader / kolumner utan att förlora data; Slå samman duplicerade rader och summa.
  • Dela verktyg: Dela data i flera ark baserat på värde; En arbetsbok för flera Excel-, PDF- eller CSV-filer; En kolumn till flera kolumner.
  • Klistra över Dolda / filtrerade rader; Räkna och summa av bakgrundsfärg; Skicka personliga e-postmeddelanden till flera mottagare i bulk.
  • Superfilter: Skapa avancerade filterscheman och tillämpas på alla ark; Svart per vecka, dag, frekvens och mer; Filter med fetstil, formler, kommentarer ...
  • Mer än 300 kraftfulla funktioner; Fungerar med Office 2007-2021 och 365; Stöder alla språk; Enkel implementering i ditt företag eller organisation.

pil blå höger bubbla Ä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:

doc-ändra-fält-inställning-1

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:

doc-ändra-fält-inställning-1

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:

doc-ändra-fält-inställning-1

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.

doc-ändra-fält-inställning-1


pil blå höger bubbla Ä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:

doc-ändra-fält-inställning-1
-1
doc-ändra-fält-inställning-6

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.


De bästa Office-produktivitetsverktygen

Kutools för Excel löser de flesta av dina problem och ökar din produktivitet med 80%

  • återanvändning: Sätt snabbt i komplexa formler, diagram och allt som du har använt tidigare; Kryptera celler med lösenord; Skapa e-postlista och skicka e-post ...
  • Super Formula Bar (enkelt redigera flera rader med text och formel); Läslayout (enkelt läsa och redigera ett stort antal celler); Klistra in i filtrerat intervall...
  • Sammanfoga celler / rader / kolumner utan att förlora data; Delat cellinnehåll; Kombinera duplicerade rader / kolumner... Förhindra duplicerade celler; Jämför intervall...
  • Välj Duplicera eller Unikt Rader; Välj tomma rader (alla celler är tomma); Super Find och Fuzzy Find i många arbetsböcker; Slumpmässigt val ...
  • Exakt kopia Flera celler utan att ändra formelreferens; Skapa referenser automatiskt till flera ark; Sätt in kulor, Kryssrutor och mer ...
  • Extrahera text, Lägg till text, ta bort efter position, Ta bort mellanslag; Skapa och skriva ut personsökningstalsatser; Konvertera mellan celler innehåll och kommentarer...
  • Superfilter (spara och tillämpa filterscheman på andra ark); Avancerad sortering efter månad / vecka / dag, frekvens och mer; Specialfilter av fet, kursiv ...
  • Kombinera arbetsböcker och arbetsblad; Sammanfoga tabeller baserat på nyckelkolumner; Dela data i flera ark; Batchkonvertera xls, xlsx och PDF...
  • Mer än 300 kraftfulla funktioner. Stöder Office / Excel 2007-2021 och 365. Stöder alla språk. Enkel implementering i ditt företag eller organisation. Fullständiga funktioner 30 dagars gratis provperiod. 60 dagars pengarna tillbaka-garanti.
kte-flik 201905

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!
officetab botten
Sortera kommentarer efter
Kommentarer (28)
Inga betyg än. Bli först med att betygsätta!
Denna kommentar minimerades av moderatoren på webbplatsen
Hej, tipsen och VB-makron är verkligen användbara. Tack
Denna kommentar minimerades av moderatoren på webbplatsen
God dag, underbart. Det hjälper verkligen mycket. Dina pivottips är så underbara att jag letar efter år och jag har fått verklig hjälp. Hur kan vi lägga till funktion för decimaler också. Tack så mycket
Denna kommentar minimerades av moderatoren på webbplatsen
Tack för lösningen. Av anledningen får jag ett felmeddelande på .NumberFormat = "#,##0". Jag byter från Summa till Average vilket fungerar bra men jag vill också ändra NumberFormat till Number med 1 decimal. Tack
Denna kommentar minimerades av moderatoren på webbplatsen
Hej, tack för den mycket bra lösningen! Är det möjligt att göra det automatiskt? Så när jag lägger till ett nytt fält till värdena ska detta makro köras. tack på förhand, Jani
Denna kommentar minimerades av moderatoren på webbplatsen
Det här är så användbart. Det här problemet har stört mig i flera år och nu är det löst.
Denna kommentar minimerades av moderatoren på webbplatsen
Tack för detta! Finns det något sätt att använda StdDev istället för Sum? Jag kunde ändra din kod för Average & Count, men jag kan inte få StdDev att fungera. Tack!
Denna kommentar minimerades av moderatoren på webbplatsen
Hej Kelsey - jag undrar om du någonsin fått svar på detta? Jag försöker göra samma sak. Tack!
Denna kommentar minimerades av moderatoren på webbplatsen
Kelsey- fick du ett svar på det här eller kom du på det här? Jag försökte redigera koden men har inte kunnat lista ut det ännu. Jag var inte säker på om det fanns ett sätt att snabbt ändra det för de olika summeringsalternativen. Tack!
Denna kommentar minimerades av moderatoren på webbplatsen
Kelsey, jag skapade precis ett makro och ändrade ett manuellt och kollade sedan makrokoden i VBA. För att få StdDev att fungera använd StDev. Koden blir följande:


Public Sub SetDataFieldsToStDev()
'Uppdatering 20141127
Dim xPF som pivotfält
Dim WorkRng As Range
Set WorkRng = Application.Selection
Med WorkRng.PivotTable
.ManualUpdate = Sant
För varje xPF i .DataFields
Med xPF
.Function = xlStDev
.NumberFormat = "#,##0"
Sluta med
Nästa
.ManualUpdate = Falskt
Sluta med
End Sub
Denna kommentar minimerades av moderatoren på webbplatsen
hej detta är mycket användbart tack för det. Jag undrar bara är det möjligt att ställa in bara några få eller specifika kolumner värdefältsinställningar? jag menar till exempel att jag har värden i de första 20 kolumnerna och jag vill se data i SUM men från den 21:e kolumnen kommer en annan typ av data (till exempel distribution) och från den kolumnen skulle jag vilja se data i MAX-värde. så är det möjligt att på något sätt hitta till exempel namnet på rubriken och om "distribution" finns där ändra varje "distribution"-kolumn till MAX-värde. verkar det vettigt? hejar Zoltan
Denna kommentar minimerades av moderatoren på webbplatsen
har du någonsin fått svar på detta? Jag har samma fråga
Denna kommentar minimerades av moderatoren på webbplatsen
Precis vad jag letade efter!! Direkt efter raden .NumberFormat lade jag till ett byte av kolumnrubriken i pivoten, så jag hade inte "Summa av" i alla. .Caption = " " & xPF.SourceName Tack igen !!
Denna kommentar minimerades av moderatoren på webbplatsen
Ändra flera fältinställningar i pivottabellen med VBA-kod


Fantastisk! Tack så mycket. Så hjälpsam med mitt arbete.
Denna kommentar minimerades av moderatoren på webbplatsen
Det här är otroligt. Jag har varit frustrerad över det här problemet i flera år, med vissa dokument med 50+ fält. Detta är en sådan tidsbesparing!
Denna kommentar minimerades av moderatoren på webbplatsen
Fantastiskt - jag är ingen hot shot med VBA och känner mig som en mästare - det här har gjort mig galen länge! Tack
Denna kommentar minimerades av moderatoren på webbplatsen
SuperB... Jag har varit frustrerad över det här problemet
Denna kommentar minimerades av moderatoren på webbplatsen
Lysande!!!! Tack så mycket detta var fantastiskt!!!
Denna kommentar minimerades av moderatoren på webbplatsen
Vad sägs om Average, Stddev, Max och Min för varje fält i tur och ordning?
Denna kommentar minimerades av moderatoren på webbplatsen
Jag har använt VBA-lösningen med stor framgång tidigare, men den fungerar inte med datamodellen. Vet du om det finns en lösning på det?
Denna kommentar minimerades av moderatoren på webbplatsen
Tack. Koden fungerade vackert och sparade mig mycket slöseri med tid och energi!
Denna kommentar minimerades av moderatoren på webbplatsen
Tack så mycket för VBA-koden, jag ÄLSKAR den!
Denna kommentar minimerades av moderatoren på webbplatsen
Tack så mycket!!! Det är sååå hjälpsamt och briljant! Sparade mig sååå mycket tid
Denna kommentar minimerades av moderatoren på webbplatsen
Jag fick det här felet, "Det går inte att hämta Pivot Table-egenskapen för Range-klassen". Vet du hur jag kan fixa detta?
Denna kommentar minimerades av moderatoren på webbplatsen
Jag fick felet "Kan inte hämta PivotTable-egenskapen för intervallklassen". Vet du hur kan jag fixa detta?
Denna kommentar minimerades av moderatoren på webbplatsen
Tack så mycket, den här VBA-koden fungerar fantastiskt. 
Det finns inga kommentarer här ännu
Ladda fler
Lämna dina kommentarer
Postar som gäst
×
Betygsätt detta inlägg:
0   Tecken
Föreslagna platser

Följ oss

Copyright © 2009 - www.extendoffice.com. | Alla rättigheter förbehållna. Drivs av ExtendOffice. | | Sitemap
Microsoft och Office-logotypen är varumärken eller registrerade varumärken som tillhör Microsoft Corporation i USA och / eller andra länder.
Skyddad av Sectigo SSL