See näpunäide võimaldab teie aruande kasutajatel valida valikunuppude abil mitme liigendtabeli vormingu vahel ja seejärel värskendab automaatselt pöördetabelit! (Tuleb kasuks, kui kasutajatel on aruande vormingu eelistused, ilma et nad peaksid pöördetabeli tööriistaribale minema ja iga kord selle valima)
Esimene samm:
Asetage valikunupp (või mitu) oma pöördtabeli aruande töölehele suvalisse kohta ja nimetage need näiteks "Aruande vorming 1", "Aruande vorming 2" jne.
Selleks minge jaotisse "Vaade> Tööriistaribad> Vormid", valige tööriistakastist "Valikunupp" ja lohistage see oma aruandele.
Teine samm:
Makro loomiseks minge menüüsse "Tööriistad> Makro> Makrod", tippige nimi, näiteks "Format2" ja seejärel "Loo"
Sisestage või lõigake ja kleepige järgmine VB -kood. (Märkus. Veenduge, et teie liigendtabel oleks märgistatud vaikenimega "PivotTable1", paremklõpsates suvalises liigendtabelis, valige "Tabeli valikud" ja vaadake välja "Nimi". Vastasel juhul peate selle asendama liigendtabeli nimi allolevas koodis koos selle liigendtabeli nimega):
Alamvorming2 ()
'Vorming 2 makro
ActiveSheet.PivotTables ("PivotTable1"). PivotSelect "", xlDataAndLabel, True
ActiveSheet.PivotTables ("PivotTable1"). Vorming xlReport6
Lahtrid. Valige
Valikuga
.HorizontalAlignment = xlÜldine
.VerticalAlignment = xlPõhi
.WrapText = Vale
.Suund = 0
.AddIndent = Vale
.IndentLevel = 0
.ShrinkToFit = Vale
.ReadingOrder = xlContext
Lõpeta
Valikuga
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlPõhi
.WrapText = Vale
.Suund = 0
.AddIndent = Vale
.IndentLevel = 0
.ShrinkToFit = Vale
.ReadingOrder = xlContext
Lõpeta
Lahtrid. Valige
Valik. Veerud. Autofit
Vahemik ("A1"). Valige
End Sub
~~~~~~~~~~~~~~~~~~~~~~~~~
Sama koodi abil saate luua erineva vorminguga makrosid ja ainus rida, mida peate muutma, on "Format xlReport6". Valida on umbes 15 aruandevormingu vahel. Lihtsalt muutke "xlReport (number)" 1 -lt 15 -le.
Ülaltoodud kood kohandab automaatselt ka veerud ja tsentreerib teksti pärast aruande vormindamist.
Kolmas samm:
Määrake makro valikunupule, paremklõpsates valikunupul, valige "Määra makro" ja valige lihtsalt loodud makro. Tehke seda iga oma valikunupu puhul
See on kõik! Nüüd, kui kasutaja klõpsab valikunupul, värskendatakse pöördtabelit automaatselt makros kasutatud vormindamisvaliku alusel vormingusse. Kontrollige mitut aruandlusstiili, et näha, millised neist teie vajadustele vastavad, ja määrake need seejärel oma makrodele ja valikunuppudele.
Teie kasutajad on tänulikud ja üsna muljet avaldanud!
Edu!
~ CJ