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

Kako v vrtilno tabelo dodati več polj?

Ko ustvarimo vrtilno tabelo, moramo polja eno za drugo ročno povleciti v Oznake vrstic ali Vrednosti. Če imamo dolg seznam polj, lahko hitro dodamo nekaj oznak vrstic, preostala polja pa moramo dodati v območje Value. Ali obstajajo hitri načini, da z enim klikom v vrtilni tabeli dodamo vsa druga polja v območje Vrednost?

V območje vrednosti vrtilne tabele s kodo VBA dodajte več polj

Kartica Office Omogočite urejanje in brskanje z zavihki v storitvi Office ter olajšajte svoje delo ...
Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%
  • Ponovno uporabi vse: Med priljubljene dodajte najbolj uporabljene ali zapletene formule, grafikone in kar koli drugega ter jih v prihodnosti hitro ponovno uporabite.
  • Več kot 20 besedilnih funkcij: Izvleček številke iz besedilnega niza; Izvleči ali odstrani del besedil; Pretvorite številke in valute v angleške besede.
  • Združi orodja: Več delovnih zvezkov in listov v eno; Združi več celic / vrstic / stolpcev brez izgube podatkov; Združi podvojene vrstice in vsoto.
  • Razdeljena orodja: Razdeli podatke na več listov na podlagi vrednosti; En delovni zvezek v več datotek Excel, PDF ali CSV; En stolpec na več stolpcev.
  • Prilepi preskoči Skrite / filtrirane vrstice; Štetje in vsota glede na Barva ozadja; V večjem obsegu pošiljajte osebna e-poštna sporočila več prejemnikom.
  • Super filter: Ustvarite napredne filtrirne sheme in uporabite za vse liste; Razvrščanje po tednih, dnevih, pogostosti in še več; filter s krepkim tiskom, formule, komentar ...
  • Več kot 300 zmogljivih funkcij; Deluje z Office 2007-2021 in 365; Podpira vse jezike; Enostavna uvedba v vašem podjetju ali organizaciji.

puščica modri desni mehurček V območje vrednosti vrtilne tabele s kodo VBA dodajte več polj

Na žalost ni potrditvenega polja, da bi z enim klikom hitro preverili vsa polja na seznamu polj vrtilne tabele, vendar vam lahko z naslednjo kodo VBA pomagate, da preostala polja naenkrat dodate v območje vrednosti. Naredite naslednje:

1. Po ustvarjanju vrtilne tabele najprej dodajte polja z oznako vrstice, kot želite, polja vrednosti pa pustite v Izberite polja, ki jih želite dodati v poročilo seznam, glej posnetek zaslona: </ p>

doc-dodaj-več-polj-1

2. Držite tipko ALT + F11 tipke za odpiranje Okno Microsoft Visual Basic for Applications.

3. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Okno modula.

Koda VBA: v aktivno območje vrtilnih tabel na aktivnem delovnem listu dodajte več polj

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. Nato pritisnite F5 za zagon te kode, so bila vsa preostala polja hkrati dodana v območje Vrednosti, glejte posnetek zaslona:

doc-dodaj-več-polj-1

Opombe: Ta koda VBA se uporablja za vse vrtilne tabele aktivnega delovnega lista.


Sorodni članki:

Kako našteti vse vrtilne tabele iz delovnega zvezka?

Kako preveriti, ali v delovnem zvezku obstaja vrtilna tabela?


Najboljša orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%

  • Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
  • Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
  • Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
  • Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
  • Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
  • Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
  • Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
  • Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
  • Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.
zavihek kte 201905

Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
dno pisarniške mize

 

