viết dùm em đoạn code ẩn - hiện sheet

[yome]

Chào cả nhà GPE!
Em có file quản lý chấm công. Gio em muốn thiết kế đoạn code để làm ẩn - hiện sheet mình muốn (câu hỏi cụ thể trong file đính kèm). Xin anh chị vui lòng thiết kế dùm em nhé!
Cám ơn anh chị nhiều!

Oh, chết mất em vừa quên ko gửi kèm file. Giờ thì em gửi đây.

 

[Hai Lúa Miền Tây]

Oh, chết mất em vừa quên ko gửi kèm file. Giờ thì em gửi đây.

Bạn tham khảo file đính kèm nhe

 

[TrungChinhs]

Thêm một cách để bạn tham khảo.
Lưu ý: muốn trở vế sheet INFO bạn nhấn vào mũi tên màu xanh tại ô A1. Trường hợp thêm Sheet thì bạn copy 1 sub bất kỳ pate xuống dưới, đổi tên sub và các tên trong nháy kép sang tên của sheet mới. Ví dụ bạn thêm Sheet "ThanhToan" thì bạn thêm sub ThanhToan như sau:

Sub [B][COLOR=Red]ThanhToan[/COLOR][/B]()
 Dim Sh As Worksheet
  Sheets("[B][COLOR=Red]ThanhToan[/COLOR][/B]").Visible = -1
  For Each Sh In Worksheets
   If Sh.Name <> "[B][COLOR=Red]ThanhToan[/COLOR][/B]" Then Sh.Visible = 0
 Next
End Sub

và đừng có quên copy Texbox mũi tên màu xanh ở ô A1 sang sheet mới nha.

 

[Hai Lúa Miền Tây]

Thêm một cách để bạn tham khảo.
Lưu ý: muốn trở vế sheet INFO bạn nhấn vào mũi tên màu xanh tại ô A1. Trường hợp thêm Sheet thì bạn copy 1 sub bất kỳ pate xuống dưới, đổi tên sub và các tên trong nháy kép sang tên của sheet mới. Ví dụ bạn thêm Sheet "ThanhToan" thì bạn thêm sub ThanhToan như sau:

Sub [B][COLOR=red]ThanhToan[/COLOR][/B]()
 Dim Sh As Worksheet
  Sheets("[B][COLOR=red]ThanhToan[/COLOR][/B]").Visible = -1
  For Each Sh In Worksheets
   If Sh.Name <> "[B][COLOR=red]ThanhToan[/COLOR][/B]" Then Sh.Visible = 0
 Next
End Sub

và đừng có quên copy Texbox mũi tên màu xanh ở ô A1 sang sheet mới nha.

Theo em nghĩ không cần dùng dòng lặp đâu anh à.

Đơn giản anh muốn hiện sheet nào thì gọi sheet đó, ngược lại thì cho nó ẩn đi là xong.

-Ẩn sheet anh nên thay thế -1 = xlSheetVeryHidden thì nó hay hơn bởi vì ANH DÙNG "xlSheetVeryHidden" thì ở ngoài bảng tính thì không unhide được.
-Để hiện sheet thay thế 0=xlSheetVisible

 

[loveforht87]

Mình vẫn chưa hiểu làm cái này làm gì nhỉ? Không cần thiết lắm!