Note: The other languages of the website are Google-translated. Back to English

Hvordan tilføjes flere felter i pivottabellen?

Når vi opretter en pivottabel, er vi nødt til at trække felterne manuelt ind i rækkeetiketterne eller værdierne en efter en. Hvis vi har en lang liste med felter, kan vi hurtigt tilføje et par rækkeetiketter, men de resterende felter skal føjes til området Værdi. Er der nogen hurtige metoder til at tilføje alle de andre felter i området Værdi med et enkelt klik i pivottabellen?

Tilføj flere felter i værdiområdet i pivottabellen med VBA-kode

Fanen Office Aktiver redigering og browsing med faner i Office, og gør dit arbejde meget lettere ...
Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%
  • Genbrug alt: Tilføj de mest anvendte eller komplekse formler, diagrammer og alt andet til dine favoritter, og genbrug dem hurtigt i fremtiden.
  • Mere end 20 tekstfunktioner: Uddrag nummer fra tekststreng; Uddrag eller fjern en del af teksterne; Konverter tal og valutaer til engelske ord.
  • Flet værktøjer: Flere arbejdsbøger og ark til én; Flet flere celler / rækker / kolonner uden at miste data; Flet duplikatrækker og sum.
  • Opdel værktøjer: Opdel data i flere ark baseret på værdi; Én projektmappe til flere Excel-, PDF- eller CSV-filer; En kolonne til flere kolonner.
  • Indsæt spring Skjulte / filtrerede rækker; Tæl og sum af baggrundsfarve; Send personaliserede e-mails til flere modtagere i bulk.
  • Superfilter: Opret avancerede filterskemaer og anvend dem på alle ark; Sort efter uge, dag, hyppighed og mere; filtre med fed, formler, kommentar ...
  • Mere end 300 kraftfulde funktioner; Arbejder med Office 2007-2021 og 365; Understøtter alle sprog; Nem implementering i din virksomhed eller organisation.

pil blå højre boble Tilføj flere felter i værdiområdet i pivottabellen med VBA-kode

Desværre er der ingen afkrydsningsfelt for os til hurtigt at kontrollere alle felterne i Pivot Table Field List med et enkelt klik, men med følgende VBA-kode kan det hjælpe dig med at tilføje de resterende felter til området Værdier på én gang. Gør som følger:

1. Når du har oprettet pivottabellen, skal du først tilføje rækkeetiketfelterne efter behov og lade værdifelterne være i Vælg felter, der skal tilføjes til rapporten liste, se skærmbillede: </ p>

doc-add-multiple-fields-1

2. Hold nede ALT + F11 nøgler til at åbne Vinduet Microsoft Visual Basic til applikationer.

3. Klik indsatte > Moduler, og indsæt følgende kode i Modul vindue.

VBA-kode: Tilføj flere felter i værdiområdet for pivottabeller i det aktive regneark

Sub AddAllFieldsValues()
'Update 20141112
    Dim pt As PivotTable
    Dim I As Long
    For Each pt In ActiveSheet.PivotTables
        For I = 1 To pt.PivotFields.Count
            With pt.PivotFields(I)
              If .Orientation = 0 Then .Orientation = xlDataField
            End With
        Next
    Next
End Sub

4. Tryk derefter på F5 nøgle til at køre denne kode, alle de resterende felter er blevet tilføjet til området Værdier på samme tid, se skærmbillede:

doc-add-multiple-fields-1

Bemærk: Denne VBA-kode anvendes på alle pivottabeller i det aktive regneark.


Relaterede artikler:

Hvordan viser jeg alle pivottabeller, der danner en projektmappe?

Hvordan kontrolleres, om der findes en pivottabel i en projektmappe?


