Satura rādītājs
Tālāk norādītā kārtība sakārtos darbgrāmatas lapas alfabētiskā secībā. Karodziņu “Sort_Mode_Descending” pēc vajadzības var pārslēgt starp lejupejošu un augošu. Ikdiena ir gadījums INSENSITIVE.
| 1234567891011121314151617181920212223 | Apakškārtot_tabulas ()Dim Sort_Mode_Descending Kā BūlaDim No_of_Sheets As IntegerDim Outer_Loop kā vesels skaitlisDim Inner_Loop kā vesels skaitlisNo_of_Sheets = Sheets.Count“Mainīt karodziņu pēc vajadzībasSort_Mode_Descending = NepareiziOuter_Loop = 1 līdz No_of_SheetsInner_Loop = 1 līdz Outer_LoopJa Sort_Mode_Descending = True, tadJa UCase (Sheets (Outer_Loop) .Name)> UCase (Sheets (Inner_Loop). Nosaukums)Izklājlapas (ārējā cilpa). Pārvietot pirms: = loksnes (iekšējā cilpa)Beigas JaBeigas JaJa Sort_Mode_Descending = NepareiziJa UCase (Sheets (Outer_Loop) .Name) <UCase (Sheets (Inner_Loop). Nosaukums)Izklājlapas (ārējā cilpa). Pārvietot pirms: = loksnes (iekšējā cilpa)Beigas JaBeigas JaNākamais Inner_LoopNākamā Outer_Loop |
Lai lejupielādētu .XLSM failu no šī raksta, noklikšķiniet šeit.
