Turinys
Toliau nurodyta tvarka surūšiuos darbo knygos lapus abėcėlės tvarka. Jei reikia, vėliavą „Sort_Mode_Descending“ galima perjungti iš mažėjančios į didėjančią. Įprasta atvejis yra nejautrus.
| 1234567891011121314151617181920212223 | Antrinis rūšiavimas_lapės ()Dim Sort_Mode_Descending kaip loginisDim Dimensijų_skaičiuoti kaip sveikasis skaičiusDim Outer_Loop As IntegerDim Inner_Loop As IntegerNo_of_Sheets = Sheets.Count„Keisti vėliavą, jei reikiaSort_Mode_Descending = NetiesaOuter_Loop = 1 iki No_of_SheetsInner_Loop = 1 iki Outer_LoopJei Sort_Mode_Descending = Tiesa tadaJei UCase (Skaičiuoklės (Outer_Loop). Pavadinimas)> UCase (Sheets (Inner_Loop). Pavadinimas) TadaSkaičiuoklės (išorinė kilpa). Perkelti anksčiau: = lakštai (vidinė kilpa)Pabaiga JeiPabaiga JeiJei Sort_Mode_Descending = Netiesa TadaJei UCase (skaičiuoklės (išorinė_kilpa). Pavadinimas) <UCase (skaičiuoklės (vidinė_kilpa). Pavadinimas) TadaSkaičiuoklės (išorinė kilpa). Perkelti anksčiau: = lakštai (vidinė kilpa)Pabaiga JeiPabaiga JeiKitas Inner_LoopKitas Outer_Loop |
Norėdami atsisiųsti .XLSM failą iš šio straipsnio, spustelėkite čia.
