Note: The other languages of the website are Google-translated. Back to English
Inloggen  \/ 
x
or
x
Registreer  \/ 
x

or

Hoe verander ik meerdere lokale instellingen in de draaitabel?

Wanneer u een draaitabel in een werkblad maakt, nadat u de velden naar het waarden lijst in de Lijst met draaitabelvelden, krijgt u misschien allemaal hetzelfde Tellen functie als volgende screenshot getoond. Maar nu wilt u de Som van functie om de Tellen van functie tegelijk, hoe kunt u de berekening van meerdere draaitabelvelden tegelijk in Excel wijzigen?

doc-change-field-setting-1

Wijzig de lokale instellingen in de draaitabel handmatig een voor een

Wijzig meerdere lokale instellingen in de draaitabel met VBA-code

Tabblad Office Bewerking en browsen met tabbladen in Office inschakelen en uw werk veel gemakkelijker maken ...
Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%
  • Hergebruik alles: Voeg de meest gebruikte of complexe formules, grafieken en al het andere toe aan uw favorieten en gebruik ze in de toekomst snel opnieuw.
  • Meer dan 20 tekstfuncties: Nummer uit tekststring halen; Extract of verwijder een deel van teksten; Converteer cijfers en valuta's naar Engelse woorden.
  • Tools samenvoegen: Meerdere werkmappen en bladen in één; Meerdere cellen / rijen / kolommen samenvoegen zonder gegevens te verliezen; Voeg dubbele rijen en som samen.
  • Hulpmiddelen splitsen: Gegevens splitsen in meerdere bladen op basis van waarde; Eén werkmap naar meerdere Excel-, PDF- of CSV-bestanden; Eén kolom naar meerdere kolommen.
  • Plakken overslaan Verborgen / gefilterde rijen; Tel en som op achtergrondkleur; Stuur gepersonaliseerde e-mails in bulk naar meerdere ontvangers.
  • Superfilter: Maak geavanceerde filterschema's en pas deze toe op elk blad Soort per week, dag, frequentie en meer; Filteren door vetgedrukt, formules, commentaar ...
  • Meer dan 300 krachtige functies; Werkt met Office 2007-2019 en 365; Ondersteunt alle talen; Eenvoudig te implementeren in uw onderneming of organisatie.

pijl blauw rechts bel Wijzig de lokale instellingen in de draaitabel handmatig een voor een


In Excel kunt u de berekening van de lokale instellingen wijzigen door de functie een voor een te wijzigen in het Waarde Veldinstellingen dialoog, doe dan als volgt:

1. Selecteer een veld in het gebied Waarden waarvoor u de samenvattingsfunctie in de draaitabel wilt wijzigen en klik met de rechtermuisknop om te kiezen Waarde Veldinstellingen, zie screenshot:

doc-change-field-setting-1

2. Dan in de Waarde Veldinstellingen dialoogvenster, selecteer een type berekening dat u wilt gebruiken onder de Vat waarde samen op tabblad, zie screenshot:

doc-change-field-setting-1

3. En klik vervolgens op OK om dit dialoogvenster te sluiten en u kunt zien dat uw Count-functie is gewijzigd in Som-functie, zie screenshot:

doc-change-field-setting-1

4. Herhaal de bovenstaande stappen om de berekeningsinstellingen van andere velden een voor een te wijzigen.

Opmerking: U kunt de veldinstellingen ook wijzigen door met de rechtermuisknop op een veldcel te klikken en te kiezen Vat waarden samen op en selecteer een berekening die u nodig hebt in de contextmenu's.

doc-change-field-setting-1


pijl blauw rechts bel Wijzig meerdere lokale instellingen in de draaitabel met VBA-code

De bovenstaande methode zal tijdrovend en vervelend zijn als er veel veldberekeningen moeten worden gewijzigd, hier kan ik u een code voorstellen om meerdere opgeslagen instellingen tegelijkertijd te wijzigen.

1. Klik op een cel in uw draaitabel.

2. Houd de ALT + F11 toetsen, en het opent de Microsoft Visual Basic for Applications-venster.

3. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.

VBA-code: wijzig meerdere lokale instellingen in de draaitabel

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. Druk vervolgens op F5 toets om deze code uit te voeren, en alle lokale instellingen in uw geselecteerde draaitabel zijn in één keer geconverteerd naar uw behoefteberekening, zie screenshots:

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

Opmerking:: In de bovenstaande code kunt u de functie Som naar wens wijzigen in andere berekeningen, zoals Gemiddeld, Max, Min. U hoeft alleen de som in deze scripts te wijzigen: Openbare subsetDataFieldsToSum () als .Functie = xlSum naar andere functies.


De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
  • Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
  • Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
  • Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
  • Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.
