Preskoči na glavno vsebino

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?

doc-change-field-setting-1

Nastavitve polj v vrtilni tabeli ročno spreminjajte eno za drugo

Spremenite nastavitve več polj v vrtilni tabeli s kodo VBA


puščica modri desni mehurček 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:

doc-change-field-setting-1

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:

doc-change-field-setting-1

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:

doc-change-field-setting-1

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.

doc-change-field-setting-1


puščica modri desni mehurček 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:

doc-change-field-setting-1
-1
doc-change-field-setting-6

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

Priljubljene funkcije: Poiščite, označite ali identificirajte dvojnike   |  Izbriši prazne vrstice   |  Združite stolpce ali celice brez izgube podatkov   |   Krog brez formule ...
Super iskanje: Več kriterijev VLookup    Multiple Value VLookup  |   VLookup na več listih   |   Nejasno iskanje ....
Napredni spustni seznam: Hitro ustvarite spustni seznam   |  Odvisni spustni seznam   |  Večkrat izberite spustni seznam ....
Upravitelj stolpcev: Dodajte določeno število stolpcev  |  Premakni stolpce  |  Preklop stanja vidnosti skritih stolpcev  |  Primerjaj obsege in stolpce ...
Predstavljene funkcije: Mrežni fokus   |  Pogled oblikovanja   |   Velika vrstica formule    Upravitelj delovnih zvezkov in listov   |  Knjižnica virov (Samodejno besedilo)   |  Izbirnik datuma   |  Združite delovne liste   |  Šifriranje/dešifriranje celic    Pošljite e-pošto po seznamu   |  Super filter   |   Poseben filter (filter krepko/ležeče/prečrtano ...) ...
15 najboljših kompletov orodij12 Besedilo Orodja (dodajanje besedila, Odstrani znake,...)   |   50 + Graf Vrste (Gantt Chart,...)   |   40+ Praktično Formule (Izračunajte starost glede na rojstni dan,...)   |   19 vstavljanje Orodja (Vstavite kodo QR, Vstavi sliko s poti,...)   |   12 Pretvorba Orodja (Številke v besede, Pretvorba valut,...)   |   7 Spoji in razdeli Orodja (Napredne kombinirane vrstice, Razdeljene celice,...)   |   ... in več

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...

zavihek kte 201905


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!
Comments (29)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Brilliant, thanks, this worked perfectly and save much time
This comment was minimized by the moderator on the site
Muchas gracias por el aporte
This comment was minimized by the moderator on the site
Hi!

I'm wondering how to use the code for Count Numbers instead of count, I've tried changing the code to Count Numbers and CountNumbers but netiher works..

Help is appreciated :)
This comment was minimized by the moderator on the site
Hello, Sara,
Sorry for that your Count Numbers field can't be changed in the code, so, you need to change the field one by one with the first method in this article.
Thank you!
This comment was minimized by the moderator on the site
Thank you so much, this VBA code works amazing. 
This comment was minimized by the moderator on the site
I got the error" Unable to get the PivotTable property of the range class". Do you know hoe can I fix this?
This comment was minimized by the moderator on the site
I got this error, "Unable to get the Pivot Table property of the Range class". Do you know how I can fix this?
This comment was minimized by the moderator on the site
Thank you so much!!! That is sooo helpful and brilliant! Saved me soooo much time
This comment was minimized by the moderator on the site
Thank you so much for the VBA code, I LOVE it!
This comment was minimized by the moderator on the site
Thank you. The code worked beautifully and saved me a lot of wasted time and energy!
This comment was minimized by the moderator on the site
I've used the VBA solution with great success in the past, but it doesn't work with the data model. Do you know if there is a solution for that?
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations