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
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 pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
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!