Se in una cartella di Excel avete applicato un colore alle schede dei fogli, è possibile raggruppare tali schede in base al loro colore.
Chiaramente questa funzionalità è valida solo a partire dalla versione 2002 (XP) di Excel e successive, visto che nelle versioni precedenti non era presente l’opzione per colorare le schede.
Aprire il file che contiene i fogli che devono essere raggruppati per colore.
A questo punto dovendo lavorare tramite codice VBA apriamo la relativa finestra:
In Excel XP o 2003:
Menù Strumenti – Macro – Visual Basic Editor
In Excel 2007:
Bottone di Office – Pulsante Opzioni di Excel – Impostazioni generali – Opzione “Mostra scheda Sviluppo sulla barra multifunzione”
A questo punto ritornando nella finestra di Excel verrà visualizzata anche la Scheda Sviluppo nella quale troviamo il pulsante Visual Basic
Nella finestra Visual Basic inserire un nuovo modulo (menù Inserisci – Modulo) e copiare il codice riportato sotto:
Sub GroupSheetsByColor()
Dim Ndx As Long
Dim Ndx2 As Long
For Ndx = 1 To Worksheets.Count – 1
For Ndx2 = Ndx To Worksheets.Count
If Worksheets(Ndx2).Tab.ColorIndex = _
Worksheets(Ndx).Tab.ColorIndex Then
Worksheets(Ndx2).Move after:=Worksheets(Ndx)
End If
Next Ndx2
Next Ndx
End Sub
Chiudere quindi la finestra di Visual Basic e tornare in Excel.
Passiamo quindi all’elenco delle Macro
In Excel 2003 Strumenti -> Macro -> Macro
In Excel 2007 Scheda Sviluppo -> Pulsante Macro
Eseguire quindi la Macro “GroupSheetsByColor”
I fogli presenti nella cartella di Excel saranno ora raggruppati secondo il loro colore.
Se vogliamo rendere disponibile questa funzione in modo tale da trovarla all’avvio di ogni cartella di Excel possiamo creare un componente aggiuntivo come specificato qui.
Tags:
Informatics, ski racer, loves travels, Finland, Norway, mountains, squash, photography, Drones and RC Helicopter
RSS - Articoli
la macro m irestituisce questo errore
https://www.dropbox.com/s/x3eq2waoz4fou1g/immagine.png?m=
@pier: nella riga che ti da l’errore cancella la lineetta che sta dopo a Worksheets.Count e riscrivila usando il meno della tastiera. Vedrai che poi funzionerà.
Buongiorno, è possibile raggruppare più fogli in un unico tab con magari un nome diverso…tipo una cartella. In pratica ho una cartella excell con tanti fogli e vorrei magari raggrupparli in poche tab che si possano aprire in caso di bisogno. Spero di essermi spiegato