Đang chuẩn bị liên kết để tải về tài liệu:
Giáo trình hướng dẫn phân tích ứng dụng lập trình bằng ngôn ngữ visual basic trên excel p6

Tạo hệ thống Menu và gán mã lệnh cho từng MenuItem Sub TaoMenu() Dim cb As CommandBar Dim cpop As CommandBarPopup Dim cpop2 As CommandBarPopup Dim cbtn As CommandBarButton ' LẤY THAM CHIẾU ĐẾN THANH TRÌNH ĐƠN Set cb = Application.CommandBars("Worksheet Menu Bar") ' TẠO MENU1: “VI DU MENU” (CommandBarPopup). | 3. Tạo hệ thống Menu và gán mã lệnh cho từng MenuItem Sub TaoMenu Dim cb As CommandBar Dim cpop As CommandBarPopup Dim cpop2 As CommandBarPopup Dim cbtn As CommandBarButton LẤY THAM CHIẾU ĐẾN THANH TRÌNH ĐƠN Set cb Application.CommandBars Worksheet Menu Bar TẠO MENU1 VI DU MENU CommandBarPopup . Set cpop cb.Controls.Add Type msoControlPopup Temporary True cpop.Caption Vi du Menu TẠO MENUITEM2 TINH TONG CommandBarButton . thêm Menuitem vào MENU1 Set cbtn cpop.Controls.Add msoControlButton True Gán thuộc tính cho Menuitem. cbtn.Caption Tinh Tong Gán tiêu đề cbtn.OnAction Macrol Gán mã lệnh TẠO MENUITEM3 TINH TICH CommandBarButton . Set cbtn cpop.Controls.Add msoControlButton True cbtn.Caption Tinh Tich cbtn.OnAction Macro2 TẠO MENU4 MENU CAP 2 CommandBarPopup . Đây là MenuItem bắt đầu một nhóm trình đơn khác Set cpop2 cpop.Controls.Add msoControlPopup True cpop2.Caption Menu Cap 2 Thêm SeparatorBar vào phía trước Menu này. cpop2.BeginGroup True TẠO MENUITEM5 LUA CHON 1 CommandBarButton . Set cbtn cpop2.Controls.Add msoControlButton True cbtn.Caption Lua chon 1 cbtn.OnAction Macro3 TẠO MENUITEM6 LUA CHON 2 CommandBarButton . Set cbtn cpop2.Controls.Add msoControlButton True cbtn.Caption Lua chon 2 cbtn.OnAction Macro4 End Sub Trong các câu lệnh tạo hệ thống trình đơn như trên tham số Temporary của phương thức Add đều được gán bằng True vì vậy khi người dùng thoát khỏi Excel thì các hệ thống trình đơn vừa thêm vào sẽ được tự động xoá đi. 8.4.3. Xoá trình đơn tuỳ biến Khi người dùng chỉ đóng workbook mà không đóng Excel trình đơn vừa được thêm vào vẫn còn được hiển thị trên hệ thống thanh trình đơn của Excel hoặc người dùng làm việc với một workbook khác mà không cần đến những tính năng trong trình đơn. Như vậy có những lúc cần phải xoá trình đơn vừa được thêm vào. Để thực hiện điều này có thể sử dụng phương thức Delete có trong đối tượng kiểu CommandBarControl hoặc CommandBarPopup hoặc CommandBarButton. Đoạn mã lệnh sau thực hiện xoá trình đơn Vi du Menu đã được tạo ra