Mục lục
Quy trình sau đây sẽ sắp xếp các trang tính trong sổ làm việc theo thứ tự bảng chữ cái. Cờ “Sort_Mode_Descending” có thể được chuyển đổi giữa giảm dần và tăng dần theo yêu cầu. Quy trình này là INSENSITIVE.
| 1234567891011121314151617181920212223 | Sub Sort_Sheets ()Dim Sort_Mode_Descending As BooleanDim No_of_Sheets dưới dạng số nguyênDim Outer_Loop dưới dạng số nguyênDim Inner_Loop dưới dạng số nguyênNo_of_Sheets = Sheets.Count'Thay đổi cờ khi thích hợpSort_Mode_Descending = SaiFor Outer_Loop = 1 To No_of_SheetsĐối với Inner_Loop = 1 Đến Outer_LoopIf Sort_Mode_Descending = True ThìNếu UCase (Trang tính (Outer_Loop) .Name)> UCase (Trang tính (Inner_Loop) .Name) ThìSheets (Outer_Loop) .Move Before: = Sheets (Inner_Loop)Kết thúc nếuKết thúc nếuIf Sort_Mode_Descending = False ThìNếu UCase (Trang tính (Outer_Loop) .Name) <UCase (Trang tính (Bên trong) .Name) ThìSheets (Outer_Loop) .Move Before: = Sheets (Inner_Loop)Kết thúc nếuKết thúc nếuInner_Loop tiếp theoOuter_Loop tiếp theo |
Để tải xuống tệp .XLSM từ bài viết này, hãy nhấp vào đây.
