Seguimi sui social
Profilo LinkedIn Profilo Facebook Profilo Twitter Profilo Google+
Home > Archivio > VBA Excel: ordinare i fogli alfabeticamente

VBA Excel: ordinare i fogli alfabeticamente

Ordinare all'apertura del file o meno

Autore: Andrea Pacchiarotti
Website: www.andreapacchiarotti.it
Ultimo aggiornamento: Novembre 2016

Per ordinare i fogli di Excel in senso crescente in base al loro nome utilizzo la routine seguente che, a seconda delle necessità, può essere eseguita:

  1. da un pulsante posto:
    • sulla barra di accesso rapido (devo agire dalle Opzioni di Excel)
    • sulla barra multifunzione (devo agire dalle Opzioni di Excel)
    • sul foglio stesso (devo agire dalla scheda Inserisci, icona Forme o dalla scheda Sviluppo attraverso il pulsante dei Controlli modulo)
  2. al caricamento del file sfruttando l’evento Private Sub Workbook_Open() (devo agire dal VBE - Visual Basic Editor - aprendolo dalla scheda Sviluppo attraverso l'icona Visual Basic o tramite ALT+F11, facendo doppio clic sulla voce Questa_cartella_di_lavoro posta a sinistra e, aprendo il primo elenco a discesa in alto, scegliendo la voce Workbook)

La routine prende i fogli, ne legge il nome e li sposta indietro se il nome ha un valore alfabeticamente minore di quello corrente.


Dim foglio As Worksheet
Dim precedente As String
Dim corrente As String
Dim sposta As Boolean
Dim primo As Boolean
Dim i As Integer
sposta = True
While sposta = True
   primo = True
   sposta = False
   precedente = ""
   corrente = ""
   For Each foglio In Worksheets
      If primo Then
         corrente = LCase(foglio.Name) 
         primo = False
      Else
         precedente = corrente
         corrente = LCase(foglio.Name) 
      End If
      If precedente <> "" Then
         If corrente < precedente Then
            sposta = True
            foglio.Move Before:=Sheets(precedente) 
         End If
      End If
   Next
Wend


Se VBA Excel: ordinare i fogli alfabeticamente è stato utile, seguimi sui Social networks cliccando i pulsanti in alto a destra di questa pagina.

Per restare aggiornato sulla pubblicazione di nuovi articoli su Microsoft Office, Adobe e web in generale iscriviti gratuitamente alla newsletter

Se invece vuoi condividere questo articolo nella tua Rete sociale, puoi utilizzare i bottoni qui sotto:


Lascia un commento