Sadržaj
Sljedeća rutina sortirat će listove u radnoj knjizi po abecedi. Zastavica “Sort_Mode_Descending” može se prema potrebi prebacivati između silaznog i uzlaznog. Rutina je BESISLJIVA.
| 1234567891011121314151617181920212223 | Podrazvrstavanje_ tablica ()Dim Sort_Mode_Descending As BooleanDim No_of_Sheets As IntegerZatamnjivanje vanjske_ petlje kao cijeli brojDim Inner_Loop kao cijeli brojNo_of_Sheets = Tablica.Broj'Promijenite zastavicu prema potrebiSort_Mode_Descending = NetačnoZa Outer_Loop = 1 Za No_of_ShaetsZa unutarnju petlju = 1 do vanjske petljeAko je Sort_Mode_Descending = True TadaAko je UCase (Sheets (Outer_Loop) .Name)> UCase (Sheets (Inner_Loop) .Name) TadaListovi (vanjska_ petlja). Premjesti prije: = listovi (unutarnja_ petlja)Završi akoZavrši akoAko je Sort_Mode_Descending = False TadaAko je UCase (Sheets (Outer_Loop) .Name) <UCase (Sheets (Inner_Loop) .Name) TadaListovi (vanjska_ petlja). Premjesti prije: = listovi (unutarnja_ petlja)Završi akoZavrši akoSljedeća unutarnja_ petljaSljedeća vanjska_ petlja |
Kliknite ovdje da biste preuzeli .XLSM datoteku iz ovog članka.
