Sisällysluettelo
Seuraava rutiini lajittelee työkirjan arkit aakkosjärjestykseen. Lippua ”Sort_Mode_Descending” voidaan vaihtaa laskevan ja nousevan välillä tarpeen mukaan. Rutiini on tapaus INSENSITIVE.
| 1234567891011121314151617181920212223 | Alalajittelu_arkit ()Dim Sort_Mode_Descending BooleanDim No_of_Sheets As IntegerDim Outer_Loop kokonaislukunaDim Inner_Loop kokonaislukunaNo_of_Sheets = Sheets.Count'Vaihda lippu tarpeen mukaanSort_Mode_Descending = VääräOuter_Loop = 1 - No_of_SheetsInner_Loop = 1 Outer_LoopJos Sort_Mode_Descending = Tosi sittenJos UCase (Sheets (Outer_Loop) .Name)> UCase (Sheets (Inner_Loop) .Name) SittenSheets (Outer_Loop) .Move Before: = Sheets (Inner_Loop)Loppu JosLoppu JosJos Sort_Mode_Descending = False SittenJos UCase (Sheets (Outer_Loop) .Name) <UCase (Sheets (Inner_Loop) .Name) SittenSheets (Outer_Loop) .Move Before: = Sheets (Inner_Loop)Loppu JosLoppu JosSeuraava Inner_LoopSeuraava Outer_Loop |
Voit ladata .XLSM -tiedoston tästä artikkelista napsauttamalla tätä.
