Steve có một sổ làm việc trong đó anh ta tạo một tab trang tính mới cho mỗi dự án mà anh ta làm việc. Để quản lý mọi thứ, anh ấy ẩn các tab / dự án đã hoàn thành. Steve hiện có hơn 100 trang tính ẩn. Thường xuyên anh ấy có nhu cầu xem lại một dự án đã hoàn thành. Để thực hiện, Steve chọn hiện các trang tính. Thao tác này sẽ hiển thị hộp thoại Bỏ ẩn chứa tên trang tính ẩn, không theo thứ tự rõ ràng. Để tìm một tab / dự án, anh ta cần cuộn qua hộp thoại rất nhỏ này và tìm tab bên phải. Steve thấy việc này rất tốn công sức và thời gian, vì vậy anh ấy đang tự hỏi liệu có cách nào tốt hơn để tìm và bỏ ẩn trang tính cho một dự án đã hoàn thành.

Một giải pháp cho vấn đề quá phổ biến này là bạn có thể tạo chỉ mục hoặc mục lục cho các trang tính trong sổ làm việc của mình. Bạn thực hiện việc này bằng cách thêm một trang tính mới và sau đó đặt các siêu liên kết trên trang tính đến tất cả các trang tính khác nhau trong sổ làm việc của bạn. Nó có thể bao gồm bất kỳ thông tin nào bạn muốn về các trang tính (ngoài siêu liên kết). Nhấp vào siêu kết nối và trang tính mong muốn của bạn được hiển thị mà không cần phải cuộn qua bất kỳ hộp thoại nào.

Bạn cũng có thể tạo một sổ làm việc thứ hai chỉ chứa các dự án đã hoàn thành của bạn. Khá dễ dàng để di chuyển các trang tính từ sổ làm việc này sang sổ làm việc khác, vì vậy sử dụng hai sổ làm việc (“hoạt động” và “đã hoàn thành”)

sẽ là một tích tắc. Thêm vào đó, bạn sẽ không cần phải ẩn bất kỳ trang tính nào trong sổ làm việc có chứa các dự án đã hoàn thành và bạn có thể đặt chúng theo bất kỳ thứ tự nào mong muốn.

Nếu bạn muốn giữ nguyên sổ làm việc của mình, thì bạn có thể muốn xem xét việc tạo một macro có thể giúp hiển thị các trang tính ẩn của bạn trong tích tắc. Hãy xem xét ví dụ sau:

Sub UnHideWorksheets()

Dim sSheetName As String     Dim w As Worksheet     Dim sTemp As String

sTemp = "Name (or partial) of sheet to show?"

sSheetName = InputBox(sTemp, "Show Hidden Sheet")

If sSheetName > "" Then         sSheetName = LCase(sSheetName)

For Each w In Sheets             w.Tab.ColorIndex = xlColorIndexNone             sTemp = LCase(w.Name)

If Instr(sTemp, sSheetName) Then                 w.Visible = True                 w.Tab.ColorIndex = 6             End If         Next w     End If End Sub

Macro yêu cầu người dùng nhập tên trang tính, sau đó chuyển qua tất cả các trang tính. Nếu nó tìm thấy một kết quả phù hợp, thì trang tính được hiển thị và màu của tab của trang tính được đặt thành màu vàng. Macro thực sự hoạt động với các kết quả phù hợp từng phần, có nghĩa là bạn chỉ có thể nhập một phần của tên trang tính và mọi trang tính có chứa kết hợp từng phần sẽ được hiển thị. Bạn có thể dễ dàng gán macro cho một phím tắt hoặc Thanh công cụ Truy nhập Nhanh của mình để bạn có thể gọi nó hoạt động trong tích tắc.

ExcelTips là nguồn của bạn để đào tạo Microsoft Excel hiệu quả về chi phí.

Mẹo này (13589) áp dụng cho Microsoft Excel 2007, 2010, 2013, 2016, 2019 và Excel trong Office 365.