TAILIEUCHUNG - Tạo menu popup trong EXCEL

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: Option Explicit Public Const gc_Title = "PopUp Menu Demo" Public gcBar_RgtClkMenu As CommandBar '' *************************************************************************** '' Mục đích : Gọi hàm để tạo popup menu người dùng '' Sub RunMeToGetThingsGoing() Set gcBar_RgtClkMenu = CreateSubMenu End Sub '' *************************************************************************** ''. | Tạo menu popup trong EXCEL 1I Control 1 Control 2 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 Option Explicit Public Const gc_Title PopUp Menu Demo Public gcBar_RgtClkMenu As CommandBar Mục đích 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 chopopup menu Const lcon_PuName PopUpDemo Tạo các đối tượng 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 thử một số controls Set cbc With cbc .Caption Control 1 .OnAction DummyMessage End With Set cbc With cbc .Caption Control 2 .OnAction DummyMessage End With Set CreateSubMenu cb End Function Mục đích Kiểm tra nếu command bar có tên menuName Nếu nó tồn tại thì xóa đi Sub DeleteCommandBar menuName Dim mb For Each mb In CommandBars If menuName Then CommandBars menuName .Delete End If Next End Sub Sub DummyMessage MsgBox Hello vbInformation vbOKOnly gc_Title End Sub Đây là đoạn mã trong worksheet module workhere Option Explicit Mục đích Nó sẽ được kích hoạt khi người dùng right click Private Sub Worksheet_BeforeRightClick ByVal Target As Cancel As Boolean On Error GoTo Worksheet_BeforeRightClick_Error Hiện popup menu người dùng Worksheet_BeforeRightClick_Resume Nhằm ngăn chặn popup menu mặc định của Excel Cancel True Thoát khỏi thủ tục Exit Sub Worksheet_BeforeRightClick_Error Nếu macro khởi tạo chưa chạy Hỏi

• Kỹ thuật lập trình
• Kỹ thuật lập trình
• Phần cứng
• Công nghệ thông tin
• Tin học
• Quản trị mạng
• kỹ thuật máy tính C
• kỹ thuật lập trình C
• giáo trình kỹ thuật lập trình C
• bài tập kỹ thuật lập trình C
• tài liệu kỹ thuật lập trình C
• chuyên ngành kỹ thuật lập trình
• Bài tập kỹ thuật lập trình
• Tài liệu kỹ thuật lập trình
• Bài giảng kỹ thuật lập trình
• Ưng dụng kỹ thuật lập trình
• Ngôn ngữ C
• kỹ thuật máy tính
• môn kỹ thuật lập trình
• ôn tập kỹ thuật lập trình
• cách học kỹ thuật lập trình
• kiến thức kỹ thuật lập trình
• học môn kỹ thuật lập trình
• Đề thi Kỹ thuật lập trình cơ bản
• Câu hỏi Kỹ thuật lập trình cơ bản
• Luyện thi Kỹ thuật lập trình cơ bản
• Ôn thi Kỹ thuật lập trình cơ bản
• Bài thi Kỹ thuật lập trình cơ bản
• Tài liệu Kỹ thuật lập trình cơ bản
• giáo trình kỹ thuật lập trình
• thủ thuật lập trình
• lập trình căn bản
• kỹ thuật phần mềm
• chương trình lập trình
• giáo trình lập trình
• lập trình hướng đối tượng
• tài liệu lập trình
• chuyên ngành lập trình
• tổng quan về lập trình
• Tổng quan về kỹ thuật lập trình
• Lập trình tốt
• Nguyên tắc lập trình
• Ngôn ngữ lập trình
• ngôn ngữ C++
• Kỹ thuật lập trình căn bản
• Kỹ thuật lập trình nâng cao
• Lập trình C căn bản
• Lập trình C nâng cao