Unhide Toàn Bộ Sheet Trong Excel

Khi làm việc với một File Excel nhiều Sheet, hẳn đôi lần bạn ẩn một hoặc nhiều Sheet lại để dễ dàng xử lý File. Nhưng nếu ẩn nhiều Sheet quá khi cần Unhide toàn bộ Sheet thì bạn làm thế nào. Ở bài viết này mình giới thiệu với các bạn cách Unhide toàn bộ Sheet một cách nhanh chóng.

Các bạn có thể quan sát ở đây mình có 5 Sheet và được đánh số thứ tự tứ 1 đến 5. 

Giờ mình sẽ ẩn các Sheet từ 1 đến 4 nhé, các bạn có thể Click vào từng Sheet và chọn Hide hoặc có thể giữ phím Ctrl và chọn cách Sheet cần ẩn sau đó chọn Hide.

Các Sheet đã được ẩn hết, hiển thị mỗi Sheet số 5

Giờ nếu muốn hiện Sheet nào thì bạn Click vào Sheet số 5 và chọn Unhide

Sau đó chọn Sheet cần hiện và nhấn OK

Mình chọn hiện Sheet 1.

Cứ như thế bạn thao tác cho các Sheet tiếp theo, có một điều là bạn chỉ có thể làm mỗi lần 1 Sheet mà thôi, không có chọn toàn bộ và hiện một lần được. Nếu nhiều Sheet thì rất mất thời gian.

Do vậy mình sẽ hướng dẫn các bạn hiện một lần toàn bộ Sheet đang ẩn luôn.

Đầu tiên các bạn nhấn Alt + F11 để mở chương trình VBA lên

Chọn Insert - Module

Copy và dán đoạn Code bên dưới vào khung soạn thảo

PHP:

Sub UnhideSheet()
    On Error Resume Next
    Application.ScreenUpdating = False
    Dim Sh As Worksheet
    For Each Sh In ActiveWorkbook.Sheets
        If Not Sh.Visible = xlSheetVisible Then Sh.Visible = xlSheetVisible
    Next
    Application.ScreenUpdating = True
End Sub

Như hình.

Quay trở lại File Excel bạn nhấn Alt + F8 và chọn Run

Các Sheet ẩn đã hiển thị toàn bộ.

Chúc các bạn thành công.

N LinkPro