Dette tip giver dine rapportbrugere mulighed for at vælge mellem flere pivottabelformater ved hjælp af valgknapper og opdaterer derefter pivottabellen automatisk! (Kommer godt med, når brugerne har præferencer for rapportformater uden at skulle gå til pivottabellens værktøjslinje og vælge en hver gang)
Trin et:
Placer en valgmulighedsknap (eller flere) hvor som helst på dit pivottabelrapportark, og navngiv dem, f.eks. "Rapportformat 1", "Rapportformat 2" osv …
Gør dette ved at gå til "Vis> Værktøjslinjer> Formularer", vælg "Indstillingsknap" fra værktøjskassen og træk den til din rapport.
Trin to:
Opret makroen ved at gå til "Værktøjer> Makro> Makroer", indtast et navn som "Format2" og derefter "Opret"
Indtast eller klip og indsæt følgende VB -kode. (Bemærk: Sørg for, at din pivottabel er mærket som standardnavnet for "Pivottabel1" ved at højreklikke et vilkårligt sted i pivottabellen, vælg 'Tabelindstillinger' og se feltet 'Navn'. Ellers skal du udskifte pivottabellens navn i koden herunder med den, som din pivottabel hedder):
Underformat2 ()
'Format2 makro
ActiveSheet.PivotTables ("PivotTable1"). PivotSelect "", xlDataAndLabel, True
ActiveSheet.PivotTables ("PivotTable1"). Format xlReport6
Celler.Vælg
Med markering
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = Falsk
.Orientation = 0
.AddIndent = Falsk
.IndentLevel = 0
.ShrinkToFit = Falsk
.ReadingOrder = xlContext
Afslut med
Med markering
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = Falsk
.Orientation = 0
.AddIndent = Falsk
.IndentLevel = 0
.ShrinkToFit = Falsk
.ReadingOrder = xlContext
Afslut med
Celler.Vælg
Selection.Columns.Autofit
Område ("A1"). Vælg
Afslut Sub
~~~~~~~~~~~~~~~~~~~~~~~~~
Du kan oprette forskellige formatmakroer ved hjælp af den samme kode, og den eneste linje, du skal ændre, er "Format xlReport6". Der er omkring 15 rapportformater at vælge imellem. Du skal blot ændre "xlReport (nummer)" fra 1 til 15.
Koden ovenfor tilpasser også automatisk kolonnerne og centrerer teksten, efter at rapporten er blevet formateret.
Trin tre:
Tildel makroen til optionsknappen ved at højreklikke på optionsknappen, vælg "Tildel makro" og vælg blot den makro, du lige har oprettet. Gør dette for hver af dine valgknapper
Det er det! Når en bruger nu klikker på en optionsknap, opdateres pivottabellen automatisk til formatet baseret på den formatindstilling, der blev brugt i makroen. Test flere rapportformater for at se, hvilke der passer til dine behov, og tildel dem derefter til dine makroer og valgknapper.
Dine brugere vil være taknemmelige og ret imponerede!
Held og lykke!
~ CJ