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?

Wijzig de lokale instellingen in de draaitabel handmatig een voor een

Wijzig meerdere lokale instellingen in de draaitabel met VBA-code

Wijzig de lokale instellingen in de draaitabel handmatig een voor een

Verbazingwekkend! Efficiënte tabbladen gebruiken in Excel zoals Chrome, Firefox en Safari!

Bespaar 50% van uw tijd en verminder elke dag duizenden muisklikken!

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:

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

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:

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.

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:

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.

Lees verder... Gratis download... Aankoop... 

---

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!

Lees verder... Gratis download... Aankoop...