Hiện và Ẩn những Sheet cần ẩn (1 người xem)

[xuanquy1188]

Nhờ các bạn chỉnh sửa giúp mình với, như file mình tham khảo của bác ndu và đã đính kèm. Bây h mình bấm Hide All, nhưng chỉ muốn ẩn từ Sheet thứ 5 đến Sheet cuối cùng, tức là chỉ ẩn từ T05 đến T08 thôi thì phải sửa code sao ạ?

Khi bâm Show All thì hiện lại các Sheet vừa ẩn. Cám ơn các bạn.

 

[phulien1902]

Nhờ các bạn chỉnh sửa giúp mình với, như file mình tham khảo của bác ndu và đã đính kèm. Bây h mình bấm Hide All, nhưng chỉ muốn ẩn từ Sheet thứ 5 đến Sheet cuối cùng, tức là chỉ ẩn từ T05 đến T08 thôi thì phải sửa code sao ạ?

Khi bâm Show All thì hiện lại các Sheet vừa ẩn. Cám ơn các bạn.

Bạn tìm đến dòng:

If Sh.Name <> "Trang ch" & ChrW(7911) then

Và thay bằng:

If Sh.Name <> "Trang ch" & ChrW(7911) And Sh.Name <> "T01" And Sh.Name <> "T02" .... Then

 

[xuanquy1188]

Hi, mình làm được rồi cám ơn bạn nhé.

 

[xuanquy1188]

Nhờ các bạn giúp, mình đã tham khảo File của bác ndu nhưng khi áp dụng vào file của mình thì không chạy được.

Mình muốn khi bám SHOW ALL thì nó hiện tất cả các Sheet ẩn. Khi bấm HIDE ALL thì nó ẩn hết các Sheet từ Sheet 'TN' đến Sheet cuối cùng, tức là ẩn hết tất cả các phòng. Và giữ lại các Sheet khác tính từ DM Phòng đến Sheet TK Thang.

Các bạn sửa giúp mình với. Cám ơn tất cả nhiều ạ.

 

[giaiphap]

Bạn muốn người khác giúp mà đặt mật khẩu VBA Project là thấy không thiện cảm rồi.

 

[xuanquy1188]

Thành thật xin lỗi, mật khẩu là 8477 hoặc các bạn tải file này mình đã tháo mật khẩu.

Cảm ơn.

 

[giaiphap]

Vậy bạn xem thử cái này đúng ý bạn chưa.

 

[xuanquy1188]

Mình chuyển code qua bản chính thì nó báo lỗi, mặc dù bản chính các sheet y chang bản mình update lên đây.



Với lại bạn sửa giúp mình làm sao khi Show hay Hiden nó vẫn nằm ở Sheet DM Phòng không có nhảy đi xuống Sheet cuối như File trên.

Cám ơn ạ.

 

[giaiphap]

Mình chuyển code qua bản chính thì nó báo lỗi, mặc dù bản chính các sheet y chang bản mình update lên đây.

Với lại bạn sửa giúp mình làm sao khi Show hay Hiden nó vẫn nằm ở Sheet DM Phòng không có nhảy đi xuống Sheet cuối như File trên.

Cám ơn ạ.

Bạn sửa lại như chổ màu đỏ là được, chổ màu đỏ là tên Sheet, chổ màu xanh là tên đối tượng Shape (Nút lệnh Show All) có trong sheet, khi copy code sang sheet khác thì nhớ sửa 2 chổ đó là được.

Sub ShowAllShs()
Application.ScreenUpdating = False
Dim M(), I As Integer
M = Array("TN", "QH", "HUE", "Bien", "MD", "MT", "MH", "MX", "HK", "CA", "BT", "CP", "VT", "NB", "NEP", "ST", "LT", "DPCA", "VN", "TT")
With Sheets("[COLOR=#ff0000][B]DM phòng[/B][/COLOR]").Shapes.Range(Array("[COLOR=#0000ff][B]Rounded Rectangle 46[/B][/COLOR]")).TextFrame2.TextRange.Characters
    .Text = IIf(.Text = "SHOW ALL", "HIDE ALL", "SHOW ALL")
End With
For I = 0 To 19
    Sheets(M(I)).Visible = Not Sheets(M(I)).Visible
Next I
  Application.ScreenUpdating = True
End Sub

Còn bạn nói nó nhảy xuống sheet cuối cùng khi show hay hide là sau bạn, khi bạn nháy nút nó vẫn nằm ở sheet cũ mà làm gì có chuyện tự nhảy qua sheet khác.

 

[xuanquy1188]

Mình sửa theo ý mình được rồi, để mình thử code bạn xem. nếu tốt hơn mình thay thế. Cám ơn bạn.