De bedste Office-produktivitetsværktøjer

Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%

  • Genbruge: Indsæt hurtigt komplekse formler, diagrammer og alt, hvad du har brugt før; Krypter celler med adgangskode Opret postliste og send e-mails ...
  • Super formel bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
  • Flet celler / rækker / kolonner uden at miste data; Split celler indhold; Kombiner duplikerede rækker / kolonner... Forhindre duplikerede celler; Sammenlign områder...
  • Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
  • Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
  • Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
  • Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
  • Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
  • Mere end 300 kraftfulde funktioner. Understøtter Office / Excel 2007-2021 og 365. Understøtter alle sprog. Nem implementering i din virksomhed eller organisation. Fuld funktioner 30-dages gratis prøveperiode. 60 dages pengene tilbage garanti.
kte-fane 201905

Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
officetab bund

 

Sorter kommentarer efter
Kommentarer (23)
Ingen vurderinger endnu. Vær den første til at bedømme!
Denne kommentar blev minimeret af moderatoren på webstedet
Rigtig fin og brugbar makro. Men jeg havde allerede tilføjet halvdelen af ​​mine felter i værdierne, og da jeg kørte denne makro, tilføjede den alle de samme felter igen. Nogen idé om hvorfor?
Denne kommentar blev minimeret af moderatoren på webstedet
Wow. Det fungerer meget godt. Mange tak! Ikke desto mindre er jeg lidt overrasket over, at Microsoft ikke havde en indbygget funktion til en ret simpel opgave...
Denne kommentar blev minimeret af moderatoren på webstedet
Det her er fantastisk. Kan makroen ændres til at føje alle til rækkeetiketter i stedet for værdier?
Denne kommentar blev minimeret af moderatoren på webstedet
Er der en måde at køre dette kun for ekskluderede felter, så jeg ikke ender med duplikerede felter, når jeg kører det? dvs. "Felt" og "Felt_2"
Denne kommentar blev minimeret af moderatoren på webstedet
[quote]Er der en måde at køre dette kun for ekskluderede felter, så jeg ikke ender med duplikerede felter, når jeg kører det? dvs. "Felt" og "Felt_2"Af Shaun[/quote] Ja- to eksempler Brug dette til at tilføje alle resterende umarkerede elementer til ROWS Sub AddAllFieldsRow() Dim pt As PivotTable Dim iCol As Long Dim iColEnd As Long Set pt = ActiveSheet.PivotTables(1) With pt iCol = 1 iColEnd = .PivotFields.Count For iCol = 1 Til iColEnd With .PivotFields(iCol) If .Orientation = 0 Then .Orientation = xlRowField End If End With Next iCol End With End Sub Brug dette til at tilføje resterende umarkerede elementer til VALUES Sub AddAllFieldsValues() Dim pt As PivotTable Dim iCol As Long Dim iColEnd As Long Set pt = ActiveSheet.PivotTables(1) With pt iCol = 1 iColEnd = .PivotFields.Count For iCol = 1 To iColEnd With .PivotFields(iCol) If .Orientation = 0 Så .Orientation = xlDataField End If End With Next iCol End With End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
Er der en måde kun at tilføje nogle ekstra felter, ikke de resterende eller dem alle, men bare et par af dem, der ikke allerede er markeret? :)
Denne kommentar blev minimeret af moderatoren på webstedet
Ja, for at ekko markus, er der en måde at redigere koden på, så den kun tilføjer umarkerede felter, der helt sikkert har feltetiketter (som med en hvis indeholder-funktion)? For eksempel har jeg et spørgsmål, der faktisk er 50 ja/nej-værdier efter emne, og jeg vil gerne flytte dem alle til værdifeltet. De begynder alle med den samme spørgsmåletiket q9_[specifikt spørgsmålsemne].
Denne kommentar blev minimeret af moderatoren på webstedet
Er der alligevel, hvis vi vil tilføje nogle udvalgte kolonner fra basisfilen i stedet for alle.?
Denne kommentar blev minimeret af moderatoren på webstedet
Dens takiung værdi som tæller. hvordan kan jeg konvertere alle tæller som Sum
Denne kommentar blev minimeret af moderatoren på webstedet
Du kan klikke på dit felt (i det område, hvor du trækker dine felter ind i: kolonneetiketter, rækkeetiketter etc.) og derefter klikke på "Værdifeltindstilling", så får du en dropdown-liste, hvorfra du kan vælge "Sum" !
A     El
Denne kommentar blev minimeret af moderatoren på webstedet
Denne kommentar blev minimeret af moderatoren på webstedet
Dette er godt! Tak.
Denne kommentar blev minimeret af moderatoren på webstedet
Virker "xlDataField" ikke med PowerPivot? Jeg har koden nedenfor, som bruges til at tilføje alle mål til pivottabellen. Det virker med "xlColumnField" og "xlRowField". Nogle ideer til hvordan man får dette til at virke?

