tailieunhanh - Lập trình với menus và toolbars

Mục đích: Tạo menu popup khi người dùng Right-Click khi chuột trong vùng làm việc của một worksheet. Giả sử workbook của tôi có một worksheet, thì trong ví dụ của tôi có hai đoạn mã. Đoạn thứ nhất nằm trong Module VBA: PopupMenu và đoạn mã thứ hai nằm trong module worksheet: workhere | Lập trình với menus và toolbars Menu Pop-Up Mục đích Tạo menu popup khi người dùng Right-Click khi chuột trong vùng làm việc của một worksheet. Giả sử workbook của tôi có một worksheet thì trong ví dụ của tôi có hai đoạn mã. Đoạn thứ nhất nằm trong Module VBA PopupMenu và đoạn mã thứ hai nằm trong module worksheet workhere Đây là đoạn mã trong module VBA PopupMenu Code Option Explicit Public Const gc_Title PopUp Menu Demo Public gcBar_RgtClkMenu As CommandBar Muc dich Gọi hàm tạo popup menu người dùng Sub RunMeToGetThingsGoing Set gcBar_RgtClkMenu CreateSubMenu End Sub Hàm tạo popup menu Function CreateSubMenu As CommandBar đặt tên cho popup menu Const lcon_PuName PopUpDemo Tạo các đối tượng cho cho popup menu Dim cb As CommandBar Dim cbc As CommandBarControl Chắc chắn rằng popup menu không tồn tại DeleteCommandBar lcon_PuName Thêm popup menu người dùng cho tập họp collection CommandBars Set cb Name lcon_PuName Position msoBarPopup MenuBar False Temporary False Thêm vào controls Set cbc With cbc .Caption Control 1 .OnAction DummyMessage End With Set cbc With cbc .Caption Control