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
- 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.
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>
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:
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.
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!
