Cách hiện nhiều sheet cùng 1 lúc khi đã ẩn?

[cacc84]

Chào các bác.
E có 1 file đã ẩn rất nhiều sheet, giờ e muốn cho các sheet đó hiện ra nhưng làm từng sheet 1 thì lâu quá. Có bác nào biết cách làm cho nhiều sheet đã ẩn hiện ra cùng 1 lần không chỉ e với.
Cảm ơn các bác.

 

[Quang_Hải]

Chỉ có thể dùng VBA để ẩn và hiện sheet ra hàng loạt thôi.

 

[cacc84]

Bác quanghai: bác chỉ cách làm chi tiết dùm e với. E chưa làm cái này lần nào cả.
Thanks!

 

[nghiaphuc]

Bác quanghai: bác chỉ cách làm chi tiết dùm e với. E chưa làm cái này lần nào cả.
Thanks!

Bạn mở file Excel lên, nhấn Alt+F11, chọn Insert\Module và dán đoạn code sau vào khung soạn thảo bên phải:

Sub UnhideSheet()
    Dim Ws As Worksheet
    For Each Ws In ThisWorkbook.Sheets
        Ws.Visible = -1
    Next
End Sub

Tiếp theo, nhấn F5 để chạy code.
Nếu code không chạy được thì có nghĩa là bạn chưa Enable macro. Bạn hãy Enable macro trước khi chạy code nhé.
Để Enable macro trên Excel 2003, bạn chọn Tools\Macro\Security, chọn Medium hoặc Low --> khởi động lại Excel.

 

[Quang_Hải]

Bác quanghai: bác chỉ cách làm chi tiết dùm e với. E chưa làm cái này lần nào cả.
Thanks!

Xem file đính kèm nha

 

[cacc84]

Xem file đính kèm nha

Bác ơi, e mở file đính kèm sheet 2, 3 không có dữ liệu gì, sheet Main có bảng chữ Hide, nhưng e ko biết sử dụng như nào cả, mong bác chỉ dùm.

 

[Quang_Hải]

Bác ơi, e mở file đính kèm sheet 2, 3 không có dữ liệu gì, sheet Main có bảng chữ Hide, nhưng e ko biết sử dụng như nào cả, mong bác chỉ dùm.

1. Bạn phải biết xài VBA, nếu chưa biết thì phải tìm trên diễn đàn cách mở chức năng macros lên
2. Không có dư liệu là vì mình đang quan tâm đến chuyên ẩn và hiện sheet mà

 

[cacc84]

Bạn mở file Excel lên, nhấn Alt+F11, chọn Insert\Module và dán đoạn code sau vào khung soạn thảo bên phải:

Sub UnhideSheet()
    Dim Ws As Worksheet
    For Each Ws In ThisWorkbook.Sheets
        Ws.Visible = -1
    Next
End Sub

Tiếp theo, nhấn F5 để chạy code.
Nếu code không chạy được thì có nghĩa là bạn chưa Enable macro. Bạn hãy Enable macro trước khi chạy code nhé.
Để Enable macro trên Excel 2003, bạn chọn Tools\Macro\Security, chọn Medium hoặc Low --> khởi động lại Excel.

Mình đã làm được rồi, cảm ơn bạn nhé.

 

[MasceHuy]

Bác nghiaphuc, bác chỉ em cách tại 1 nút trên thanh công cụ (hoặc phím tắt) để chạy đoạn VBA trên có được không? Làm thế nào để tạo thành addin cho tất cả các file excel??

 

[Hau151978]

Bác nghiaphuc, bác chỉ em cách tại 1 nút trên thanh công cụ (hoặc phím tắt) để chạy đoạn VBA trên có được không? Làm thế nào để tạo thành addin cho tất cả các file excel??

Bạn bấm Alt-F11, trong cửa số Immediate (nếu không thấy thì bấm Ctrl-G) nhập dòng sau vào rồi bấm Enter:

for each s in sheets: s.visible=1: next

 

[bestsolution]

Bác nghiaphuc, bác chỉ em cách tại 1 nút trên thanh công cụ (hoặc phím tắt) để chạy đoạn VBA trên có được không? Làm thế nào để tạo thành addin cho tất cả các file excel??

Nhấn Alt+F11, chọn Insert\Module và dán đoạn code vào.
Để show macros trên thanh công cụ, bạn vào Ẽxcel Options/stick "Show developer tab in the ribbon"
Để tạo 1 nút/icon như 1 phím tắt để chạy macro đó, ngay phía trên cùng màn hình góc trái, có phím sổ xuống ("Customize Access Toolbar") chọn "more commands"/choose command from: bạn sổ xuống chọn macros, sau đó chọn tên macros mà bạn cần tạo icon/click "add", chọn "modify" để chọn icon mà bạn ưa thích. icon sẽ xuất hiện trên thanh công cụ cho bạn bấm nhanh rồi.
Thân!