Innholdsfortegnelse
Følgende rutine vil sortere arkene i en arbeidsbok alfabetisk. Flagget “Sort_Mode_Descending” kan byttes mellom synkende og stigende etter behov. Rutinen er INKENSITIV.
| 1234567891011121314151617181920212223 | Sub Sort_Sheets ()Dim Sort_Mode_Descending As BooleanDim No_of_Sheets As IntegerDim Outer_Loop som heltallDim Inner_Loop Som HeltallNo_of_Sheets = Sheets.Count'Endre flagg etter behovSort_Mode_Descending = FalskFor Outer_Loop = 1 Til No_of_SheetsFor Inner_Loop = 1 Til Ytre_LoopHvis Sort_Mode_Descending = True DaHvis UCase (Sheets (Outer_Loop) .Name)> UCase (Sheets (Inner_Loop) .Name)Ark (ytre_løkke) .Flytt før: = Ark (indre_løkke)Slutt omSlutt omHvis Sort_Mode_Descending = False DaIf UCase (Sheets (Outer_Loop) .Name) <UCase (Sheets (Inner_Loop) .Name) ThenArk (ytre_løkke) .Flytt før: = Ark (indre_løkke)Slutt omSlutt omNeste Inner_LoopNeste Outer_Loop |
Klikk her for å laste ned .XLSM -filen fra denne artikkelen.
