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.

img1

Per ordinare i fogli in ordine crescente, segui i passaggi sotto indicati:

Premere Alt + F11 per avviare la schermata di VB Editor Dal menu Inserisci, selezionare Modulo.

img2

  • Nel modulo, digita le righe di codice come segue:

Sub SortingSheetsInAscending ()

Dim i As Integer, n As Integer, SheetsCounter As Integer se ActiveWorkbook non è nulla, quindi esci da Sub If ActiveWorkbook.ProtectStructure Quindi MsgBox ActiveWorkbook.Name & “is protected”, vbCritical, “Sort Sheets”

Exit Sub End If If MsgBox (“Sort Sheets?”, VbQuestion + vbYesNo) <> vbYes Then Exit Sub Application.EnableCancelKey = xlDisabled SheetsCounter = Sheets.Count For i = 2 To SheetsCounter For n = 1 To SheetsCounter If Sheets (n) .Nome> Fogli (i) .Nome Quindi Fogli (i). Muovi prima: = Fogli (n)

End If Next n Next i End Sub

img3

  • 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.

img4