Cuprins
Următoarea rutină va sorta alfabetic foile dintr-un registru de lucru. Steagul „Sort_Mode_Descending” poate fi comutat între descendent și ascendent, după cum este necesar. Rutina este caz INSENSIBIL.
| 1234567891011121314151617181920212223 | Sub Sort_Sheets ()Dim Sort_Mode_Descending As BooleanAfișează numărul de foi ca întregDim Outer_Loop Ca întregDim Inner_Loop Ca întregNo_of_Sheets = Sheets.Count„Schimbați steagul după cazSort_Mode_Descending = FalsePentru Outer_Loop = 1 To No_of_SheetsPentru Inner_Loop = 1 To Outer_LoopDacă Sort_Mode_Descending = Adevărat atunciDacă UCase (Sheets (Outer_Loop) .Name)> UCase (Sheets (Inner_Loop) .Name) AtunciSheets (Outer_Loop). Mutați înainte: = Sheets (Inner_Loop)End IfEnd IfDacă Sort_Mode_Descending = False atunciDacă UCase (Sheets (Outer_Loop) .Name) <UCase (Sheets (Inner_Loop) .Name) AtunciSheets (Outer_Loop). Mutați înainte: = Sheets (Inner_Loop)End IfEnd IfUrmătorul Inner_LoopUrmătorul Outer_Loop |
Pentru a descărca fișierul .XLSM din acest articol, faceți clic aici.
