Tạo list từ data validation để liên kết tới các sheet (1 người xem)

[Blad01]

Mong các bạn giúp đỡ giải quyết vấn đề sau:
- Từ sheet MENU bấm B3 chọn tên của Sheet nào sẽ chuyển sang Sheet đó. Ví dụ: chọn S2 sẽ chuyển sang sheet S2 và ngược lại từ Sheet S2 có thể chuyển tới Sheet bất kỳ.
- Khi chuyển tới sheet nào thì sheet đó hiện, các sheet còn lại sẽ bị ẩn hoặc siêu ẩn. Ví dụ: Từ sheet MENU chuyển tới sheet S1 thì Sheet S1 hiện, các Sheet MENU, S2 bị ẩn hoặc siêu ẩn. Tương tự với các sheet còn lại.

 

[be_09]

Mong các bạn giúp đỡ giải quyết vấn đề sau:
- Từ sheet MENU bấm B3 chọn tên của Sheet nào sẽ chuyển sang Sheet đó. Ví dụ: chọn S2 sẽ chuyển sang sheet S2 và ngược lại từ Sheet S2 có thể chuyển tới Sheet bất kỳ.
- Khi chuyển tới sheet nào thì sheet đó hiện, các sheet còn lại sẽ bị ẩn hoặc siêu ẩn. Ví dụ: Từ sheet MENU chuyển tới sheet S1 thì Sheet S1 hiện, các Sheet MENU, S2 bị ẩn hoặc siêu ẩn. Tương tự với các sheet còn lại.

Góp ý cho bạn:

1/ Nếu tại 1 cell dùng Validation thì chỉ di chuyển đến sheet cần đến chứ không thể làm ẩn các sheet khác được.

2/ Nếu dùng VBA thì cũng phải sử dụng Sheet MENU (lúc nào cũng phải hiện) để di chuyển đến sheet cần đến đồng thời ẩn các sheet khác và từ sheet di chuyển đến quay về Sheet MENU mới di chuyển đến sheet khác.

Còn yêu cầu như bạn thì có lẽ code sẽ phức tạp ra.

 

[Blad01]

Vấn đề em nêu đã có bác làm được rồi ạ. Em đa từng được sử dụng file excel đó nhưng họ đặt pass code nên em chịu ạ. Bác nào cao thủ giúp em với. Em nghĩ vấn đề này cũng có nhiều người quan tâm.

 

[be_09]

Vấn đề em nêu đã có bác làm được rồi ạ. Em đa từng được sử dụng file excel đó nhưng họ đặt pass code nên em chịu ạ. Bác nào cao thủ giúp em với. Em nghĩ vấn đề này cũng có nhiều người quan tâm.

Vậy bạn tải File bài #2 coi giống cái bạn nêu không? đây là Link:

http://www.giaiphapexcel.com/forum/...yle-tạo-chỉ-mục-giữa-các-sheet-rất-đẹp

Còn cái vụ ẩn sheet với Pass thì tính sau.

 

[Blad01]

Vậy bạn tải File bài #2 coi giống cái bạn nêu không? đây là Link:

http://www.giaiphapexcel.com/forum/...yle-tạo-chỉ-mục-giữa-các-sheet-rất-đẹp

Còn cái vụ ẩn sheet với Pass thì tính sau.

Vâng gần như vậy. Vấn đề ẩn, hiện thì em làm được rồi. Nhưng còn vấn đề từ list data validation liên kết tới các sheet khác thì chưa biết làm. Bác nào thêm code giúp em với. Em xin gửi file đã làm ẩn hiện:

 

[giaiphap]

Vâng gần như vậy. Vấn đề ẩn, hiện thì em làm được rồi. Nhưng còn vấn đề từ list data validation liên kết tới các sheet khác thì chưa biết làm. Bác nào thêm code giúp em với. Em xin gửi file đã làm ẩn hiện:

Bạn dùng code này cho sheet Menu.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sh As Worksheet
If Target.Address = "$B$2" Then
   Sheets(Target.Value).Visible = True
   For Each sh In ActiveWorkbook.Worksheets
       If sh.Name <> Target.Value Then sh.Visible = False
   Next
End If
End Sub

 

[Blad01]

Bạn dùng code này cho sheet Menu.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sh As Worksheet
If Target.Address = "$B$2" Then
   Sheets(Target.Value).Visible = True
   For Each sh In ActiveWorkbook.Worksheets
       If sh.Name <> Target.Value Then sh.Visible = False
   Next
End If
End Sub

Cảm ơn bác, code chạy rất tốt. (Xin lỗi đã Spam)