Nội Dung Bài Viết

Excel mặc định chỉ cho phép ẩn/hiện từng sheet một, gây bất tiện khi làm việc với file nhiều sheet. Bài viết này sẽ hướng dẫn bạn cách tạo lệnh VBA để ẩn/hiện nhiều sheet cùng lúc, giúp thao tác trong Excel hiệu quả hơn.

Trong Excel, việc ẩn và bỏ ẩn sheet chỉ có thể thực hiện với từng sheet, không có tính năng ẩn / bỏ ẩn đồng thời nhiều sheet. Việc này khiến chúng ta thao tác với những Workbook có nhiều sheet, thường xuyên phải ẩn / bỏ ẩn sheet thì sẽ gặp nhiều sự bất tiện. Trong bài viết này, Thủ Thuật sẽ hướng dẫn cho bạn cách để có thể tạo ra những lệnh có thể ẩn / bỏ ẩn cùng lúc nhiều sheet. Chúng ta cùng tìm hiểu những ví dụ sau:

Hiện Tất Cả Sheet trong Excel

Sử dụng vòng lặp For - Next để duyệt qua tất cả sheet trong workbook và đặt thuộc tính Visible là True để hiển thị chúng. Việc tích hợp xử lý lỗi giúp ngăn chặn các lỗi phát sinh trong quá trình thực hiện.

Sub UnhideAllSheets()
    On Error GoTo ErrorHandler
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        ws.Visible = True
    Next ws
    Exit Sub

ErrorHandler:
    MsgBox "Đã xảy ra lỗi: " & Err.Description
End Sub

Ẩn Các Sheet Cụ Thể trong Excel

Đoạn mã sau sẽ ẩn Sheet1 và Sheet2. Bạn có thể thay đổi tên sheet để ẩn các sheet khác theo nhu cầu.

Sub HideSpecificSheets()
    On Error GoTo ErrorHandler
    Worksheets("Sheet1").Visible = xlSheetHidden
    Worksheets("Sheet2").Visible = xlSheetHidden
    Exit Sub
ErrorHandler:
    MsgBox "Đã xảy ra lỗi: " & Err.Description
End Sub

Ẩn sheet trong Excel

Để hiện lại các sheet này, chỉ cần thay xlSheetHidden bằng xlSheetVisible.

Sub UnhideSpecificSheets()
On Error GoTo ErrorHandler
    Worksheets("Sheet1").Visible = xlSheetVisible
    Worksheets("Sheet2").Visible = xlSheetVisible

Exit Sub
ErrorHandler:
    MsgBox "Đã xảy ra lỗi: " & Err.Description

End Sub

Ẩn Tất Cả Sheet Trừ Sheet Cuối Cùng

Lưu ý: Bạn không thể ẩn tất cả sheet trong Excel, ít nhất phải có một sheet hiển thị. Đoạn mã sau sẽ ẩn tất cả sheet trừ sheet cuối cùng.


Sub HideAllExceptLastSheet()
    On Error GoTo ErrorHandler
    Dim i As Integer
    For i = 1 To Worksheets.Count - 1
        Worksheets(i).Visible = xlSheetHidden
    Next i
    Exit Sub

ErrorHandler:
    MsgBox "Đã xảy ra lỗi: " & Err.Description
End Sub

Ẩn sheet trong Excel

Worksheets.Count - 1 đếm tổng số sheet và trừ đi 1 để giữ lại sheet cuối cùng.

Xem thêm: Hướng Dẫn Tạo Mẫu Bảng Chấm Công Làm Thêm Giờ Theo Thông Tư 200 Trên Excel

Kết Luận

Qua các ví dụ trên, việc quản lý ẩn/hiện nhiều sheet cùng lúc trong Excel trở nên dễ dàng hơn với VBA. Hy vọng bài viết này hữu ích cho bạn trong việc tối ưu hóa công việc với Excel. Hãy tìm hiểu thêm các thủ thuật Excel khác trên website Thủ Thuật để nâng cao kỹ năng của bạn.

Đánh Giá Bài Viết