Šis padoms ļauj pārskatu lietotājiem izvēlēties starp vairākiem rakurstabulu formātiem, izmantojot opciju pogas, un pēc tam automātiski atjaunina rakurstabulu! (Tas ir noderīgi, ja lietotājiem ir atskaites formāta preferences, nevis jāiet uz rakurstabulas rīkjoslas un katru reizi jāizvēlas viena)
Pirmais solis:
Novietojiet opciju pogu (vai vairākas) jebkurā vietā rakurstabulas pārskata darblapā un nosauciet tās, piemēram, "Pārskata formāts 1", "Pārskata formāts 2" utt.
Lai to izdarītu, dodieties uz "Skatīt> Rīkjoslas> Veidlapas", izvēlieties "Opciju poga" no rīkjoslas un velciet to uz savu pārskatu.
Otrais solis:
Izveidojiet makro, dodoties uz "Rīki> Makro> Makro", ierakstiet nosaukumu, piemēram, "Formāts2", un pēc tam "Izveidot"
Ievadiet vai izgrieziet un ielīmējiet šādu VB kodu. (Piezīme. Pārliecinieties, ka jūsu rakurstabula ir apzīmēta kā "PivotTable1" noklusējuma nosaukums, ar peles labo pogu noklikšķinot jebkurā vietā rakurstabulā, izvēlieties "Tabulas opcijas" un apskatiet lauku "Nosaukums". Pretējā gadījumā jums tas būs jāaizstāj rakurstabulas nosaukums zemāk esošajā kodā ar to, kas ir nosaukts jūsu rakurstabulai):
Apakšformāts2 ()
'Formāts2 makro
ActiveSheet.PivotTables ("PivotTable1"). PivotSelect "", xlDataAndLabel, True
ActiveSheet.PivotTables ("PivotTable1"). Formāts xlReport6
Šūnas. Izvēlieties
Ar atlasi
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = Nepareizi
.Orientācija = 0
.AddIndent = Nepareizi
.IndentLevel = 0
.ShrinkToFit = Nepareizi
.ReadingOrder = xlContext
Beigt ar
Ar atlasi
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = Nepareizi
.Orientācija = 0
.AddIndent = Nepareizi
.IndentLevel = 0
.ShrinkToFit = Nepareizi
.ReadingOrder = xlContext
Beigt ar
Šūnas. Atlasīt
Atlase. Kolonnas. Automātiskais
Diapazons ("A1"). Izvēlieties
Beigt apakš
~~~~~~~~~~~~~~~~~~~~~~~~~
Izmantojot šo pašu kodu, varat izveidot dažāda formāta makro, un vienīgā rindiņa, kas jāmaina, ir "Formatēt xlReport6". Ir pieejami aptuveni 15 pārskatu formāti. Vienkārši nomainiet "xlReport (numurs)" no 1 uz 15.
Iepriekš minētais kods automātiski automātiski pielāgo slejas un centrē tekstu pēc pārskata formatēšanas.
Trešais solis:
Piešķiriet makro opciju pogai, ar peles labo pogu noklikšķinot uz opcijas pogas, izvēlieties "Piešķirt makro" un vienkārši izvēlieties tikko izveidoto makro. Dariet to katrai opciju pogai
Tieši tā! Tagad, kad lietotājs noklikšķina uz opcijas pogas, rakurstabula tiks automātiski atjaunināta uz formātu, pamatojoties uz makro izmantoto formāta opciju. Pārbaudiet vairākus pārskatu stilus, lai noskaidrotu, kuri no tiem atbilst jūsu vajadzībām, un pēc tam piešķiriet tos saviem makro un opciju pogām.
Jūsu lietotāji būs pateicīgi un diezgan pārsteigti!
Veiksmi!
~ CJ