Hvordan ændres flere feltindstillinger i pivottabellen?
Når du opretter en pivottabel i et regneark efter at have trukket felterne til Værdier liste i Pivottabel-feltliste, kan du få det samme Tælle fungere som følgende skærmbillede vist. Men nu vil du have Sum funktion til udskiftning af Tælle funktion på én gang, hvordan kunne du ændre beregningen af flere pivottabelfelter på én gang i Excel?
Skift feltindstillingerne i pivottabellen manuelt en efter en
Skift flere feltindstillinger i pivottabellen med VBA-kode
Skift feltindstillingerne i pivottabellen manuelt en efter en
I Excel kan du ændre beregningen af feltindstillingerne ved at ændre funktionen en efter en i Værdi feltindstillinger dialog, skal du gøre som dette:
1. Vælg et felt i området Værdier, som du vil ændre opsummeringsfunktionen for i pivottabellen, og højreklik for at vælge Værdi feltindstillinger, se skærmbillede:
2. Derefter i Værdi feltindstillinger i dialogboksen skal du vælge en type beregning, som du vil bruge under Opsummer værdi efter fane, se skærmbillede:
3. Og klik derefter på OK for at lukke denne dialog, og du kan se din Count-funktion er blevet ændret til Sum-funktion, se skærmbillede:
4. Gentag ovenstående trin for at ændre andre felters beregningsindstillinger en efter en.
Bemærk: Du kan også ændre feltindstillingerne ved at højreklikke på en feltcelle og vælge Opsummer værdier efter og vælg en beregning, du har brug for, fra kontekstmenuerne.
Skift flere feltindstillinger i pivottabellen med VBA-kode
Ovenstående metode vil være tidskrævende og kedelig, hvis der er mange feltberegninger, der skal ændres, her kan jeg introducere dig en kode til at ændre flere arkiverede indstillinger på samme tid.
1. Klik på en hvilken som helst celle i din pivottabel.
2. Hold nede ALT + F11 tasterne, og det åbner Vinduet Microsoft Visual Basic til applikationer.
3. Klik indsatte > Moduler, og indsæt følgende kode i Modul vindue.
VBA-kode: Skift flere feltindstillinger 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. Tryk derefter på F5 nøgle til at udføre denne kode, og alle feltindstillinger i din valgte pivottabel er konverteret til din behovsberegning på én gang, se skærmbilleder:
Bemærk: I ovenstående kode kan du ændre Sum-funktionen til andre beregninger, såsom gennemsnit, maks, min, som du vil. Du skal bare ændre summen i disse scripts: Offentligt undersætDataFieldsToSum () , Funktion = xlSum til andre funktioner.
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!