Giúp mình lấy sheet bi ẩn trong mục lục tự tạo (3 người xem)

[ngocngocpham]

Các bạn giúp mình với vừa rồi mình có tạo mục lục trên sheet1 với tên gọi CK1, CK2, CK3, CK4,....Tương ứng với các sheet2, sheet3,....
Và sau đó mình ấn đi các sheet này chỉ còn lại mổi một sheet1 chứa mục lục. khi mình muốn dữ liệu của các sheet hiện ra thì không được. Các bạn giúp với. Cảm ơn sự quan tâm!

 

[khoavu87]

Các bạn giúp mình với vừa rồi mình có tạo mục lục trên sheet1 với tên gọi CK1, CK2, CK3, CK4,....Tương ứng với các sheet2, sheet3,....
Và sau đó mình ấn đi các sheet này chỉ còn lại mổi một sheet1 chứa mục lục. khi mình muốn dữ liệu của các sheet hiện ra thì không được. Các bạn giúp với. Cảm ơn sự quan tâm!

Sub anhien()
'Xem đoạn này xem rồi ứng dụng nhé
    Sheets("Sheet2").Visible = 0
    Sheets("Sheet3").Visible = 2
 Sheets("Sheet2").Visible = -1
    Sheets("Sheet3").Visible = -1
End Sub

tham khảo cái trên xem

 

[ngocngocpham]

Cảm ơn bạn! Nhưng mình dốt code lắm. Thôi thì mình gửi file bạn giải quyết giùm. Thanks

 

[bebo021999]

Cảm ơn bạn! Nhưng mình dốt code lắm. Thôi thì mình gửi file bạn giải quyết giùm. Thanks

Bạn nhấn Alt-F11, xuống phần thuộc tính Visible của từng sheet sửa lại là OK thôi.

 

[sealand]

Bạn dùng Code sau cũng ổn, code này đặt ở vùng code của sheet Mục lục:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim ShName
ShName = Left(Target.SubAddress, InStr(1, Target.SubAddress, "!") - 1)
Worksheets(ShName).Visible = -1
Target.Follow
End Sub

 

[ngocngocpham]

ý của mình là không càn sửa thuộc tính sheetvisible chỉ cần nhấn chuột vào cái mục lục trên sheet thiết kế (file đính kèm) là link tới shhet cần tìm mà không cần hiện trên thanh cuộn như bạn nói. Cảm ơn bạn đạ chia sẽ.

 

[sealand]

Thế thì nên đơn giản vấn đề đi, thử xem sao

 

[ngocngocpham]

Thế thì nên đơn giản vấn đề đi, thử xem sao

Đúng là theo yêu cầu của mình rồi. Bạn có thể nói rõ hơn nữa được không, mình thử làm lại nhưng mù tịt.

 

[sealand]

Các bước cụ thể:

1/ Tạo Hypelink bình thường bằng tay 1 lần thôi không cần thiết phải seset lại. Hoat động bình thường với điều kiện không ẩn sheet. Nếu lỗi ta có thể Edit được

2/Dùng code sau đặt ở vùng code của sheet TK. Tác dụng mỗi khi kich Hypelink nó sẽ hiện sheet liên quan. Đồng thời di chuyển theo lệnh Follow:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim ShName
On Error Resume Next
ShName = Left(Target.SubAddress, InStr(1, Target.SubAddress, "!") - 1)
Worksheets(ShName).Visible = -1
Target.Follow NewWindow:=True
End Sub

3/Dùng code sau đặt ở vùng code của ThisWorkbook để mối khi thoát các sheet nếu không phải TK thi ẩn nó đi

Private Sub Workbook_SheetDeactivate(ByVal sh As Object)
If sh.Name = Sheet1.Name Then Exit Sub
sh.Visible = 0
End Sub

 

[ngocngocpham]

Thế thì nên đơn giản vấn đề đi, thử xem sao

Mình làm được rồi SeaLand ơi. Nhưng còn vướn ở chổ là khi thay đổi tên của sheet thì tên mục lục nó thay đổi luôn bạn chỉ mình cách làm cho nó không thay đổi.

 

[sealand]

Mình dùng Link cố định đâu có thay đổi, còn dùng tên sheet tiếng Việt như bạn hay bị lỗi font trong code lắm. Tốt nhất ta gõ dòng hiển thị sau đó ad link thì tốt hơn.

Việc Hyperlink cũng như Code nó không tự cập nhật như công thức được, nên bạn phải Edit bằng tay thôi.

 

[nmhung49]

Thế thì nên đơn giản vấn đề đi, thử xem sao

Hình như đoạn code nó bị hơi chậm tại em thử thì thấy nó chạy chậm lắm, mà sao mình chỉ link được lần đầu lần 2 sao nó cứng đơ vậy anh Sealand