Met deze tip kunnen uw rapportgebruikers kiezen tussen verschillende draaitabelindelingen met keuzerondjes en de draaitabel vervolgens automatisch bijwerken! (Dit is handig wanneer gebruikers voorkeuren voor rapportindelingen hebben zonder naar de draaitabelwerkbalk te hoeven gaan en er elke keer een te kiezen)
Stap een:
Plaats een keuzerondje (of meerdere) ergens op het werkblad van uw draaitabelrapport en noem ze zoals "Rapportindeling 1", "Rapportindeling 2", enz …
Doe dit door naar "Weergave > Werkbalken > Formulieren" te gaan, kies "Optieknop" in de toolbox en sleep deze naar uw rapport.
Stap twee:
Maak de macro door naar "Extra> Macro> Macro's" te gaan, typ een naam in zoals "Format2" en vervolgens "Maken"
Typ of knip en plak de volgende VB-code. (Opmerking: zorg ervoor dat uw draaitabel de standaardnaam 'PivotTable1' heeft door met de rechtermuisknop ergens in de draaitabel te klikken, 'Tabelopties' te kiezen en naar het veld 'Naam' te kijken. Anders moet u de draaitabelnaam in de onderstaande code met degene die uw draaitabel heet):
Subformaat2()
'Formaat2 Macro'
ActiveSheet.PivotTables("PivotTable1").PivotSelect "", xlDataAndLabel, True
ActiveSheet.PivotTables("PivotTable1").Format xlReport6
Cellen.Selecteer
Met selectie
.HorizontalAlignment = xlAlgemeen
.VerticalAlignment = xlBottom
.WrapText = False
.Oriëntatie = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
Eindigt met
Met selectie
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Oriëntatie = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
Eindigt met
Cellen.Selecteer
Selectie.Kolommen.Automatisch aanpassen
Bereik ("A1"). Selecteer
Einde sub
~~~~~~~~~~~~~~~~~~~~~~~~~
U kunt met dezelfde code verschillende indelingsmacro's maken en de enige regel die u hoeft te wijzigen, is de "Format xlReport6". Er zijn ongeveer 15 rapportformaten om uit te kiezen. Verander eenvoudig de "xlReport(number)" van 1 in 15.
De bovenstaande code past ook automatisch de kolommen automatisch aan en centreert de tekst nadat het rapport is opgemaakt.
Stap drie:
Wijs de macro toe aan de optieknop door met de rechtermuisknop op de optieknop te klikken, kies "Macro toewijzen" en kies gewoon de macro die u zojuist hebt gemaakt. Doe dit voor elk van uw keuzerondjes
Dat is het! Wanneer een gebruiker nu op een keuzerondje klikt, wordt de draaitabel automatisch bijgewerkt naar de indeling op basis van de indelingsoptie die in de macro werd gebruikt. Test verschillende rapportstijlen om te zien welke aan uw behoeften voldoen en wijs ze vervolgens toe aan uw macro's en keuzerondjes.
Uw gebruikers zullen dankbaar en behoorlijk onder de indruk zijn!
Veel geluk!
~CJ