Trong bài viết ngày hôm nay, hmweb.com.vn vẫn hướng dẫn chúng ta thao tác ẩn Sheet vào Excel bằng lệnh VBA. Với thao tác làm việc này, các chúng ta cũng có thể ẩn hoặc bỏ ẩn những Sheet cùng một lúc. Cùng tìm hiểu ngay với bọn chúng mình nhé.

Bạn đang xem: Code ẩn hiện sheet trong excel

Tuyệt đỉnh VBA - Viết code trong khoảng tay

Hướng dẫn ẩn Sheet trong Excel bởi lệnh VBA

Nếu chỉ việc thực hiện tại ẩn Sheet trong Excel với cùng một hoặc hai Sheet, người dùng hoàn toàn hoàn toàn có thể thao tác trên bối cảnh trang tính như thông thường bằng phương pháp nhấn chuột bắt buộc tại tên Sheet với chọnHide. Tuy nhiên, nếu như khách hàng đang thao tác làm việc trên một file Excel đựng nhiều trang tính, gồm lẽ bạn sẽ cần biết cách ẩn Sheet bởi VBA nhằm ẩn các trang tính cùng lúc thay vì chưng ẩn lần lượt từng trang tính.

Ẩn Sheet vào Excel: Lệnh VBA ẩn những Sheet thuộc lúc

Đầu tiên, bạn cần khẳng định các trang tính cần ẩn. Kế tiếp bạn hãy vào tab Developer > team Code > Visual Basic để xuất hiện sổ VBA Excel.

*

Tại đây, các bạn hãy tạo một Module với điền vào đó đoạn mã bên dưới đây:

Sub Hide_Sheet_Test01() "Ẩn đầy đủ Sheet nắm thể

Dim ar As Variant

Dim ws As Variant

"Tạo nhóm các Sheet yêu cầu thực hiện

ar=Array("Sheet1", "Sheet2")

"Lệnh ẩn Sheet

For Each ws In ar

Worksheets(ws).Visible=xlSheetHidden

Next ws

End Sub

Trong đó, các bạn cần cân nhắc câu lệnhar=Array("Sheet1", "Sheet2")vì chính là nơi xác minh phạm vi yêu cầu ẩnkhỏi giao diện hiển thị tệp tin Excelbao tất cả Sheet1 cùng Sheet2 . Chúng ta cũng có thể thay đổi những giá trị này dựa trên những yêu ước ẩn Sheet bởi VBA của mình. Hãy chú ý viết đúng tên trang tính để vận dụng lệnh một cách chính xác nhé.

Sau lúc đã khẳng định phạm vi những Sheet đề xuất ẩn, các bạn sẽ sử dụng vòng lặp For-Next trong VBA Excel để kiểm tra tất cả các Sheet vĩnh cửu trong file Excel. Câu lệnhWorksheets(ws).Visible=xlSheetHidden sẽ triển khai ẩn Sheet vào Excel đối với tất cả các Sheet trùng tên với phạm vi vẫn được xác minh phía trên.

Xem thêm: Những Món Ăn Giảm Cân Nhanh Nhất, 12 Thực Đơn Giảm Cân Nhanh

Trong lệnh, bọn họ đã sử dụng kết cấu vòng lặp For-Next. Để xem thêm về những vòng lặp giúp chạy lệnh VBA Excel liên tục, chúng ta hãy tìm hiểu thêm bài viết dưới đây về môt vòng lặp khác mang tên Do...Loop. Vững chắc chắn kết cấu này để giúp bạn giải quyết và xử lý nhiều yêu thương cầu phức hợp khi xử lý dữ liệu trên Excel đấy.


Ẩn Sheet trong Excel: Lệnh VBA ẩn toàn bộ các Sheet trừ Sheet cuối

Excel gồm một quy tắc: người dùng không thể ẩn cục bộ các trang tính mà tối thiểu yêu cầu hiển thị một Sheet khi mở file. Nguyên tắc này áp dụng cho toàn bộ các tệp tin Excel họ tạo lập cùng sử dụng. Vày đó, chúng ta có thể ẩn tất cả các Sheet không thích hiển thị và giữ lại một Sheet yêu cầu hiển thị. Hãy áp dụng thao tác làm việc ẩn Sheet trong Excel với lệnh VBA Excel như sau:

Sub Hide_Sheet_Test02() "Ẩn tất cả các Sheet chỉ chừa lại Sheet cuối cùngDim i As IntegerFor i=1 to lớn Worksheets.Count - 1 Sheets(i).Visible=FalseNext iEnd sub


Bằng cách áp dụng thuộc tính .Count, lệnh Worksheets.Count - 1 sẽ tiến hành đếm toàn bộ các Sheet sống thọ trong file Excel của doanh nghiệp rồi trừ đi 1 nhằm hiển thị Sheet cuối cùng. Như vậy, bạn đã sở hữu thể chấm dứt thao tác ẩn Sheet bằng VBA.

Hãy tham khảo thêm một ứng dụng của nằm trong tính .Count trong VBA Excel tại nội dung bài viết dưới phía trên để phát âm hơn về những lệnh VBA bạn có thể viết với ở trong tính này nhé.

Hướng dẫn vứt ẩn Sheet trong Excel bằng lệnh VBA

Thay vì ẩn Sheet vào Excel, ngày cả khi chúng ta cần bỏ ẩn tất cả các trang tính, chúng ta hoàn toàn có thể làm được điều này bằng VBA Excel. Chúng mình vẫn chỉ cho bạn lệnh thực hiện thao tác làm việc này nhé.

Sub Unhide_AllSheet() "Bỏ ẩn toàn bộ các SheetDim ws As WorksheetOn Error Resume Next "Bỏ qua các lỗi hoàn toàn có thể xảy ra"Bỏ ẩn những Sheet For Each ws ln Sheets ws.Visible=True Next"Vô hiệu hóa bất kỳ lỗi nào xảy ra On Error Goto 0End Sub
Trong lệnh quăng quật ẩn Sheet bằng VBA trên, bạn sẽ để ý thấy một mục vô hiệu hóa hóa những lỗi xảy ra. Dòng lệnh này đạt thêm để xử lý những lỗi đôi khi có thể xảy ra trong quá trình chạy lệnh trên phạm vi file Excel sẽ mở.