Kako spremeniti več nastavitev polj v vrtilni tabeli?
Ko ustvarite vrtilno tabelo na delovnem listu, potem ko povlečete polja v Vrednote seznam v Seznam polj vrtilne tabele, lahko dobite vse enako Grof funkcija, kot je prikazano na sliki spodaj. Zdaj pa hočeš Seštevek funkcije za zamenjavo Grof funkcije hkrati, kako lahko spremenite izračun več polj vrtilne tabele hkrati v Excelu?
Nastavitve polj v vrtilni tabeli ročno spreminjajte eno za drugo
Spremenite nastavitve več polj v vrtilni tabeli s kodo VBA
Nastavitve polj v vrtilni tabeli ročno spreminjajte eno za drugo
V Excelu lahko spremenite izračun nastavitev polja tako, da spremenite funkcijo eno za drugo v Nastavitve polja vrednosti pogovorno okno, naredite tako:
1. V vrtilni tabeli izberite polje, za katerega želite spremeniti funkcijo povzetka, in z desno miškino tipko izberite Nastavitve polja vrednosti, glej posnetek zaslona:
2. Nato v Nastavitve polja vrednosti v pogovornem oknu izberite eno vrsto izračuna, ki jo želite uporabiti pod Povzemite vrednost po zavihek, glej posnetek zaslona:
3. In nato kliknite OK če želite zapreti to pogovorno okno in vidite, da je bila funkcija štetja spremenjena v funkcijo vsote, si oglejte posnetek zaslona:
4. Ponovite zgornje korake, da ena za drugo spremenite nastavitve izračuna drugih polj.
Opomba: Nastavitve polja lahko spremenite tudi tako, da z desno miškino tipko kliknete eno celico polja in izberete Povzemite vrednosti po in v kontekstnih menijih izberite en izračun, ki ga potrebujete.
Spremenite nastavitve več polj v vrtilni tabeli s kodo VBA
Zgornja metoda bo zamudna in dolgočasna, če bo treba spremeniti veliko terenskih izračunov. Tu vam lahko predstavim kodo za istočasno spreminjanje več nastavitev vloge.
1. Kliknite katero koli celico v vrtilni tabeli.
2. Držite tipko ALT + F11 in odpre tipko Okno Microsoft Visual Basic for Applications.
3. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Okno modula.
Koda VBA: spremenite nastavitve več polj v vrtilni tabeli
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. Nato pritisnite F5 za izvajanje te kode in vse nastavitve polj v izbrani vrtilni tabeli so bile naenkrat pretvorjene v izračun potreb, glejte posnetke zaslona:
|
 |
 |
Opombe: V zgornji kodi lahko funkcijo vsote spremenite v poljubne druge izračune, na primer povprečje, največ, min, kot želite. V teh skriptah morate samo spremeniti vsoto: Javni pod SetDataFieldsToSum () in .Funkcija = xlSum na druge funkcije.
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
