Thủ tục ẩn hiện các sheet trừ sheet đầu tiên

Leave a Comment
Chia sẽ thủ tục ẩn hiện các sheet trừ sheet đầu tiên, khi bạn click vào nút bấm, nếu các sheet còn lại trừ sheet đầu tiên mà chưa ẩn thì nó tự động ẩn, còn nếu những sheet trừ sheet đầu tiên mà ẩn thì nó sẽ hiển thị. Để xem cụ thể bài toán, các bạn làm theo các bước dưới đây:

Bước 1: Các bạn copy code dưới đây vào trong module (Module tạo theo hướng dẫn của các bài trước).
1
2
3
4
5
6
7
8
9
10
11
12
Sub AnHienSheet()
   Dim Sh As Worksheet
   Dim I As Long
   'An cac sheet trong sheets tru sheet dau tien
   For Each Sh In ThisWorkbook.Sheets
      I = I + 1
      If I <> 1 Then
         Sh.Visible = Not Sh.Visible
      End If
   Next
End Sub

Bước 2: Các bạn vào môi trường bảng tính, tạo 1 nút bấm và gán Macro bạn vừa tạo vào nút bấm (để tạo và gán macro các bạn xem lại các bài trước), rồi click chuột trái ra ngoài.


Bước 3: Các bạn click chuột vào nút bấm để nhận kết quả.



Bước 4: Sau khi ẩn các sheet trừ sheet đầu tiên, các bạn lại click chuột trái vào nút bấm lần 2 thì sẽ tự động hiển thị lại các sheet.



Để tìm hiểu thêm nhiều hàm và thủ tục trong VBA, các bạn tìm hiểu thêm tại khóa học VBA trong excel cơ bản của công ty. 
Link khóa học: http://bluesofts.net/daotaothuchanh/daotaovbacoban.html

0 nhận xét:

Đăng nhận xét

Được tạo bởi Blogger.