Visualizzazione post con etichetta Ordina fogli. Mostra tutti i post
Visualizzazione post con etichetta Ordina fogli. Mostra tutti i post

mercoledì 18 gennaio 2017

MS Excel: Ordinare i fogli in ordine alfabetico

Chi utilizza file MS Excel con all'interno numerosi fogli può trovare utile avere la possibilità di poterli ordinare in ordine alfabetico. Purtroppo Excel non dispone di una funzione integrata che esegue tale operazione ma a questa mancanza si può facilmente ovviare utilizzando VBA (Visual Basic for Application):
  • Da Excel, aprire l'editor VBA tramite la combinazione di tasti ALT+F11;
  • Cliccare sul menu Inserisci e selezionare la voce Modulo;
    Excel, VBA Inserisci Modulo
    FIG 1 - Excel, VBA Inserisci Modulo
  • Incollare il seguente codice
    Sub OrdinaFogli()
    Dim i As Integer
    Dim j As Integer
    Dim ordinamento
       ordinamento = InputBox("Digitare 1 per ordinare i fogli in modo crescente (dalla A alla Z), 2 per ordinare i fogli in modo 
  •       decrescente (dalla Z alla A):", "Ordina fogli", "1")
       If ordinamento = "" Then
        Exit Sub
       End If
       If IsNumeric(ordinamento) And ordinamento >= 1 And ordinamento <= 2 Then
         For i = 1 To Sheets.Count
          For j = 1 To Sheets.Count - 1
            If ordinamento = 1 Then
              If UCase$(Sheets(j).Name) > UCase$(Sheets(j + 1).Name) Then
                  Sheets(j).Move After:=Sheets(j + 1)
              End If
                 
            ElseIf ordinamento = 2 Then
               If UCase$(Sheets(j).Name) < UCase$(Sheets(j + 1).Name) Then
                    Sheets(j).Move After:=Sheets(j + 1)
               End If
            End If
          Next j
         Next i
         Else
          MsgBox "Il valore inserito non è valido!"
         End If
    
    End Sub
    
    
  • Salvare il progetto (CTRL+S);
  • Chiudere l'editor con la combinazione ALT+Q;

Per richiamare la funzione premere la combinazione ALT+F8, selezionare OrdinaFogli e cliccare sul pulsante Esegui. Nella finestra di dialogo digitare il tipo di ordinamento desiderato:
1 - per ordinare i fogli in modo crescente;
2 - per ordinare i fogli in modo decrescente.
Excel, Esegui funzione
FIG 2 - Excel, Esegui funzione
Indicare il tipo di ordinamento desiderato
FIG 3 - Indicare il tipo di ordinamento desiderato

Cliccando sul link che segue è possibile scaricare un file di testo contenente il codice VBA
DOWNLOAD