Hướng dẫn thao tác ẩn Sheet trong Excel bằng lệnh VBA

Trong bài viết ngày hôm nay, Gitiho sẽ hướng dẫn các bạn thao tác ẩn Sheet trong Excel bằng lệnh VBA. Với thao tác này, các bạn có thể ẩn hoặc bỏ ẩn nhiều Sheet cùng một lúc. Cùng tìm hiểu ngay với chúng mình nhé.

Tuyệt đỉnh VBA - Viết code trong tầm tay

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

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

Ẩn Sheet trong Excel: Lệnh VBA ẩn nhiều Sheet cùng lúc

Đầu tiên, bạn cần xác định các trang tính cần ẩn. Sau đó bạn hãy vào tab Developer > nhóm Code > Visual Basic để mở cửa sổ VBA Excel.

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

Sub Hide_Sheet_Test01() 'Ẩn những Sheet cụ thể
Dim ar As Variant
Dim ws As Variant

'Tạo nhóm các Sheet cần 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 đó, bạn cần quan tâm đến câu lệnh ar=Array("Sheet1", "Sheet2") vì đó là nơi xác định phạm vi cần ẩn khỏi giao diện hiển thị file Excel bao gồm Sheet1 và Sheet2 . Bạn có thể thay đổi các giá trị này dựa trên các yêu cầu ẩn Sheet bằng VBA của mình. Hãy lưu ý viết đúng tên trang tính để áp dụng lệnh một cách chính xác nhé.

Sau khi đã xác định phạm vi các Sheet cần ẩn, bạn sẽ sử dụng vòng lặp For-Next trong VBA Excel để kiểm tra tất cả các Sheet tồn tại trong file Excel. Câu lệnh Worksheets(ws).Visible=xlSheetHidden sẽ tiến hành ẩn Sheet trong Excel đối với tất cả các Sheet trùng tên với phạm vi đã được xác định phía trên.

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

Sub Hide_Sheet_Test02() 'Ẩn tất cả các Sheet chỉ chừa lại Sheet cuối cùng
Dim i As Integer
For i=1 To Worksheets.Count - 1
   Sheets(i).Visible=False
Next i
End sub

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

Hãy tìm hiểu thêm một ứng dụng của thuộc tính .Count trong VBA Excel tại bài viết dưới đây để hiểu hơn về các lệnh VBA bạn có thể viết với thuộc tính này nhé.

Xem thêm: Hướng dẫn cách tìm dòng cuối trong VBA cho dữ liệu bảng Excel

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

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

Sub Unhide_AllSheet() 'Bỏ ẩn tất cả các Sheet
Dim ws As Worksheet
On Error Resume Next 'Bỏ qua các lỗi có thể xảy ra
'Bỏ ẩn các 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 0
End Sub

Tổng kết