Esplodere il totale di una tabella pivot

[thunder78]

Con una macro (magari associandola ad un pulsante) vorrei esplodere il totale di una tabella pivot senza cliccarci sopra.

Come posso fare?

[Anthony47]

Proprio “senza ciccarci sopra” non mi viene in mente qualcosa di immediato; ma selezionando il totale e poi lanciando la macro si puo’ (anche se non so quanto sia piu’ pratico premere un pulsante invece che doppioclick sulla cella); potresti provare questa:

Codice: Seleziona tutto

Sub thund()
On Error Goto Esci
Messg = "Esploso di " & ActiveCell.PivotItem.Name
Selection.Showdetail = True
MsgBox (Messg)
'Activewindow.Selectedsheets.Delete   '<<<< Per cancellare il foglio creato
Exit Sub
Esci:
MsgBox ("Posizionarsi su un totale da esplodere")
End Sub

L’ istruzione marcata “<<<<” e’ commentata, cioe’ non viene eseguita; se vuoi cancellare il foglio appena creato dall’ esplosione della voce devi togliere l’ apostrofo a inizio riga.
Uso: seleziona il totale da esplodere, lancia la macro.

Aiuta? Ciao.