Sub AddAllFieldsValues()
Dim pt Som pivottabel
Dæmp iCol As Long
Dæmp iColEnd As Long

Indstil pt = ActiveSheet.PivotTables(1)

Med pt

iCol = 1
iColEnd = .CubeFields.Count

For iCol = 1 til iColEnd
Med .CubeFields(iCol)
Hvis .Orientation = xlSkjult Så
.Orientation = xlDataField
End If
Slut med
Næste iCol

Slut med

End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
Hej.

Det giver mig en kompileringsfejl, når jeg klikker på Kør

Please hjælp
Denne kommentar blev minimeret af moderatoren på webstedet
Virker som en charme. Tak
Denne kommentar blev minimeret af moderatoren på webstedet
Tak, hjalp mig meget
Denne kommentar blev minimeret af moderatoren på webstedet
MANGE TAK!!!
Denne kommentar blev minimeret af moderatoren på webstedet
Bemærk: Ches fejlmeddelelse:




Sub AddAllFieldsValues()




'Opdatering 20141112



Dim
pt Som pivottabel





Dim I As
Lang





For hver
pt I ActiveSheet.PivotTables





Til
I = 1 Til pt.PivotFields.Count





Slut med







Næste



Næste




End Sub










Bemærk: Che forsøger at tilføje følgende
felter/snapshot- "Sum af ANDEN forskel, sum af 4096
Forskel" over 80 felter at være
tilføjet







ANDEN forskel



4096 Forskel



4016 Forskel
Denne kommentar blev minimeret af moderatoren på webstedet
Hvis "Værdier er
"0" eller "Nul", hvordan man undertrykker rækkeværdier fra visning

(f.eks. Sum af 2743 forskel)





Drej "rækker"
Pivot "Værdier"





Rækkeetiketter





NP9 - Total uforbrugt
Bevillinger





Summen af ​​ANDEN forskel 1,045,355,165.31




Sum af 3200 forskel
0.00




Sum af 0108 forskel
12,873,630.29



Sum af 4586 forskel
(33,024,706.93)



Sum af 0148 forskel
(72,046,783.14)



Sum af 0129 forskel
(5,583,891.98)



Sum af 4598 forskel
(929,574.56)



Sum af 2743 forskel



Sum af 4041 forskel
0.00



Sum af 2799 forskel
Denne kommentar blev minimeret af moderatoren på webstedet
Er der en måde at redigere makroen, der sender felterne ind i rækkeetiketten i stedet for værdierne?
Denne kommentar blev minimeret af moderatoren på webstedet
Задача же не всегда стоит в получении списка, хочется допустим поправите названия таблиц или источни. Можете реализовать?
Denne kommentar blev minimeret af moderatoren på webstedet
Hej, er der en måde at tilføje kun de uvalgte kolonner? tak. 
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg kører denne kode. Hvor lang tid tager det at gennemføre? Det er nu 45 minutter, den kører stadig. Vær venlig at hjælpe mig. Mine samlede feltkolonner er i øvrigt 3600.
Der er endnu ingen kommentarer her
Efterlad dine kommentarer
Sender som gæst
×
Bedøm dette indlæg:
0   Tegn
Foreslåede steder

Følg os

Copyright © 2009 - www.extendoffice.com. | Alle rettigheder forbeholdes. Drevet af ExtendOffice. | | Sitemap
Microsoft og Office-logoet er varemærker eller registrerede varemærker tilhørende Microsoft Corporation i USA og / eller andre lande.
Beskyttet af Sectigo SSL