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 Finland, Norway, mountains, squash, photography, Drones and RC Helicopter – Snapchat: andrea.perotti

Translate »