Mở sheet từ Form

[NH_DK]

A/C xem và thiết kế dùm em code cho form này nhé!
(Câu hỏi cụ thể trong file đính kèm)


File đính kèm

 

[NH_DK]

Anh ơi, giúp em file này với!

 

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

A/C xem và thiết kế dùm em code cho form này nhé!
(Câu hỏi cụ thể trong file đính kèm)


File đính kèm

Bạn cho 2 đoạn sau vào code của form thử nhé

Private Sub UserForm_Initialize()
Application.Visible = False
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Application.Visible = True
End Sub

 

[sealand]

Bạn tham khảo file mình hiệu chỉnh nha

 

[ndu96081631]

Bạn tham khảo file mình hiệu chỉnh nha

Em thấy làm vầy ngon ăn hơn nhiều:
1> Trong UserForm

Dim Btts() As New MyClass
Private Sub UserForm_Initialize()
  Dim Ctl As Control, i As Long
  For Each Ctl In Me.Controls
    If TypeOf Ctl Is CommandButton Then
      ReDim Preserve Btts(i)
      Set Btts(i).CB = Ctl
      i = i + 1
    End If
  Next
End Sub

Private Sub UserForm_Terminate()
  ThisWorkbook.Close (True)
End Sub

2> Trong Module

Sub Auto_Open()
  UserForm1.Show
  Application.Visible = False
End Sub

3> Trong Class Module

Public WithEvents CB As CommandButton
Private Sub CB_Click()
  On Error Resume Next
  If CB.Caption = "Exit" Then
    Unload UserForm1
  Else
    With ActiveSheet
      Sheets(CB.Caption).Visible = True
      Sheets(CB.Caption).Select
      .Visible = 2
    End With
    Application.Visible = True
    UserForm1.Hide
  End If
End Sub

Cho dù có bao nhiêu sheet thì code vẫn nhiêu đó, không thêm không bớt!
Chỉ chú ý 2 điểm:
- Caption của CommandButton link sheet phải đặt trùng với tên sheet
- Nút THOÁT có Caption = "Exit" (có thể thay đổi tùy ý)
- Các nút để hiện Menu (nằm trên sheet) được vẽ bằng Shape sẽ được Assign Macro đến Autpen

 

[sealand]

Xe Taxi chắc sẽ hiệu quả hơn xe mua riêng rồi. Dùng được nó lại còn phải nâng cấp thêm chút nữa, chứ mặt bằng tác giả chỉ tầm tầm thôi.
Nhưng đây cũng là một trong những ví dụ hay để tham khảo trong việc xây dụng những Module dùng chung.