Innehållsförteckning
Följande rutin sorterar arken i en arbetsbok alfabetiskt. Flaggan ”Sort_Mode_Descending” kan växlas mellan fallande och stigande efter behov. Rutinen är INKÄNSLIG.
| 1234567891011121314151617181920212223 | Sub Sort_Sheets ()Dim Sort_Mode_Descending As BooleanDim No_of_Sheets som heltalDim Outer_Loop som heltalDim Inner_Loop Som heltalNo_of_Sheets = Sheets.Count'Ändra flagga vid behovSort_Mode_Descending = FalsktFör Outer_Loop = 1 Till No_of_SheetsFör Inner_Loop = 1 Till Outer_LoopOm Sort_Mode_Descending = True DåIf UCase (Sheets (Outer_Loop) .Name)> UCase (Sheets (Inner_Loop) .Name) ThenSheets (Outer_Loop) .Flyg före: = Sheets (Inner_Loop)Avsluta omAvsluta omOm Sort_Mode_Descending = False DåIf UCase (Sheets (Outer_Loop) .Name) <UCase (Sheets (Inner_Loop) .Name) ThenSheets (Outer_Loop) .Flyg före: = Sheets (Inner_Loop)Avsluta omAvsluta omNästa Inner_LoopNästa yttre_slinga |
För att ladda ner .XLSM -filen från den här artikeln, klicka här.
