Ngoài việc tổ chức các tab trang tính bằng cách áp dụng màu cho chúng, bạn cũng có thể sắp xếp chúng theo thứ tự bảng chữ cái hoặc chữ số, miễn là bạn đã áp dụng tên tùy chỉnh cho trang tính của mình. Thật không may, việc sắp xếp các tab bảng tính theo thứ tự bảng chữ cái không được tích hợp trong Excel, nhưng bạn có thể thêm macro vào sổ làm việc của mình để cho phép bạn sắp xếp các tab theo thứ tự tăng dần hoặc giảm dần. Chúng tôi sẽ hướng dẫn bạn cách thêm macro có sẵn trên trang web hỗ trợ của Microsoft vào sổ làm việc Excel của bạn sẽ sắp xếp các tab trang tính của bạn.
Sub Sort_Active_Book() Dim i As Integer Dim j As Integer Dim iAnswer As VbMsgBoxResult ' ' Prompt the user as which direction they wish to ' sort the worksheets. ' iAnswer = MsgBox('Sort Sheets in Ascending Order?' & Chr(10) _ & 'Clicking No will sort in Descending Order', _ vbYesNoCancel + vbQuestion + vbDefaultButton1, 'Sort Worksheets') For i = 1 To Sheets.Count For j = 1 To Sheets.Count - 1 ' ' If the answer is Yes, then sort in ascending order. ' If iAnswer = vbYes Then If UCase$(Sheets(j).Name) > UCase$(Sheets(j + 1).Name) Then Sheets(j).Move After:=Sheets(j + 1) End If ' ' If the answer is No, then sort in descending order. ' ElseIf iAnswer = vbNo Then If UCase$(Sheets(j).Name) < UCase$(Sheets(j + 1).Name) Then Sheets(j).Move After:=Sheets(j + 1) End If End If Next j Next i End Sub
Trình soạn thảo VBA tự động đặt tên mỗi mô-đun với một số ở cuối, chẳng hạn như Module1, Module2, v.v. Bạn chỉ có thể chấp nhận tên mặc định của mô đun. Tuy nhiên, nếu bạn dự định thêm các macro khác vào sổ làm việc của mình, bạn nên đổi tên từng mô-đun để bạn biết chúng là gì. Chúng tôi sẽ đổi tên mô-đun của mình để chỉ cho bạn cách thực hiện.
