Detta tips låter dina rapportanvändare välja mellan flera pivottabellformat med hjälp av alternativknappar och uppdaterar sedan pivottabellen automatiskt! (Kommer till nytta när användare har rapportformatinställningar utan att behöva gå till pivottabellens verktygsfält och välja en varje gång)
Steg ett:
Placera en alternativknapp (eller flera) någonstans i pivottabellrapportens kalkylblad och namnge dem, till exempel "Rapportformat 1", "Rapportformat 2" osv …
Gör detta genom att gå till "Visa> Verktygsfält> Formulär", välj "Alternativknapp" från verktygslådan och dra den till din rapport.
Steg två:
Skapa makrot genom att gå till "Verktyg> Makro> Makron", ange ett namn som "Format2" och sedan "Skapa"
Skriv in eller klipp ut och klistra in följande VB -kod. (Obs! Se till att din pivottabell är märkt med standardnamnet "Pivottabell1" genom att högerklicka var som helst i pivottabellen, välj "Tabellalternativ" och titta på "Namn" -fältet. Annars måste du byta ut pivottabellnamnet i koden nedan med det som pivottabellen heter):
Underformat2 ()
'Format2 Makro
ActiveSheet.PivotTables ("PivotTable1"). PivotSelect "", xlDataAndLabel, True
ActiveSheet.PivotTables ("PivotTable1"). Format xlReport6
Celler. Välj
Med urval
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = Falskt
.Orientation = 0
.AddIndent = Falskt
.IndentLevel = 0
.ShrinkToFit = Falskt
.ReadingOrder = xlContext
Sluta med
Med urval
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = Falskt
.Orientation = 0
.AddIndent = Falskt
.IndentLevel = 0
.ShrinkToFit = Falskt
.ReadingOrder = xlContext
Sluta med
Celler. Välj
Selection.Columns.Autofit
Område ("A1"). Välj
Avsluta Sub
~~~~~~~~~~~~~~~~~~~~~~~~~
Du kan skapa olika formatmakron med samma kod och den enda raden du behöver ändra är "Format xlReport6". Det finns cirka 15 rapportformat att välja mellan. Ändra helt enkelt "xlReport (nummer)" från 1 till 15.
Koden ovan anpassar automatiskt även kolumnerna och centrerar texten efter att rapporten har formaterats.
Steg tre:
Tilldela makrot till alternativknappen genom att högerklicka på alternativknappen, välj "Tilldela makro" och välj helt enkelt det makro som du just har skapat. Gör detta för var och en av dina alternativknappar
Det är allt! När en användare klickar på en alternativknapp uppdateras pivottabellen automatiskt till formatet baserat på formatalternativet som användes i makrot. Testa flera rapportstilar för att se vilka som passar dina behov och tilldela dem sedan till dina makron och alternativknappar.
Dina användare kommer att vara tacksamma och ganska imponerade!
Lycka till!
~ CJ