Kazalo
Naslednja rutina bo razvrstila liste v delovnem zvezku po abecedi. Zastavico »Sort_Mode_Descending« lahko po potrebi preklapljate med padajočo in naraščajočo. Rutina je NEVERJETNA.
| 1234567891011121314151617181920212223 | Podrazvrsti_Sheets ()Zatemni Sort_Mode_Descending As BooleanZatemni No_of_Sheets As IntegerZatemni Outer_Loop kot celo številoZatemni Inner_Loop kot celo številoNo_of_Sheets = Število listov'Spremeni zastavico, kot je ustreznoSort_Mode_Descending = FalseZa Outer_Loop = 1 do štZa Inner_Loop = 1 Za Outer_LoopČe je Sort_Mode_Descending = True PotemČe je UCase (Sheets (Outer_Loop) .Name)> UCase (Sheets (Inner_Loop) .Name) PotemListi (Zunanji_Zank). Premakni se prej: = Listi (Notranji_Zank)Konec ČeKonec ČeČe je Sort_Mode_Descending = False PotemČe je UCase (Sheets (Outer_Loop) .Name) <UCase (Sheets (Inner_Loop) .Name) PotemListi (Zunanji_Zank). Premakni se prej: = Listi (Notranji_Zank)Konec ČeKonec ČeNaslednji Inner_LoopNaslednji Outer_Loop |
Če želite prenesti datoteko .XLSM iz tega članka, kliknite tukaj.
