Indholdsfortegnelse
Den følgende rutine sorterer arkene i en projektmappe alfabetisk. Flag “Sort_Mode_Descending” kan skiftes mellem faldende og stigende efter behov. Rutinen er ufølsom i tilfælde.
| 1234567891011121314151617181920212223 | Sub Sort_Sheets ()Dim Sort_Mode_Descending som boolskDim No_of_Sheets som heltalDim Outer_Loop som heltalDim Inner_Loop som heltalNo_of_Sheets = Sheets.Count'Skift flag efter behovSort_Mode_Descending = FalskFor Outer_Loop = 1 Til No_of_SheetsFor Inner_Loop = 1 Til Outer_LoopHvis Sort_Mode_Descending = True derefterHvis UCase (Sheets (Outer_Loop) .Name)> UCase (Sheets (Inner_Loop) .Name)Ark (Outer_Loop). Flyt før: = Sheets (Inner_Loop)Afslut HvisAfslut HvisHvis Sort_Mode_Descending = False SåHvis UCase (Sheets (Outer_Loop) .Name) <UCase (Sheets (Inner_Loop) .Name) SåArk (Outer_Loop). Flyt før: = Sheets (Inner_Loop)Afslut HvisAfslut HvisNæste Inner_LoopNæste Outer_Loop |
Klik her for at downloade .XLSM -filen fra denne artikel.
