![Se nella cartella di lavoro di Excel è presente un numero elevato di fogli di lavoro, potrebbe essere difficile trovare un foglio di lavoro specifico. Ordinare le schede del foglio di lavoro in ordine alfabetico renderebbe più facile trovare ciò che stai cercando. Se nella cartella di lavoro di Excel è presente un numero elevato di fogli di lavoro, potrebbe essere difficile trovare un foglio di lavoro specifico. Ordinare le schede del foglio di lavoro in ordine alfabetico renderebbe più facile trovare ciò che stai cercando.](https://i.technology-news-hub.com/images/blog/how-to-sort-worksheet-tabs-in-alphabetical-order-in-excel-p.webp)
Oltre ad organizzare le schede dei fogli di lavoro applicando loro dei colori, puoi anche ordinarli in ordine alfabetico o alfanumerico, purché tu abbia applicato nomi personalizzati ai tuoi fogli di lavoro. Sfortunatamente, l'ordinamento alfabetico delle schede del foglio di lavoro non è integrato in Excel, ma puoi aggiungere una macro alla cartella di lavoro che ti consentirà di ordinare le schede in ordine crescente o decrescente. Ti mostreremo come aggiungere una macro disponibile sul sito di supporto di Microsoft alla cartella di lavoro di Excel che ordinerà le schede del foglio di lavoro.
![Per iniziare, premere Alt + F11 per aprire l'editor di Microsoft Visual Basic for Applications (VBA). Quindi, vai su Inserisci> Modulo. Per iniziare, premere Alt + F11 per aprire l'editor di Microsoft Visual Basic for Applications (VBA). Quindi, vai su Inserisci> Modulo.](https://i.technology-news-hub.com/images/blog/how-to-sort-worksheet-tabs-in-alphabetical-order-in-excel-1-p.webp)
![Copia e incolla la seguente macro da Microsoft nella finestra del modulo che viene visualizzata. Copia e incolla la seguente macro da Microsoft nella finestra del modulo che viene visualizzata.](https://i.technology-news-hub.com/images/blog/how-to-sort-worksheet-tabs-in-alphabetical-order-in-excel-2-p.webp)
Sub Sort_Active_Book() Dim i As Integer Dim j As Integer Dim iAnswer As VbMsgBoxResult ' ' Prompt the user as which direction they wish to ' sort the worksheets. ' iAnswer = MsgBox('Sort Sheets in Ascending Order?' & Chr(10) _ & 'Clicking No will sort in Descending Order', _ vbYesNoCancel + vbQuestion + vbDefaultButton1, 'Sort Worksheets') For i = 1 To Sheets.Count For j = 1 To Sheets.Count - 1 ' ' If the answer is Yes, then sort in ascending order. ' If iAnswer = vbYes Then If UCase$(Sheets(j).Name) > UCase$(Sheets(j + 1).Name) Then Sheets(j).Move After:=Sheets(j + 1) End If ' ' If the answer is No, then sort in descending order. ' ElseIf iAnswer = vbNo 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 End Sub
L'editor VBA assegna automaticamente a ciascun modulo un numero alla fine, come Module1, Module2, ecc. Puoi semplicemente accettare il nome predefinito del modulo. Tuttavia, se hai intenzione di aggiungere altre macro alla tua cartella di lavoro, è una buona idea rinominare ogni modulo in modo da sapere cosa sono. Rinomineremo il nostro modulo per mostrarti come.