VBA Excel: ordinare i fogli
Usa il VBA per ordinare i fogli di Excel
Chi desidera ordinare i fogli di Excel in senso crescente in base al nome può farlo utilizzando la routine seguente che, a seconda delle necessità, può essere eseguita:
- da un pulsante posizionato:
- sulla barra di accesso rapido
- sulla barra multifunzione
- sul foglio stesso
- al caricamento del file tramite l’evento Private Sub Workbook_Open()
Dim foglio As Worksheet
Dim prec As String
Dim corr As String
Dim sposta As Boolean
Dim primo As Boolean
Dim i As Integer
sposta = True
While sposta = True
primo = True
sposta = False
prec = ""
corr = ""
For Each foglio In Worksheets
If primo Then
corr = LCase(foglio.Name)
primo = False
Else
prec = corr
corr = LCase(foglio.Name)
End If
If prec <> "" Then
If corr < prec Then
sposta = True
foglio.Move Before:=Sheets(prec)
End If
End If
Next
Wend
Se VBA Excel: ordinare i fogli è 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