Nếu bạn có một số lượng lớn trang tính trong sổ làm việc Excel của mình, có thể khó tìm được một trang tính cụ thể. Sắp xếp các tab trang tính của bạn theo thứ tự bảng chữ cái sẽ giúp bạn dễ dàng tìm thấy những gì bạn đang tìm kiếm hơn.
LIÊN QUAN: Cách đổi tên tab trang tính trong Excel
Ngoài việc tổ chức các tab trang tính của bạn bằng cách áp dụng màu sắc cho chúng, bạn cũng có thể sắp xếp chúng theo bảng chữ cái hoặc chữ và số, miễn là bạn đã áp dụng tên tùy chỉnh cho trang tính của mình. Rất tiếc, việc sắp xếp các tab trang tính theo thứ tự bảng chữ cái không được tích hợp sẵn 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ắp xếp các tab trang tính của bạn.
Để bắt đầu, nhấn Alt + F11 để mở trình chỉnh sửa Microsoft Visual Basic for Applications (VBA). Sau đó, đi tới Chèn> Mô-đun.
Sao chép và dán macro sau từ Microsoft vào cửa sổ mô-đun hiển thị.
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 cho mỗi mô-đun với một số ở cuối, chẳng hạn như Mô-đun1, Mô-đun2, v.v. Bạn chỉ cần 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.
Để đổi tên mô-đun, hãy chọn văn bản trong hộp Tên cho mô-đun bên dưới Thuộc tính trong ngăn bên trái.
Nhập tên cho mô-đun vào hộp Tên và nhấn Enter. Lưu ý rằng tên mô-đun không được chứa khoảng trắng.
Tên của mô-đun thay đổi trong danh sách Mô-đun trong Dự án ở ngăn bên trái.
Đóng trình chỉnh sửa VBA bằng cách đi tới Tệp> Đóng và Quay lại Microsoft Excel.
Bây giờ, chúng ta sẽ chạy macro để sắp xếp các tab của chúng ta. Nhấn Alt + F8 để truy cập danh sách macro trên hộp thoại Macro. Chọn macro trong danh sách (trong trường hợp của chúng tôi chỉ có một macro) và nhấp vào “Chạy”.
Hộp thoại sau sẽ hiển thị, cho phép bạn chọn bạn muốn sắp xếp các trang tính của mình theo thứ tự tăng dần hay giảm dần. Chúng tôi muốn sắp xếp chúng theo thứ tự tăng dần, vì vậy chúng tôi nhấp vào “Có”.
Các tab trang tính hiện được sắp xếp theo thứ tự bảng chữ cái.
Macro bạn đã thêm bây giờ là một phần của sổ làm việc của bạn, nhưng khi bạn lưu nó, bạn có thể sẽ thấy hộp thoại sau. Đó là vì bạn đã lưu sổ làm việc của mình dưới dạng tệp .xlsx, đây là định dạng sổ làm việc Excel bình thường không bao gồm macro. Để bao gồm macro trong sổ làm việc của bạn và có thể chạy chúng, bạn phải lưu sổ làm việc của mình dưới dạng sổ làm việc hỗ trợ macro hoặc tệp .xlsm. Để thực hiện việc này, hãy nhấp vào “Không” trên hộp thoại này.
Hộp thoại Lưu dưới dạng hiển thị. Điều hướng đến nơi bạn muốn lưu sổ làm việc hỗ trợ macro, nếu bạn chưa ở trong thư mục đó. Chọn “Excel Macro-Enabled Workbook (* .xlsm)” từ danh sách thả xuống “Lưu dưới dạng loại”.
Nhấp vào để lưu”.
Nếu bạn không lưu sổ làm việc dưới dạng sổ làm việc hỗ trợ macro (tệp .xlsm), macro bạn đã thêm sẽ bị xóa. Bạn có thể muốn xóa phiên bản .xlsx của sổ làm việc để đừng quên sử dụng phiên bản .xlsm của sổ làm việc nếu bạn muốn thêm nhiều tab trang tính và sắp xếp lại chúng bằng macro. Bạn luôn có thể lưu lại sổ làm việc dưới dạng tệp .xlsx nếu bạn không muốn sử dụng macro nữa.
