Tạo menu khi nhấp chuột phải

Liên hệ QC

huynhkimtien

Thành viên chính thức
Tham gia
6/3/07
Bài viết
51
Được thích
49
Giới tính
Nam
Nghề nghiệp
Kế toán
Xin các cao thủ giải quyết dùm em các vấn đề này nhé!
Em muốn tạo Menu trên file Excel khi nhấp chuộ phải vào sheet sẽ hiện ra.
- Nếu ở chế độ "View/Normal" thì menu sẽ hiện bình thường.
- Nhưng nếu ở chế độ "View/Page Break Preview" thì chẳng thấy gì hết.

Em xin nhờ các cao thủ hãy giải thích và giải quyết giùm em làm sao cho hiện Menu cho cả 2 trường hợp như trên.

Cảm ơn!
 

File đính kèm

Bạn xem lại trên máy của bạn đi tớ thấy vẫn binh thường cho cả 2 sheet mà. Bạn thử khởi động lại máy xem sao nhé
 
Upvote 0
Hỏi về Menu khi nhấp chuột phải trên Sheet

Bạn xem lại trên máy của bạn đi tớ thấy vẫn binh thường cho cả 2 sheet mà. Bạn thử khởi động lại máy xem sao nhé

Ý tớ nói không thấy gì hết có nghĩa là tại sheet2 những Menu tớ tạo ra gồm: Tao so cai, tao so chi tiet .v.v.v... sẽ không xuất hiện như ở sheet1.
 
Upvote 0
Bạn phải để trong thủ tục sự kiện Workbook_Open chứ. Vì bạn để code tạo menu trong thủ tục sự kiện BeforeRightClick và sheet2 bạn không để ở chế độ Normal View nên bạn không thể tạo shortcut menu ở sheet2.

Lê Văn Duyệt
 
Upvote 0
Bạn phải để trong thủ tục sự kiện Workbook_Open chứ. Vì bạn để code tạo menu trong thủ tục sự kiện BeforeRightClick và sheet2 bạn không để ở chế độ Normal View nên bạn không thể tạo shortcut menu ở sheet2.

Lê Văn Duyệt


Em hiểu, nhưng xin hỏi nếu ở chế độ "View/Page Break Preview" thì mình có cách nào để hiển thị các lệnh Menu trên Application.CommandBars("Cell").add.... được không a?

Giống như ở chế độ xem "View/Normal" đó?
 

File đính kèm

Lần chỉnh sửa cuối:
Upvote 0
Hỏi về việc tạo riêng một MenuPopup

HB muốn hỏi các bác về việc tạo FileMenuBar, MenuBarPopup,..
1. Trường hợp muốn tạo một New Menu con thì làm thế nào?
Set CmdBar = CommandBars.Add(Name:=MenuName, Position:=msoBarPopup, MenuBar:=False, Temporary:=False)
Set CmbBarCtrl = CmdBar.Controls.Add
With CmbBarCtrl
.Caption = "&Danh ba NNT"
.FaceId = 353
End With
Set CmbBarCtrl = CmdBar.Controls.Add
With CmbBarCtrl
.BeginGroup = True
.Caption = "&Sao chep"
.OnAction = "CopyRange"
.FaceId = 19
End With
Set CmbBarCtrl = CmdBar.Controls.Add
With CmbBarCtrl
.Caption = "&Di chuyen"
.OnAction = "CutRange"
.FaceId = 21
End With
Bây giờ muốn tạo Menu con khi di chuột tới Danh ba sẽ hiện lên Menu gồm DB chi tiếtDB Tổng hợp? Với FileMenuBar kỹ thuật có tương tự không?
2. Thay MenuRightClick khi nhấp chuột phải vào tên sheet bằng một Menu khác. Có làm được không ạh?

HB xin cảm ơn cả nhà trước ạh!
 
Upvote 0
Chạy macro

Chào các bạn,
Xin các bạn chỉ dùm : tôi có tạo một macro để chạy Pivot (và cho ra sheet1),nhưng muốn chạy lại nữa thì phải xóa sheet1 & đóng file lại =>mở ra mới chạy được .

Có cách nào mình chạy tiếp macro & cho ra sheet2,3 không vậy?
Thanks
 
Upvote 0
Web KT

Bài viết mới nhất

Back
Top Bottom