kte tabblad 201905

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert elke dag honderden muisklikken voor u!
officetab onderkant
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Yuri · 25 days ago
    I got the error" Unable to get the PivotTable property of the range class". Do you know hoe can I fix this?
  • To post as a guest, your comment is unpublished.
    Yuri · 25 days ago
    I got this error, "Unable to get the Pivot Table property of the Range class". Do you know how I can fix this?
  • To post as a guest, your comment is unpublished.
    Florentine · 2 months ago
    Thank you so much!!! That is sooo helpful and brilliant! Saved me soooo much time
  • To post as a guest, your comment is unpublished.
    Sylvie · 11 months ago
    Thank you so much for the VBA code, I LOVE it!
  • To post as a guest, your comment is unpublished.
    Brian · 2 years ago
    Thank you. The code worked beautifully and saved me a lot of wasted time and energy!
  • To post as a guest, your comment is unpublished.
    Rich · 2 years ago
    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?
  • To post as a guest, your comment is unpublished.
    pierrr · 3 years ago
    How about Average, Stddev, Max and Min for each field successively?
  • To post as a guest, your comment is unpublished.
    Tarryn · 3 years ago
    Brilliant!!!! Thank you so much this was amazing!!!
  • To post as a guest, your comment is unpublished.
    harendrasinghkuntal5@gmail.com · 3 years ago
    SuperB... I've been frustrated with this problem
  • To post as a guest, your comment is unpublished.
    Sonia · 3 years ago
    Amazing - I am no hot shot with VBA and feel like a champion - this has been driving me crazy for a long time! Thank you
  • To post as a guest, your comment is unpublished.
    Danny · 3 years ago
    This is incredible. I've been frustrated with this problem for years, with some docs with 50+ fields. This is such a time saver!
  • To post as a guest, your comment is unpublished.
    Karishma · 4 years ago
    Change Multiple Field Settings In Pivot Table With VBA Code


    Amazing! Thank you so much. So helpful with my work.
  • To post as a guest, your comment is unpublished.
    John · 4 years ago
    Just what I was looking for !!

    Right after the .NumberFormat line, I added a rename for the column heading in the pivot, so I did not have "Sum of" in all of them.


    .Caption = " " & xPF.SourceName


    Thanks again !!
  • To post as a guest, your comment is unpublished.
    Zoltan · 4 years ago
    hi
    this is very useful thanks for that.
    im just wondering is it possible to set just a few or specific columns's value field settings?
    i mean for example i have values in the first 20 columns and i want to see the data in SUM but from 21th columns comes another type of data (for example distribution) and from that column I would like to see the data in MAX value.
    so is it possible somehow find for example the name of the header and if "distribution" is there change every "distribution" columns into MAX value.
    does it make sense?
    cheers
    Zoltan
    • To post as a guest, your comment is unpublished.
      lorbas · 3 years ago
      did you ever get a reply to this? I have the same question
  • To post as a guest, your comment is unpublished.
    Kelsey · 4 years ago
    Thanks for this! Is there any way to use StdDev instead of Sum? I was able to change your code for Average & Count, but I can't get StdDev to work. Thanks!
    • To post as a guest, your comment is unpublished.
      GaryOD · 2 years ago
      Kelsey, I just created a macro and changed one manually and then checked the macro code in VBA. To get StdDev to Work use StDev. Code becomes the following:


      Public Sub SetDataFieldsToStDev()
      '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 = xlStDev
      .NumberFormat = "#,##0"
      End With
      Next
      .ManualUpdate = False
      End With
      End Sub
    • To post as a guest, your comment is unpublished.
      Matt · 3 years ago
      Kelsey- did you get an answer for this or figure this out? I tried to edit the code but have not been able to figure it out yet. I was not sure if there was a way to quickly change it for the different summation options. Thanks!
    • To post as a guest, your comment is unpublished.
      Michelle · 4 years ago
      Hi Kelsey - I'm wondering if you ever received an answer to this? I am trying to do the same thing. Thanks!
  • To post as a guest, your comment is unpublished.
    daniel read · 4 years ago
    This is so useful. This problem has bothered me for years and now its solved.
  • To post as a guest, your comment is unpublished.
    Jani · 5 years ago
    Hi,
    Thank you for the very good solution! Is it possible to make it automatic? So whenever I add a new Field to the values this macro should run.
    thank you in advance,
    Jani
  • To post as a guest, your comment is unpublished.
    Zwakele · 5 years ago
    Thank you for the solution.
    For reason I get an error on the .NumberFormat = "#,##0". I am changing from Sum to Average which works fine but I also want to change the NumberFormat to Number with 1 decimal.

    Thanks
  • To post as a guest, your comment is unpublished.
    Prasenjit · 6 years ago
    Hi,

    The tips and VB macros is really helpful.
    Thanks
    • To post as a guest, your comment is unpublished.
      Suhail Aboobacker · 4 years ago
      Good Day,

      Wonderful. It really helps a lot.
      Your Pivot tips are so wonderful
      I am looking for years and i got real help
      How can we add function for decimals also.
      Thanks a lot