Hoe verander ik meerdere lokale instellingen in de draaitabel?
Wanneer u een draaitabel in een werkblad maakt, nadat u de velden naar het Values 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
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:
|
 |
 |
Note: 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 () en .Functie = xlSum naar andere functies.
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar effici毛ntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
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 honderden muisklikken voor u elke dag!