Komentarji (23)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
Res lep in uporaben makro. Vendar sem polovico svojih polj že dodal v vrednosti in ko sem zagnal ta makro, je spet dodal vsa ista polja. Kakšna ideja zakaj?
Ta komentar je moderator na spletnem mestu minimiziral
Vau. Deluje zelo zelo dobro. Najlepša hvala! Kljub temu sem nekoliko presenečen, da Microsoft ni imel vgrajene funkcije za precej preprosto nalogo ...
Ta komentar je moderator na spletnem mestu minimiziral
To je fantastično. Ali je mogoče makro spremeniti tako, da doda vse v oznake vrstic namesto vrednosti?
Ta komentar je moderator na spletnem mestu minimiziral
Ali obstaja način, da to zaženem samo za izključena polja, tako da, ko ga zaženem, ne dobim podvojenih polj? tj. "Polje" in "Polje_2"
Ta komentar je moderator na spletnem mestu minimiziral
[quote]Ali obstaja način, da to zaženem samo za izključena polja, tako da, ko ga zaženem, ne dobim podvojenih polj? tj. "Polje" in "Polje_2"Avtor Shaun[/quote] Da – dva primera Uporabite to za dodajanje vseh preostalih nepotrjenih elementov v ROWS Sub AddAllFieldsRow() Dim pt As Pivot Table Dim iCol As Long Dim iColEnd As Long Set pt = ActiveSheet.PivotTables(1) S pt iCol = 1 iColEnd = .PivotFields.Count Za iCol = 1 Za iColEnd z .PivotFields(iCol) Če je .Orientation = 0 Potem .Orientation = xlRowField End Če Konec z naslednjim iCol Konec s End Sub Uporabite to, če želite dodati preostale nepotrjene elemente v VALUES Sub AddAllFields()V Dim pt Kot vrtilna tabela Dim iCol As Long Dim iColend As Long Nastavi pt = ActiveSheet.PivotTables(1) S pt iCol = 1 iColEnd = .PivotFields.Count Za iCol = 1 Za iColEnd z .PivotFields Potem je = (iCol) Če = (iCol) .Orientation = xlDataField End Če Konec z naslednjim iCol Konec s Koncem pod
Ta komentar je moderator na spletnem mestu minimiziral
Ali obstaja način, da dodate samo nekaj ekstra polj, ne preostalih ali vseh, ampak samo par tistih, ki še niso potrjena? :)
Ta komentar je moderator na spletnem mestu minimiziral
Ja, da odmeva markus, ali obstaja način za urejanje kode, da se dodajo samo neoznačena polja, ki imajo zagotovo oznake polj (na primer s funkcijo if vsebuje)? Na primer, imam vprašanje, ki je dejansko 50 vrednosti da/ne glede na temo in vse bi rad premaknil v polje vrednosti. Vsi se začnejo z isto oznako vprašanja q9_[specifična tema vprašanja].
Ta komentar je moderator na spletnem mestu minimiziral
Ali sploh obstaja, če želimo dodati nekaj izbranih stolpcev iz osnovne datoteke namesto vseh.?
Ta komentar je moderator na spletnem mestu minimiziral
Njegova vrednost kot štetje. kako lahko pretvorim, da se vse šteje kot vsota
Ta komentar je moderator na spletnem mestu minimiziral
Lahko kliknete na svoje polje (na območju, kamor povlečete svoja polja v: oznake stolpcev, oznake vrstic itd.), nato kliknete "Nastavitev polja vrednosti", nato pa se prikaže spustni seznam, kjer lahko izberete "Sum"!
A     El
Ta komentar je moderator na spletnem mestu minimiziral
Ta komentar je moderator na spletnem mestu minimiziral
To je odlično! Hvala.
Ta komentar je moderator na spletnem mestu minimiziral
Ali "xlDataField" ne deluje s PowerPivot? Imam spodnjo kodo, ki se uporablja za dodajanje vseh ukrepov v vrtilno tabelo. Deluje z "xlColumnField" in "xlRowField". Kakšne ideje, kako to narediti?

Pod AddAllFieldsValues()
Dim pt kot vrtilna tabela
Dim iCol As Long
Zatemni iColEnd tako dolgo

Nastavi pt = ActiveSheet.PivotTables(1)

S pt

iCol = 1
iColEnd = .CubeFields.Count

Za iCol = 1 Za iColEnd
Z .CubeFields(iCol)
Če je .Orientation = xlHidden Potem
.Orientation = xlDataField
Konec Če
Končaj s
Naslednji iCol

Končaj s

End Sub
Ta komentar je moderator na spletnem mestu minimiziral
Hi.

Ko kliknem na Zaženi, se pojavi napaka pri prevajanju

prosim pomoč
Ta komentar je moderator na spletnem mestu minimiziral
Deluje kot čar. Hvala
Ta komentar je moderator na spletnem mestu minimiziral
Hvala, veliko mi je pomagalo
Ta komentar je moderator na spletnem mestu minimiziral
NAJLEPŠA HVALA!!!
Ta komentar je moderator na spletnem mestu minimiziral
Opomba: Chejevo sporočilo o napaki:




Pod AddAllFieldsValues()




'Posodobitev 20141112



Dim
pt Kot vrtilna tabela





Dim I As
Long





Za vsakogar
pt V ActiveSheet.PivotTables





za
I = 1 Do pt.PivotFields.Count





Končaj s







Naslednji



Naslednji




End Sub










Opomba: Che poskuša dodati naslednje
polja/posnetek- "Vsota DRUGE razlike, vsota 4096
Razlika" več kot 80 polj
dodano







DRUGA Razlika



4096 Razlika



4016 Razlika
Ta komentar je moderator na spletnem mestu minimiziral
Če so "vrednosti
"0" ali "Null", kako preprečiti prikazovanje vrednosti vrstic

(npr. vsota 2743 razlike)





Pivot "vrstice"
Pivot "Vrednosti"





Oznake vrstic





NP9 - Skupno neporabljeno
Proračunska sredstva





Vsota DRUGE razlike 1,045,355,165.31




Vsota 3200 razlike
0.00




Vsota 0108 razlike
12,873,630.29



Vsota 4586 razlike
(33,024,706.93)



Vsota 0148 razlike
(72,046,783.14)



Vsota 0129 razlike
(5,583,891.98)



Vsota 4598 razlike
(929,574.56)



Vsota 2743 razlike



Vsota 4041 razlike
0.00



Vsota 2799 razlike
Ta komentar je moderator na spletnem mestu minimiziral
Ali obstaja način za urejanje makra, ki bi poslal polja v oznako vrstic namesto vrednosti?
Ta komentar je moderator na spletnem mestu minimiziral
Zadaja že ne vedno ostane v pridobivanju seznama, hoče se dovoljeno poslati tabelo imena ali izvorov podatkov. Možete realizirati?
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni, ali obstaja način, da dodate samo neizbrane stolpce? hvala 
Ta komentar je moderator na spletnem mestu minimiziral
Jaz izvajam to kodo. Koliko časa je potrebno za dokončanje? Zdaj je 45 minut, še vedno teče. Prosim pomagaj mi. Mimogrede, mojih skupnih stolpcev polja je 3600.
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL