Obsah
Nasledujúca rutina zoradí listy v zošite podľa abecedy. Príznak „Sort_Mode_Descending“ je možné podľa potreby prepínať medzi zostupným a vzostupným. Rutina je prípad Necitlivý.
| 1234567891011121314151617181920212223 | Podtrieda_listov ()Dim Sort_Mode_Descending as BooleanDim No_of_Sheets as IntegerDim Vonkajšia_smyčka ako celé čísloDim Inner_Loop As integerNo_of_Sheets = Sheets.Count„Zmeňte vlajku podľa potrebySort_Mode_Descending = FalsePre Outer_Loop = 1 až No_of_SheetsPre vnútornú slučku = 1 až po vonkajšiu slučkuAk Sort_Mode_Descending = True ThenAk UCase (Tabuľky (VonkajšiaSlučka) .Názov)> UCase (Tabuľky (VnútornáSlučka) .Názov) PotomListy (vonkajšia_smyčka). Presunúť pred: = listy (vnútorná_smyčka)Koniec AkKoniec AkAk Sort_Mode_Descending = False ThenIf UCase (Sheets (Outer_Loop) .Name) <UCase (Sheets (Inner_Loop) .Name) ThenListy (vonkajšia_smyčka). Presunúť pred: = listy (vnútorná_smyčka)Koniec AkKoniec AkNasledujúca vnútorná slučkaNasledujúca vonkajšia_smyčka |
Kliknite sem, ak si chcete stiahnuť súbor .XLSM z tohto článku.
