Ecco come dare alle vostre tavole un ordine alfabetico
L'ordinamento alfabetico dei dati nelle tue liste non è un problema. Ma come si fa quando si desidera mettere i fogli di lavoro in ordine alfabetico in base ai loro nomi?
L'illustrazione seguente mostra un registro fogli con una serie di fogli di lavoro. Dovrebbero essere ordinati in ordine alfabetico in modo che siano più facili da trovare.
3
Con pochi fogli, puoi eseguire il lavoro manualmente in modo affidabile. Con molti fogli questo diventa rapidamente difficile, dispendioso in termini di tempo e confuso. La seguente macro ti aiuterà ulteriormente:
Sub SortBlaetter ()
Dim Zaehler1 As Integer, Zaehler2 As Integer
Nome fioco come stringa
Nome = FoglioAttivo.Nome
Per Zaehler1 = 1 To Worksheets.Count
Per Zaehler2 = Zaehler1 To Worksheets.Count
Se UCase (Fogli di lavoro (Contatore2) .Nome) <UCase (Fogli di lavoro (Contatore1) .Nome) Allora
Fogli di lavoro (Zaehler2) .Sposta prima: = Fogli di lavoro (Zaehler1)
Finisci se
Contatore successivo2, contatore1
Fogli di lavoro (Nome) .Attiva
Fine sottotitolo
La macro ordina i fogli di lavoro nella cartella di lavoro attiva in ordine alfabetico crescente. La figura seguente mostra l'aspetto della cartella di lavoro di esempio dopo aver avviato la macro:
Suggerimento: se desideri sapere come inserire e avviare macro in Excel, troverai una breve descrizione qui: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros-in-excel-ein.html
