Ta nasvet uporabnikom vaših poročil omogoča izbiro med različnimi oblikami vrtilne tabele z gumbi z možnostmi in nato samodejno posodobi vrtilno tabelo! (Priročno je, če imajo uporabniki nastavitve oblike poročila, ne da bi morali obiskati orodno vrstico vrtilne tabele in vsakič izbrati eno)
Prvi korak:
Gumb z možnostmi (ali več) postavite kamor koli na delovnem listu poročila v vrtilni tabeli in ga poimenujte, na primer "Format poročila 1", "Oblika poročila 2" itd …
To naredite tako, da odprete »Pogled> Orodne vrstice> Obrazci«, v orodni vrstici izberite »Gumb možnosti« in ga povlečete v poročilo.
Drugi korak:
Ustvarite makro tako, da odprete "Orodja> Makro> Makri", vnesite ime, na primer "Format2" in nato "Ustvari"
Vnesite ali izrežite in prilepite naslednjo kodo VB. (Opomba: Prepričajte se, da je vaša vrtilna tabela označena kot privzeto ime "vrtilne tabele1", tako da z desno miškino tipko kliknete kjer koli v vrtilni tabeli, izberete "Možnosti tabele" in si ogledate polje "Ime". V nasprotnem primeru boste morali zamenjati ime vrtilne tabele v spodnji kodi z imenom, ki se imenuje vaša vrtilna tabela):
Podoblik2 ()
'Makro Format2
ActiveSheet.PivotTables ("PivotTable1"). PivotSelect "", xlDataAndLabel, True
ActiveSheet.PivotTables ("PivotTable1"). Oblika xlReport6
Celice. Izberite
S selekcijo
.HorizontalAlignment = xlSplošno
.VerticalAlignment = xlBottom
.WrapText = Napačno
.Orijentacija = 0
.AddIndent = Napačno
.IndentLevel = 0
.ShrinkToFit = Napačno
.ReadingOrder = xlContext
Končaj s
S selekcijo
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = Napačno
.Orijentacija = 0
.AddIndent = Napačno
.IndentLevel = 0
.ShrinkToFit = Napačno
.ReadingOrder = xlContext
Končaj s
Celice. Izberite
Izbor. stolpci.Avtofit
Razpon ("A1"). Izberite
End Sub
~~~~~~~~~~~~~~~~~~~~~~~~~
Z isto kodo lahko ustvarite makre različnih formatov, edina vrstica, ki jo morate spremeniti, je "Format xlReport6". Izbirate lahko med 15 oblikami poročil. Preprosto spremenite "xlReport (številka)" z 1 na 15.
Zgornja koda tudi samodejno prilagodi stolpce in centrira besedilo po oblikovanju poročila.
Tretji korak:
Gumbu možnosti dodelite makro z desnim klikom na gumb z možnostmi, izberite »Dodeli makro« in preprosto izberite makro, ki ste ga pravkar ustvarili. To naredite za vsak gumb gumba za izbiro
To je to! Zdaj, ko uporabnik klikne gumb z možnostmi, se vrtilna tabela samodejno posodobi v obliko glede na možnost oblike, ki je bila uporabljena v makru. Preizkusite več slogov poročil, da vidite, kateri ustrezajo vašim potrebam, in jih nato dodelite svojim makrom in gumbom z možnostmi.
Vaši uporabniki bodo hvaležni in navdušeni!
Vso srečo!
~ CJ
