Lang L: none (table-of-contents)
Järgmine rutiin sorteerib töövihiku lehed tähestikulises järjekorras. Lippu „Sort_Mode_Descending” saab vastavalt vajadusele vahetada kahaneva ja kasvava vahel. Rutiin on juhtum TUNDLIK.
| 1234567891011121314151617181920212223 | Alamliik_lehed ()Dim Sort_Mode_Descending BooleanDim No_of_Sheets As täisarvDim Outer_Loop täisarvunaDim Inner_Loop täisarvunaNo_of_Sheets = Sheets.Count„Vahetage lipp vastavalt vajaduseleSort_Mode_Descending = ValeOuter_Loop = 1 kuni No_of_SheetsInner_Loop = 1 välisele silmuseleKui Sort_Mode_Descending = Tõene siisKui UCase (Sheets (Outer_Loop) .Name)> UCase (Sheets (Inner_Loop) .Name) SiisArvutustabelid (Outer_Loop). Liiguta enne: = Sheets (Inner_Loop)Lõpp KuiLõpp KuiKui Sort_Mode_Descending = Vale SiisKui UCase (Sheets (Outer_Loop) .Name) <UCase (Sheets (Inner_Loop) .Name) SiisArvutustabelid (Outer_Loop). Liiguta enne: = Sheets (Inner_Loop)Lõpp KuiLõpp KuiJärgmine Inner_LoopJärgmine Outer_Loop |
Sellest artiklist .XLSM -faili allalaadimiseks klõpsake siin.
