Menu trong Form

[lulyen]

Tôi vô tình có được 1 file tạo Menu trong Form họ thiết kế từ năm 2006 rồi, nhưng kiến thức về VBA quá kém nên không biết họ làm như thế nào để đuợc như thế, mong các cao thủ giải thích các đoạn Code giúp với!
@ Kính nhờ: Nguyễn Duy Tuân, Lê Văn Duyệt giải thích hộ tôi với (Nếu không dấu nghề)

 

[ndu96081631]

Tôi vô tình có được 1 file tạo Menu trong Form họ thiết kế từ năm 2006 rồi, nhưng kiến thức về VBA quá kém nên không biết họ làm như thế nào để đuợc như thế, mong các cao thủ giải thích các đoạn Code giúp với!
@ Kính nhờ: Nguyễn Duy Tuân, Lê Văn Duyệt giải thích hộ tôi với (Nếu không dấu nghề)

Bạn có thể tham khảo bài này:
http://www.giaiphapexcel.com/forum/showthread.php?2237-Trang-điểm-cho-User-Form&p=14791#post14791
cũng khá đơn giản
Hoặc nếu bạn không có nhu cầu cao thì tôi nghĩ dùng CommandBar Popup là dễ nhất trong các cách
Ví dụ (trên UserForm có 1 Label)

Private Sub UserForm_Initialize()
  On Error Resume Next
  With CommandBars.Add("ufPopup", 5)
    With .Controls.Add(1)
      .Caption = "Menu_1"
      .OnAction = "Test1"
    End With
    With .Controls.Add(1)
      .Caption = "Menu_2"
      .OnAction = "Test2"
    End With
  End With
End Sub

Private Sub Label1_Click()
  CommandBars("ufPopup").ShowPopup
End Sub

Private Sub UserForm_Terminate()
  CommandBars("ufPopup").Delete
End Sub

Code trong Module

Sub Test1()
  MsgBox "Ban dang bam menu 1"
End Sub

Sub Test2()
  MsgBox "Ban dang bam menu 2"
End Sub

Sub ShowForm()
  UserForm1.Show
End Sub

 

[sealand]

Thêm 1 địa chỉ tham khảo nữa
Xem tại đây