Зміст
Наступна процедура буде сортувати аркуші у робочій книзі за алфавітом. Прапор “Sort_Mode_Descending” можна за необхідності перемикати між спадною та висхідною. Порядок дій НЕВІДЧУТИВИЙ.
| 1234567891011121314151617181920212223 | Sub Sort_Sheets ()Сортувати Sort_Mode_Descending як BooleanDim No_of_Sheets As IntegerЗатемнити Outer_Loop як ціле числоDim Inner_Loop як ціле числоNo_of_Sheets = Таблиць.Кількість'Змініть прапор відповідноSort_Mode_Descending = FalseДля Outer_Loop = 1 до No_of_SheetsДля Inner_Loop = 1 до Outer_LoopЯкщо Sort_Mode_Descending = True ТодіЯкщо UCase (Sheets (Outer_Loop) .Name)> UCase (Sheets (Inner_Loop) .Name) ТодіАркуші (Outer_Loop). Перемістити раніше: = Sheets (Inner_Loop)Закінчити ЯкщоЗакінчити ЯкщоЯкщо Sort_Mode_Descending = False ТодіЯкщо UCase (Sheets (Outer_Loop) .Name) <UCase (Sheets (Inner_Loop) .Name) ТодіАркуші (Outer_Loop). Перемістити раніше: = Sheets (Inner_Loop)Закінчити ЯкщоЗакінчити ЯкщоДалі Inner_LoopДалі Outer_Loop |
Щоб завантажити файл .XLSM із цієї статті, натисніть тут.
