Sommario
La seguente routine ordinerà i fogli in una cartella di lavoro in ordine alfabetico. Il flag "Sort_Mode_Descending" può essere commutato tra decrescente e crescente secondo necessità. La routine è case INSENSITIVE.
| 1234567891011121314151617181920212223 | Sotto Sort_Fogli()Dim Sort_Mode_Descending As BooleanDim No_of_Sheets As IntegerDim Outer_Loop As IntegerDim Inner_Loop As IntegerNo_of_Sheets = Sheets.Count"Cambia bandiera come appropriato"Sort_Mode_Descending = FalsePer Outer_Loop = 1 a No_of_SheetsPer Inner_Loop = 1 To Outer_LoopSe Sort_Mode_Descending = True AlloraSe UCase(Sheets(Outer_Loop).Name) > UCase(Sheets(Inner_Loop).Name) AlloraFogli(Outer_Loop).Sposta prima:=Sheets(Inner_Loop)Finisci seFinisci seSe Sort_Mode_Descending = False ThenIf UCase(Sheets(Outer_Loop).Name) < UCase(Sheets(Inner_Loop).Name) ThenFogli(Outer_Loop).Sposta prima:=Sheets(Inner_Loop)Finisci seFinisci seSuccessivo Inner_LoopSuccessivo Outer_Loop |
Per scaricare il file .XLSM da questo articolo, fare clic qui.
