Obsah
Následující rutina seřadí listy v sešitu podle abecedy. Příznak „Sort_Mode_Descending“ lze podle potřeby přepínat mezi sestupně a vzestupně. Rutina je případ Necitlivý.
| 1234567891011121314151617181920212223 | Podtřídy_listy ()Dim Sort_Mode_Descending as BooleanDim No_of_Sheets As IntegerDim Vnější_Smyčka jako celé čísloDim Inner_Loop As IntegerNo_of_Sheets = Sheets.Count„Podle potřeby změňte vlajkuSort_Mode_Descending = FalsePro Outer_Loop = 1 až No_of_SheetsFor Inner_Loop = 1 To Outer_LoopPokud Sort_Mode_Descending = True ThenPokud UCase (Sheets (Outer_Loop) .Name)> UCase (Sheets (Inner_Loop) .Name) ThenListy (Outer_Loop). Přesunout před: = Listy (Inner_Loop)Konec IfKonec IfPokud Sort_Mode_Descending = False ThenIf UCase (Sheets (Outer_Loop) .Name) <UCase (Sheets (Inner_Loop) .Name) ThenListy (Outer_Loop). Přesunout před: = Listy (Inner_Loop)Konec IfKonec IfDalší vnitřní smyčkaDalší Outer_Loop |
Chcete -li stáhnout soubor .XLSM z tohoto článku, klikněte sem.
