Unfortunately, er det ingen avkrysnings for oss å raskt sjekke alle feltene i Pivot tabell Feltet liste med ett klikk, men med følgende VBA kode det kan hjelpe deg til å legge de resterende feltene til Verdier området samtidig. Gjør følgende:
1. Når du har opprettet pivottabell, for det første, bør du legge til rad label felt som ditt behov, og forlater verdifelt i Velg felt for å legge rapportere listen, se skjermbilde: < /p >
to. Hold nede ALT + F11-tastene for å åpne Microsoft Visual Basic for Applications vinduet.
3. Klikk Sett > Modul, og lim inn følgende kode i modulen Window
VBA-kode. Legg til flere felt i Verdi område av pivottabeller i aktive regnearket
Sub AddAllFieldsValues ​​() 'Update 20141112 Dim pt As Pivot Dim jeg lenger pr pt I ActiveSheet.PivotTables for i = 1 Til pt.PivotFields.Count Med pt.PivotFields (I) Hvis .Orientation = 0 Then .Orientation = xlDataField End Med Neste NextEnd Sub4. Deretter trykker F5 for å kjøre denne koden, har alle de resterende feltene blitt lagt til i Verdier-området på samme tid, se skjermbilde:
Merk: Dette VBA-koden er brukt på alle pivottabeller av aktive regnearket