Tento tip umožňuje používateľom zostavy vybrať si z niekoľkých formátov kontingenčnej tabuľky pomocou tlačidiel možností a potom kontingenčnú tabuľku automaticky aktualizuje! (Je to vhodné, keď majú používatelia predvoľby formátu prehľadov bez toho, aby museli vždy ísť na panel s nástrojmi kontingenčnej tabuľky)
Krok jedna:
Umiestnite tlačidlo voľby (alebo niekoľko) kdekoľvek na pracovný hárok zostavy kontingenčnej tabuľky a pomenujte ho napríklad „Formát správy 1“, „Formát správy 2“ atď.…
To urobíte tak, že prejdete na položku „Zobraziť> Panely s nástrojmi> Formuláre“, v paneli s nástrojmi vyberiete položku „Tlačidlo možností“ a presuniete ju do prehľadu.
Krok dva:
Vytvorte makro tak, že prejdete na „Nástroje> Makro> Makrá“, zadáte názov, napríklad „Format2“ a potom „Vytvoriť“
Zadajte alebo vystrihnite a prilepte nasledujúci kód VB. (Poznámka: Zaistite, aby bola vaša kontingenčná tabuľka označená ako predvolený názov „Kontingenčná tabuľka1“ kliknutím pravým tlačidlom myši kdekoľvek v kontingenčnej tabuľke, zvoľte „Možnosti tabuľky“ a pozrite sa do poľa „Názov“. V opačnom prípade budete musieť nahradiť názov kontingenčnej tabuľky v nižšie uvedenom kóde s názvom, ktorý má vaša kontingenčná tabuľka pomenovaný):
Podformát 2 ()
„Makro Format2
ActiveSheet.PivotTables ("PivotTable1"). PivotSelect "", xlDataAndLabel, True
ActiveSheet.PivotTables ("PivotTable1"). Formát xlReport6
Bunky. Vyberte
S výberom
.HorizontalAlignment = xlVšeobecné
.VerticalAlignment = xlBottom
.WrapText = Nepravda
.Orientácia = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = Nepravda
.ReadingOrder = xlContext
Ukončiť s
S výberom
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = Nepravda
.Orientácia = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = Nepravda
.ReadingOrder = xlContext
Ukončiť s
Bunky. Vyberte
Výber. Stĺpce. Autofit
Rozsah („A1“). Vyberte
Koniec pod
~~~~~~~~~~~~~~~~~~~~~~~~~
Pomocou rovnakého kódu môžete vytvárať makrá rôznych formátov a jediný riadok, ktorý musíte zmeniť, je „Formát xlReport6“. Na výber je asi 15 formátov prehľadov. Jednoducho zmeňte „xlReport (číslo)“ z 1 na 15.
Vyššie uvedený kód tiež automaticky formátuje stĺpce a zarovná text na stred po formátovaní správy.
Krok tri:
Priraďte makro k tlačidlu možností kliknutím pravým tlačidlom myši na tlačidlo možností, zvoľte „Priradiť makro“ a jednoducho vyberte makro, ktoré ste práve vytvorili. Vykonajte to pre každé z vašich tlačidiel možností
To je všetko! Keď teraz používateľ klikne na tlačidlo možnosti, kontingenčná tabuľka sa automaticky aktualizuje na formát podľa možnosti formátu, ktorá bola použitá v makre. Otestujte niekoľko štýlov zostavy, aby ste zistili, ktoré vyhovujú vašim potrebám, a potom ich priradte k makrám a tlačidlám možností.
Vaši používatelia budú vďační a budú na nich urobení veľký dojem!
Veľa štastia!
~ CJ