Làm cách nào để sắp xếp các tab trang tính theo màu trong Excel?
Ví dụ: để dễ dàng xử lý và quản lý một sổ làm việc có quá nhiều trang tính, bạn có thể thêm màu tab vào tab trang tính liên quan, sau đó bạn có thể dễ dàng sắp xếp và xác định các tab trang tính theo màu của chúng trong Excel. Bài viết này sẽ chỉ cho bạn cách nhanh chóng bạn có thể sắp xếp các tab trang tính theo màu trong Excel như sau:
Sắp xếp các tab trang tính theo màu với mã VBA
Sắp xếp các tab trang tính theo màu với Kutools cho Excel
Sắp xếp các tab trang tính theo màu với mã VBA
Sử dụng mã VBA sau, bạn có thể sắp xếp các tab theo màu sắc. Vui lòng làm như sau:
1. nhấp chuột Nhà phát triển > Visual Basic, Một mới Microsoft Visual Basic cho các ứng dụng cửa sổ sẽ được hiển thị, nhấp vào Chèn > Mô-đunvà nhập mã sau vào Mô-đun:
VBA: Sắp xếp trang tính theo màu sắc.
Sub SortWorkBookByColor()
'Updateby20140624
Dim xArray1() As Long
Dim xArray2() As String
Dim n As Integer
Application.ScreenUpdating = False
If Val(Application.Version) >= 10 Then
For i = 1 To Application.ActiveWorkbook.Worksheets.Count
If Application.ActiveWorkbook.Worksheets(i).Visible = -1 Then
n = n + 1
ReDim Preserve xArray1(1 To n)
ReDim Preserve xArray2(1 To n)
xArray1(n) = Application.ActiveWorkbook.Worksheets(i).Tab.Color
xArray2(n) = Application.ActiveWorkbook.Worksheets(i).Name
End If
Next
For i = 1 To n
For j = i To n
If xArray1(j) < xArray1(i) Then
temp = xArray2(i)
xArray2(i) = xArray2(j)
xArray2(j) = temp
temp = xArray1(i)
xArray1(i) = xArray1(j)
xArray1(j) = temp
End If
Next
Next
For i = n To 1 Step -1
Application.ActiveWorkbook.Worksheets(CStr(xArray2(i))).Move after:=Application.ActiveWorkbook.Worksheets(Application.ActiveWorkbook.Worksheets.Count)
Next
End If
Application.ScreenUpdating = True
End Sub
2. Sau đó nhấn vào để thực thi mã. Và tất cả các tab trang tính đã được sắp xếp theo màu sắc. Xem ảnh chụp màn hình:
Sắp xếp các tab trang tính theo màu với Kutools cho Excel
Với Sắp xếp trang tính of Kutools cho Excel, bạn không chỉ có thể sắp xếp các tab trang tính theo màu sắc mà còn có thể nhanh chóng sắp xếp các tab trang tính theo Alpha hoặc Alpha Numeric.
Kutools cho Excel: với hơn 300 bổ trợ Excel tiện dụng, dùng thử miễn phí không giới hạn trong 30 ngày. Lấy nó ngay.
Nếu bạn đã cài đặt Kutools cho Excel, bạn có thể sắp xếp các tab trang tính theo các bước sau:
1. nhấp chuột Doanh nghiệp > Công cụ trang tính > Sắp xếp trang tính, xem ảnh chụp màn hình:
2. bên trong Sắp xếp trang tính hộp thoại, nhấn Sắp xếp màu sắc , bạn sẽ thấy thứ tự tab mới trong ngăn Thứ tự tab trang tính mới. Xem ảnh chụp màn hình:
3. Và sau đó nhấp vào OK để sắp xếp các tab.
Kutools cho Excel's Sắp xếp trang tính công cụ có thể nhanh chóng sắp xếp lại tất cả các trang tính trong sổ làm việc đang hoạt động. Nó hỗ trợ một số kiểu sắp xếp, bao gồm Sắp xếp Alpha, Sắp xếp số Alpha, Sắp xếp màu sắc và Đảo ngược. Ngoài ra, bạn cũng có thể di chuyển lên / xuống trang tính và đặt lại việc sắp xếp. Bấm để biết thêm về tiện ích này.
Bài viết liên quan:
Sắp xếp trang tính theo thứ tự bảng chữ cái / chữ và số trong Excel
Công cụ năng suất văn phòng tốt nhất
Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian. Bấm vào đây để có được tính năng bạn cần nhất...
Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều
- Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
- Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
- Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!