Nội dung:
Trên UserForm, chúng ta click chuột phải và hiển thị ra menu popup, trên đó ta lựa chọn macro để thực thi.
Xem thêm video ở dưới để biết thêm chi tiết.
Code:
Giả sử trên UserForm chúng ta có một listbox, trên đó tôi click chuột phải vào listbox và popup hiển thị ra.
1. Như vậy đối với UserForm, bắt đầu sự kiện Initialize (khởi động Userform), tôi sẽ tiến hành định nghĩa Menu popup.
2. Đối với Listbox sự kiện chuột phải click, tôi cho hiển thị menu popup.
Cụ thể:
Trên UserForm tôi có code như sau:
Trên Module1 tôi có code như sau:
Thành quả sẽ được như sau:
Trên UserForm, chúng ta click chuột phải và hiển thị ra menu popup, trên đó ta lựa chọn macro để thực thi.
Xem thêm video ở dưới để biết thêm chi tiết.
Code:
Giả sử trên UserForm chúng ta có một listbox, trên đó tôi click chuột phải vào listbox và popup hiển thị ra.
1. Như vậy đối với UserForm, bắt đầu sự kiện Initialize (khởi động Userform), tôi sẽ tiến hành định nghĩa Menu popup.
2. Đối với Listbox sự kiện chuột phải click, tôi cho hiển thị menu popup.
Cụ thể:
Trên UserForm tôi có code như sau:
Mã:
Dim myMenu
Private Sub UserForm_Initialize()
Set myMenu = Application.CommandBars.Add(Position:=msoBarPopup, Temporary:=True)
With myMenu
With .Controls.Add
.Caption = "Macro1"
.OnAction = "Now_thv"
.FaceId = 125
End With
With .Controls.Add
.Caption = "Macro2"
.OnAction = "ShowUserName"
.FaceId = 607
End With
End With
End Sub
Private Sub ListBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 2 Then myMenu.ShowPopup
End Sub
Mã:
Sub ShowUserName()
MsgBox "tuhocvba.net"
End Sub
Sub Now_thv()
MsgBox Day(Now())
End Sub
Bạn cần đăng nhập để thấy đa phương tiện