In questo articolo impareremo a ordinare i fogli in ordine crescente tramite VBA in Microsoft Excel 2010.
Mentre lavori su più fogli, scopri che i fogli non sono disposti correttamente. Si desidera creare rapidamente una macro che ordinerà automaticamente il foglio in ordine crescente ogni volta che viene eseguita la macro.
Per ordinare i fogli in ordine crescente, seguire i passaggi indicati di seguito:
- Premi Alt+F11 per avviare la schermata VB Editor
- Dal menu Inserisci, seleziona Modulo.
- Nel modulo, digitare le righe di codice come segue:
Fogli di ordinamento secondarioInAscendente()
Dim i As Integer, n As Integer, SheetsCounter As Integer
Se ActiveWorkbook non è nulla, esci da Sub
Se ActiveWorkbook.ProtectStructure allora
MsgBox ActiveWorkbook.Name & "è protetto", vbCritical, "Ordina fogli"
Esci Sotto
Finisci se
If MsgBox("Sort Sheets?", vbQuestion + vbYesNo) vbYes Then Exit Sub
Application.EnableCancelKey = xlDisabled
SheetsCounter = Sheets.Count
Per i = 2 a Contafogli
Per n = 1 a Contafogli
Se Fogli(n).Nome > Fogli(i).Nome Allora
Fogli(i).Sposta prima:=Fogli(n)
Finisci se
Successivo n
Avanti io
Fine sottotitolo
- Eseguire la macro dal modulo premendo F5.
In alternativa, premere Alt+F11 e tornare a Excel, assegnare la macro a qualsiasi oggetto Excel come pulsante o icona oppure premere Alt+F8 per selezionare la macro, quindi fare clic su Esegui.
Scoprirai che i fogli sono disposti in ordine alfanumerico.