Šis patarimas leidžia ataskaitos vartotojams pasirinkti iš kelių suvestinės lentelės formatų naudojant parinkčių mygtukus ir automatiškai atnaujinti suvestinę lentelę! (Tai praverčia, kai vartotojai turi ataskaitos formato nuostatas ir nereikia eiti į suvestinės lentelės įrankių juostą ir kiekvieną kartą pasirinkti vieną)
Pirmas žingsnis:
Įdėkite pasirinkimo mygtuką (arba kelis) bet kurioje savo suvestinės lentelės ataskaitos darbalapio vietoje ir pavadinkite juos, pvz., „1 ataskaitos formatas“, „2 ataskaitos formatas“ ir kt.
Norėdami tai padaryti, eikite į „Rodinys> Įrankių juostos> Formos“, įrankių juostoje pasirinkite „Parinkties mygtukas“ ir vilkite jį į ataskaitą.
Antras žingsnis:
Sukurkite makrokomandą eidami į „Įrankiai> Makrokomandos> Makrokomandos“, įveskite pavadinimą, pvz., „Formatas2“, tada „Sukurti“
Įveskite arba iškirpkite ir įklijuokite šį VB kodą. (Pastaba: įsitikinkite, kad suvestinė lentelė pažymėta numatytuoju „PivotTable1“ pavadinimu, dešiniuoju pelės klavišu spustelėdami bet kurią suvestinės lentelės vietą, pasirinkite „Lentelės parinktys“ ir peržiūrėkite lauką „Pavadinimas“. Priešingu atveju turėsite pakeisti suvestinės lentelės pavadinimą žemiau esančiame kode su ta, kuria pavadinta jūsų suvestinė lentelė):
Antrasis formatas2 ()
„Formatas2 makrokomanda
ActiveSheet.PivotTables ("PivotTable1"). "PivotSelect" ", xlDataAndLabel, True
ActiveSheet.PivotTables ("PivotTable1"). Formatas xlReport6
Ląstelės. Pasirinkite
Su atranka
.HorizontalAlignment = xlBendra
.VerticalAlignment = xlBottom
.WrapText = Netiesa
.Orientacija = 0
.AddIndent = Netiesa
.IndentLevel = 0
.ShrinkToFit = Netiesa
.ReadingOrder = xlContext
Pabaiga su
Su atranka
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = Netiesa
.Orientacija = 0
.AddIndent = Netiesa
.IndentLevel = 0
.ShrinkToFit = Netiesa
.ReadingOrder = xlContext
Pabaiga su
Ląstelės. Pasirinkite
Pasirinkimas. Stulpeliai. Automatinis
Diapazonas („A1“). Pasirinkite
Pabaiga Sub
~~~~~~~~~~~~~~~~~~~~~~~~~
Naudodami tą patį kodą galite sukurti skirtingo formato makrokomandas, o vienintelė eilutė, kurią turite pakeisti, yra „Formatas xlReport6“. Galima pasirinkti apie 15 ataskaitų formatų. Tiesiog pakeiskite „xlReport (skaičius)“ iš 1 į 15.
Aukščiau pateiktas kodas taip pat automatiškai pritaiko stulpelius ir sutelkia tekstą po to, kai ataskaita yra suformatuota.
Trečias žingsnis:
Priskirkite makrokomandą parinkčių mygtukui, dešiniuoju pelės klavišu spustelėdami parinkties mygtuką, pasirinkite „Priskirti makrokomandą“ ir tiesiog pasirinkite ką tik sukurtą makrokomandą. Atlikite tai su kiekvienu pasirinkimo mygtuku
Viskas! Dabar, kai vartotojas spustelės parinkties mygtuką, suvestinė lentelė bus automatiškai atnaujinta į formatą, pagrįstą formato parinktimi, kuri buvo naudojama makrokomandoje. Išbandykite kelis ataskaitų stilius, kad pamatytumėte, kurie iš jų atitinka jūsų poreikius, tada priskirkite juos savo makrokomandoms ir parinkčių mygtukams.
Jūsų vartotojai bus dėkingi ir labai sužavėti!
Sėkmės!
~ CJ