Khi bạn chọn ẩn trang tính trong sổ làm việc, Excel cho phép bạn ẩn nhiều trang tính bằng một hành động: tất cả những gì bạn cần làm là chọn các trang tính trước khi thực sự thực hiện ẩn. Tuy nhiên, hiện các bảng tính là một câu chuyện khác. Excel chỉ cho phép bạn hiện từng lần một.

Nếu bạn có nhiều trang tính muốn ẩn, điều này có thể rất tẻ nhạt.

Cách duy nhất để giải quyết vấn đề này là sử dụng macro để hiện các trang tính. Macro VBA sau sẽ hiện tất cả các trang tính trong sổ làm việc hiện tại:

Sub UnhideAllSheets()

Dim wsSheet As Worksheet

For Each wsSheet In ActiveWorkbook.Worksheets         wsSheet.Visible = xlSheetVisible     Next wsSheet End Sub

Nếu bạn không muốn hiện tất cả các trang tính cùng một lúc, bạn có thể khiến macro hỏi về từng trang tính bị ẩn và sau đó hiện từng trang mà bạn đồng ý bỏ ẩn. Macro sau sẽ xử lý tác vụ này:

Sub UnhideSomeSheets()

Dim sSheetName As String     Dim sMessage As String     Dim Msgres As VbMsgBoxResult

For Each wsSheet In ActiveWorkbook.Worksheets         If wsSheet.Visible = xlSheetHidden Then             sSheetName = wsSheet.Name             sMessage = "Unhide the following sheet?" _               & vbNewLine & sSheetName             Msgres = MsgBox(sMessage, vbYesNo)

If Msgres = vbYes Then wsSheet.Visible = xlSheetVisible         End If     Next wsSheet End Sub

_Lưu ý: _

Nếu bạn muốn biết cách sử dụng các macro được mô tả trên trang này (hoặc trên bất kỳ trang nào khác trên trang ExcelTips), tôi đã chuẩn bị một trang đặc biệt bao gồm thông tin hữu ích.

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

Mẹo này (2603) áp dụng cho Microsoft Excel 97, 2000, 2002 và 2003. Bạn có thể tìm thấy phiên bản của mẹo này cho giao diện ribbon của Excel (Excel 2007 trở lên) tại đây: