Съдържание
Следващата процедура ще сортира листата в работна книга по азбучен ред. Флагът „Sort_Mode_Descending“ може да се превключва между низходящ и възходящ според нуждите. Рутината е НЕЧУВСТВИТЕЛНА.
| 1234567891011121314151617181920212223 | Sub Sort_Sheets ()Dim Sort_Mode_Descending As 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 файла от тази статия, щракнете тук.
