Lỗi khi tạo menu trong Excel 2007 (2 người xem)

[trungtamcnc]

Em có 1 đoạn code làm Menu như sau:
Sub Menu()
Dim cb As CommandBar
Dim cpop As CommandBarPopup
Dim cpop2 As CommandBarPopup
Dim cbtn As CommandBarButton


Set cb = Application.CommandBars("Worksheet Menu Bar")


Set cpop = cb.Controls.Add(msoControlPopup, , , , True)
cpop.Caption = "&C" + ChrW(244) + "ng vi" + ChrW(7879) + "c """


Set cbtn = cpop.Controls.Add(msoControlButton, , , , True)


cbtn.Caption = "C" + ChrW(225) + "c l" + ChrW(7899) + "p n" + ChrW(259) + "m 2013 - 2014 """


cbtn.OnAction = "caclop"




End Sub
Menu chạy bình thường, có vấn đề là em không xóa bớt được 1 dấu ". Trên thanh công cụ cứ nhìn thấy: Công việc".
Em thử xóa bớt ở: cpop.Caption = "&C" + ChrW(244) + "ng vi" + ChrW(7879) + "c """ nhưng máy cứ tự động thêm.
Nhờ các bác giúp đỡ.

 

[ndu96081631]

Em có 1 đoạn code làm Menu như sau:
Sub Menu()
Dim cb As CommandBar
Dim cpop As CommandBarPopup
Dim cpop2 As CommandBarPopup
Dim cbtn As CommandBarButton


Set cb = Application.CommandBars("Worksheet Menu Bar")


Set cpop = cb.Controls.Add(msoControlPopup, , , , True)
cpop.Caption = "&C" + ChrW(244) + "ng vi" + ChrW(7879) + "c """


Set cbtn = cpop.Controls.Add(msoControlButton, , , , True)


cbtn.Caption = "C" + ChrW(225) + "c l" + ChrW(7899) + "p n" + ChrW(259) + "m 2013 - 2014 """


cbtn.OnAction = "caclop"




End Sub
Menu chạy bình thường, có vấn đề là em không xóa bớt được 1 dấu ". Trên thanh công cụ cứ nhìn thấy: Công việc".
Em thử xóa bớt ở: cpop.Caption = "&C" + ChrW(244) + "ng vi" + ChrW(7879) + "c """ nhưng máy cứ tự động thêm.
Nhờ các bác giúp đỡ.

Vầy thôi chứ

cpop.Caption = "&C" + ChrW(244) + "ng vi" + ChrW(7879) + "c"

và:

cbtn.Caption = "C" + ChrW(225) + "c l" + ChrW(7899) + "p n" + ChrW(259) + "m 2013 - 2014"

Dư chi mấy dấu " làm gì không biết