Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe kan ik meerdere veldinstellingen in de draaitabel veranderen?

Wanneer u een draaitabel in een werkblad maakt, na het slepen van de velden naar de waarden lijst in de PivotTable Field List, je krijgt misschien hetzelfde Tellen functioneren als het volgende screenshot getoond. Maar nu wil je het Som van functie om de te vervangen Tellen van functie tegelijk, hoe kon u de berekening van meerdere draaitabelvelden tegelijkertijd in Excel wijzigen?

doc-change-field-setting-1

Wijzig de lokale instellingen in de draaitabel handmatig één voor één

Wijzig meerdere veldinstellingen in draaitabel met VBA-code

Tabblad Office Schakel bewerken en browsen met tabbladen in Office in en maak uw werk veel eenvoudiger ...
Kutools voor Excel brengt 300 geavanceerde functies naar Excel en verhoogt uw productiviteit met 80%
  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen en gegevens bewaren; Inhoud gesplitste cellen; Combineer dubbele rijen en som / gemiddelde... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • Favoriete en snel formules invoegen, Bereiken, grafieken en afbeeldingen; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering 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...
  • Kutools werkt met Office 2007-2019 en 365. Het ondersteunt alle talen en is zeer eenvoudig te installeren of te implementeren. Volledige functionaliteit 60-daagse gratis proefversie.

pijl blauwe rechterbel Wijzig de lokale instellingen in de draaitabel handmatig één voor één


In Excel kunt u de berekening van de lokale instellingen wijzigen door de functie één voor één te wijzigen in de Waarde veldinstellingen dialoog, doe als volgt:

1. Selecteer een veld in het gebied Waarden waarvan u de overzichtsfunctie in de draaitabel wilt wijzigen en klik met de rechtermuisknop om te selecteren Waarde veldinstellingenzie 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 met tab, zie screenshot:

doc-change-field-setting-1

3. En klik vervolgens op OK om dit dialoogvenster te sluiten, en je kunt zien dat je Count-functie is veranderd in Sum-functie, zie screenshot:

doc-change-field-setting-1

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

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

doc-change-field-setting-1


pijl blauwe rechterbel Wijzig meerdere veldinstellingen in 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 tegelijkertijd meerdere opgeslagen instellingen te wijzigen.

1. Klik op een cel in uw draaitabel.

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

3. Klikken bijvoegsel > moduleen plak de volgende code in de Module venster.

VBA-code: verander meerdere veldinstellingen 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 veldinstellingen in uw geselecteerde draaitabel zijn in een keer geconverteerd naar uw behoefteberekening, zie schermafbeeldingen:

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

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


Kutools voor Excel - De beste Office-productiviteitstool Verhoog uw productiviteit met 80%

  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen en gegevens bewaren; Inhoud gesplitste cellen; Combineer dubbele rijen en som / gemiddelde... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • Favoriete en snel formules invoegen, Bereiken, grafieken en afbeeldingen; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering 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...
  • Werkt met Office 2007-2019 en 365 en ondersteunt alle talen. Het is eenvoudig te implementeren in uw bedrijf. Volledige functionaliteit 60-daagse gratis proefversie.
kte-tab 201905

Tabblad Office Brengt interface met tabbladen naar Office en maakt uw werk veel eenvoudiger

  • Bewerken en lezen met tabbladen inschakelen in Word, Excel, PowerPoint, 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 verlaagt dagelijks honderden muisklikken voor u!
Officetab onderaan
Say something here...
symbols left.
You are guest ( Sign Up? )
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.
    Brian · 3 months 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 · 9 months 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 · 10 months ago
    How about Average, Stddev, Max and Min for each field successively?
  • To post as a guest, your comment is unpublished.
    Tarryn · 1 years ago
    Brilliant!!!! Thank you so much this was amazing!!!
  • To post as a guest, your comment is unpublished.
    Harendra Singh Kuntal · 1 years ago
    SuperB... I've been frustrated with this problem
  • To post as a guest, your comment is unpublished.
    Sonia · 1 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 · 1 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 · 2 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 · 2 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 · 2 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 · 1 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 · 2 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.
      Gary ODriscoll · 18 days 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 · 1 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 · 2 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 · 2 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 · 2 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 · 3 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 · 4 years ago
    Hi,

    The tips and VB macros is really helpful.
    Thanks
    • To post as a guest, your comment is unpublished.
      Suhail Aboobacker · 2 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