Questo suggerimento consente agli utenti del rapporto di scegliere tra diversi formati di tabella pivot utilizzando i pulsanti di opzione e quindi aggiorna automaticamente la tabella pivot! (È utile quando gli utenti hanno preferenze sul formato del rapporto senza dover andare alla barra degli strumenti della tabella pivot e sceglierne uno ogni volta)
Primo passo:
Posiziona un pulsante di opzione (o più) in qualsiasi punto del foglio di lavoro del rapporto della tabella pivot e assegna loro un nome come "Formato rapporto 1", "Formato rapporto 2", ecc …
Per farlo, vai su "Visualizza > Barre degli strumenti > Moduli", scegli "Pulsante di opzione" dalla casella degli strumenti e trascinalo sul tuo rapporto.
Passo due:
Crea la macro andando su "Strumenti > Macro > Macro", digita un nome come "Formato2" e poi "Crea"
Digita o taglia e incolla il seguente codice VB. (Nota: assicurati che la tua tabella pivot sia etichettata con il nome predefinito di "PivotTable1" facendo clic con il pulsante destro del mouse in qualsiasi punto della tabella pivot, scegli "Opzioni tabella" e guarda il campo "Nome". Altrimenti, dovrai sostituire il nome della tabella pivot nel codice seguente con quello con cui è denominata la tabella pivot):
Sottoformato2()
'Macro Format2
ActiveSheet.PivotTables("PivotTable1").PivotSelect "", xlDataAndLabel, True
ActiveSheet.PivotTables("PivotTable1").Formato xlReport6
Celle.Seleziona
Con selezione
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = False
.Orientamento = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
Termina con
Con selezione
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientamento = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
Termina con
Celle.Seleziona
Selezione.Colonne.Autofit
Intervallo("A1").Seleziona
Fine sottotitolo
~~~~~~~~~~~~~~~~~~~~~~~~~
Puoi creare macro di formato diverso utilizzando lo stesso codice e l'unica riga che devi modificare è "Formato xlReport6". Ci sono circa 15 formati di report tra cui scegliere. Cambia semplicemente "xlReport(number)" da 1 a 15.
Il codice sopra si adatta automaticamente anche alle colonne e centra il testo dopo che il report è stato formattato.
Fase tre:
Assegna la macro al pulsante di opzione facendo clic con il pulsante destro del mouse sul pulsante di opzione, scegli "Assegna macro" e scegli semplicemente la macro che hai appena creato. Fallo per ciascuno dei tuoi pulsanti di opzione
Questo è tutto! Ora, quando un utente fa clic su un pulsante di opzione, la tabella pivot si aggiornerà automaticamente al formato in base all'opzione di formato utilizzata nella macro. Prova diversi stili di report per vedere quali si adattano alle tue esigenze e poi assegnali alle macro e ai pulsanti di opzione.
I tuoi utenti saranno grati e molto colpiti!
Buona fortuna!
~CJ