Содержание
Следующая процедура сортирует листы в книге по алфавиту. Флаг «Sort_Mode_Descending» может переключаться между нисходящим и восходящим при необходимости. Процедура НЕ ЧУВСТВИТЕЛЬНА регистру.
| 1234567891011121314151617181920212223 | Sub Sort_Sheets ()Dim Sort_Mode_Descending As BooleanDim No_of_Sheets As IntegerDim Outer_Loop как целое числоDim Inner_Loop As IntegerNo_of_Sheets = Sheets.Count'Изменить флаг При необходимостиSort_Mode_Descending = ЛожьДля Outer_Loop = 1 до No_of_SheetsFor Inner_Loop = 1 To Outer_LoopЕсли Sort_Mode_Descending = True, тоЕсли UCase (Sheets (Outer_Loop) .Name)> UCase (Sheets (Inner_Loop) .Name), тоЛисты (Внешний цикл) .Переместить до: = Листы (Внутренний цикл)Конец, еслиКонец, еслиЕсли Sort_Mode_Descending = False, тоЕсли UCase (Sheets (Outer_Loop) .Name) <UCase (Sheets (Inner_Loop) .Name), тоЛисты (Внешний цикл) .Переместить до: = Листы (Внутренний цикл)Конец, еслиКонец, еслиСледующая внутренняя петляСледующий Outer_Loop |
Чтобы загрузить файл .XLSM из этой статьи, щелкните здесь.
