Chưa đóng góp được gì cho diễn đàn, nên hôm nay em xin chia sẻ bài viết sau. Chắc là nhiều người cũng biết rồi ạ.
Khi click chuột phải trên cells sẽ hiện ra popup lệnh. Trên menu popup này, nếu muốn thêm command lệnh tùy ý, chúng ta làm như sau:
Chạy code thủ tục AddMenu sẽ cho ra kết quả như sau:
Khi click vào TuhocVBA thì thủ tục Sample sẽ được thực thi.
Nếu muốn xóa command này đi thì cần chạy thủ tục sau:
Khi click chuột phải trên cells sẽ hiện ra popup lệnh. Trên menu popup này, nếu muốn thêm command lệnh tùy ý, chúng ta làm như sau:
Mã:
Sub AddMenu()
Dim Newb
Set Newb = Application.CommandBars("Cell").Controls.Add()
With Newb
.Caption = "TuhocVBA"
.OnAction = "Sample"
.BeginGroup = False
End With
End Sub
Sub Sample()
MsgBox Now
End Sub
Bạn cần đăng nhập để thấy hình ảnh
Khi click vào TuhocVBA thì thủ tục Sample sẽ được thực thi.
Nếu muốn xóa command này đi thì cần chạy thủ tục sau:
Mã:
Sub DelMenu()
Application.CommandBars("Cell").Controls("TuhocVBA").Delete
End Sub