Tạo MENU form để liên kiết sheet (2 người xem)

[maiemveanhnhe]

Những gì em hỏi có trong file đính kèm. Mong anh chị giúp đở

 

[ndu96081631]

Những gì em hỏi có trong file đính kèm. Mong anh chị giúp đở

Bạn nói rằng:

Mình có nhiều hình ảnh
Mỗi 1 hình như lại liên kết với 1 sheet. Nếu để sheet MENU có nhiều hình và nhiều liên kết sheet như vậy thì làm cho file có dung lượng lớn và bị giụt màn hình nữa. Vậy mình muốn tạo MENU bằng form để liên kết các sheet lại với nhau. Rất mong nhận được sự giúp đở từ các bác.

Ở đây tôi muốn hỏi LIÊN KẾT nghĩa là gì đây? Bấm nút, nhảy đến sheet chăng?
Mà bạn tạo cái Form nhìn "choáng" quá ---> 100 sheet thì 100 nút sao? Ẹc... Ẹc... không sợ người ta "chóng mặt" à?

 

[canthoq]

Oh. Anh hiểu em quá rồi đó 100 sheet thì 100 cái nút. vậy tính làm sao đây hé anh. Bấm nút thì nhảy qua sheet và cho ẩn luôn, đừng cho em xem Line của anh nha. Cảm ơn anh

 

[maiemveanhnhe]

Oh. Anh hiểu em quá rồi đó 100 sheet thì 100 cái nút. vậy tính làm sao đây hé anh. Bấm nút thì nhảy qua sheet và cho ẩn luôn, đừng cho em xem Line của anh nha. Cảm ơn anh

Wow. cái này mới lạ nè. Em đồng ý với NDU. Anh làm theo file dùm em đi, Em cảm ơn anh nhiều

 

[ndu96081631]

Wow. cái này mới lạ nè. Em đồng ý với NDU. Anh làm theo file dùm em đi, Em cảm ơn anh nhiều

Nếu là tôi, với số lượng sheet nhiều thế tôi sẽ dùng ComboBox cho nó gọn. Tuy nhiên, thích thì chiều
Code chỉ có vầy:
1> Code trong UserForm

Dim Btt() As New MyClass
Private Sub UserForm_Initialize()
  Dim i As Long, Ctl As Control
  For Each Ctl In Me.Frame1.Controls
    ReDim Preserve Btt(i)
    Set Btt(i).CB = Ctl
    i = i + 1
  Next
End Sub

2> Code trong Class (Class có tên là MyClass)

Public WithEvents CB As CommandButton
Private Sub CB_Click()
  On Error Resume Next
  Application.ScreenUpdating = False
  With ActiveSheet
    Sheets(CB.Caption).Visible = True
    Sheets(CB.Caption).Visible.Select
    .Visible = 2
  End With
  Application.ScreenUpdating = True
End Sub

3> Giao diện Form



Toàn bộ các Command Button được vẽ trong Frame1, với Caption trùng với tên sheet. Cứ thêm sheet thì vẽ thêm nút vào Frame1 mà chẳng cần thêm bất cứ code nào cả

 

[maiemveanhnhe]

Rất tuyệt vời, em làm được về bài của anh rồi, nhưng ứng dụng vào bài của em, Ndu trên cả tuyệt vời. Cảm ơn anh rất nhiều, em còn 1 bài nữa, tên lọc data validation đó ở topic khác, anh xem dùm em nha.