Ovaj savjet omogućuje korisnicima izvješća da odaberu između nekoliko formata zaokretne tablice pomoću gumba s opcijama, a zatim automatski ažuriraju zaokretnu tablicu! (Dobro dođe kada korisnici imaju postavke formata izvješća, a da ne moraju ići na alatnu traku zaokretne tablice i svaki put izabrati jednu)
Prvi korak:
Gumb s opcijama (ili nekoliko njih) postavite bilo gdje na radnom listu izvješća zaokretne tablice i dajte mu nazive, primjerice "Format izvješća 1", "Format izvješća 2" itd …
Učinite to tako da odete na "Pogled> Alatne trake> Obrasci", odaberite "Opcijski gumb" iz alata i povucite ga u svoje izvješće.
Drugi korak:
Izradite makronaredbu tako da odete na "Alati> Makro> Makronaredbe", upišite naziv poput "Format2", a zatim "Stvori"
Upišite ili izrežite i zalijepite sljedeći VB kôd. (Napomena: Provjerite je li vaša zaokretna tablica označena kao zadani naziv "Zaokretne tablice1" tako da desnom tipkom miša kliknete bilo gdje u zaokretnoj tablici, odaberete "Opcije tablice" i pogledate polje "Naziv". U protivnom ćete morati zamijeniti naziv zaokretne tablice u donjem kodu s imenom kojim se zove vaša zaokretna tablica):
Podformat 2 ()
'Makronaredba Format2
ActiveSheet.PivotTables ("PivotTable1"). PivotSelect "", xlDataAndLabel, True
ActiveSheet.PivotTables ("Zaokretna tablica1"). Format xlReport6
Stanice.Odaberi
S odabirom
.HorizontalAlignment = xlOpćenito
.Vertikalno poravnanje = xlDno
.WrapText = Netačno
.Orijentacija = 0
.AddIndent = Netačno
.IndentLevel = 0
.ShrinkToFit = Netačno
.ReadingOrder = xlContext
Završi s
S odabirom
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = Netačno
.Orijentacija = 0
.AddIndent = Netačno
.IndentLevel = 0
.ShrinkToFit = Netačno
.ReadingOrder = xlContext
Završi s
Stanice.Odaberi
Odabir.Kolone.Autofit
Raspon ("A1"). Odaberite
Kraj podm
~~~~~~~~~~~~~~~~~~~~~~~~~
Pomoću istog koda možete stvoriti makronaredbe različitih formata, a jedini redak koji morate promijeniti je "Format xlReport6". Možete izabrati 15 formata izvješća. Jednostavno promijenite "xlReport (broj)" s 1 na 15.
Gornji kôd također automatski prilagođava stupce i centrira tekst nakon formatiranja izvješća.
Treći korak:
Dodijelite makronaredbi gumbu opcije tako da desnom tipkom miša kliknete gumb opcije, odaberete "Dodijeli makro" i jednostavno odaberete makronaredbu koju ste upravo stvorili. Učinite to za svaki od gumba s opcijama
To je to! Sada, kada korisnik klikne gumb opcije, zaokretna tablica automatski će se ažurirati u format na temelju opcije oblikovanja koja je korištena u makronaredbi. Testirajte nekoliko stilova izvješća da vidite koji odgovaraju vašim potrebama, a zatim ih dodijelite svojim makronaredbama i gumbima opcija.
Vaši će korisnici biti zahvalni i impresionirani!
Sretno!
~ CJ