Hoàn thiện code cho menu con

[NH_DK]

A/C hoàn thiện dùm em code cho menu con trong ví dụ đính kèm.
(Câu hỏi cụ thể trong file đính kèm)

 

[MinhCong]

A/C hoàn thiện dùm em code cho menu con trong ví dụ đính kèm.
(Câu hỏi cụ thể trong file đính kèm)

Bạn thử dùng đoạn code sau xem sao:

Sub Taomenu()
Dim cb As CommandBar
 Dim cpop As CommandBarPopup
  Dim cbtn As CommandBarButton
    Set cb = Application.CommandBars("Worksheet Menu bar")
    Set cpop = cb.Controls.Add(Type:=msoControlPopup, Temporary:=True)
        cpop.Caption = "&[COLOR=red]Bien ban phan Duong[/COLOR]" [COLOR=green]'Đây là Menu chính (=Menu Tiếng Việt của Bạn)[/COLOR]
    Set cbtn = cpop.Controls.Add(msoControlButton, , , , True)
        cbtn.Caption = "Nghiem thu Xay lap"     [COLOR=green]'Đây là Menu con (bằng Menu Thông tin riêng)[/COLOR]
        cbtn.OnAction = "NT_Xaylap"       [COLOR=green]'Đây là tên Macro để chạy Menu con Nghiem thu Xay lap ở trên[/COLOR]
    Set cbtn = cpop.Controls.Add(msoControlButton, , , , True)
        cbtn.Caption = "Nghiem thu Cong viec"      [COLOR=green]'Đây là Menu con (bằng Menu Hướng dẫn)[/COLOR]
        cbtn.OnAction = "NT_Congviec"     [COLOR=green]'Đây là tên Macro để chạy Menu con Nghiem thu cong viec ở trên[/COLOR]
End Sub

 

[Hai Lúa Miền Tây]

A/C hoàn thiện dùm em code cho menu con trong ví dụ đính kèm.
(Câu hỏi cụ thể trong file đính kèm)

Bạn xem cái tô đỏ là cái cần sửa, đó là tên Sub của bạn cần gọi

Sub AddMenu()
myMenu = Application.MenuBars(xlWorksheet).Menus.Count + 1
MenuBars(xlWorksheet).Menus.Add "Ti" & ChrW(7871) & "ng Vi" & ChrW(7879) & "t", myMenu
MenuBars(xlWorksheet).Menus(myMenu).MenuItems.Add Caption:="Thong tin rieng", before:=1, OnAction:="[COLOR=red][B]gioithieu[/B][/COLOR]"
MenuBars(xlWorksheet).Menus(myMenu).MenuItems.Add Caption:="Huong dan", before:=2, OnAction:="[COLOR=red][B]SubHuongdan[/B][/COLOR]"
End Sub

 

[NH_DK]

Các anh cho em hỏi có cách nào viết tiếng Việt vào menu đó không?

 

[NH_DK]

Bạn xem cái tô đỏ là cái cần sửa, đó là tên Sub của bạn cần gọi

Sub AddMenu()
myMenu = Application.MenuBars(xlWorksheet).Menus.Count + 1
MenuBars(xlWorksheet).Menus.Add "Ti" & ChrW(7871) & "ng Vi" & ChrW(7879) & "t", myMenu
MenuBars(xlWorksheet).Menus(myMenu).MenuItems.Add Caption:="Thong tin rieng", before:=1, OnAction:="[COLOR=red][B]gioithieu[/B][/COLOR]"
MenuBars(xlWorksheet).Menus(myMenu).MenuItems.Add Caption:="Huong dan", before:=2, OnAction:="[COLOR=red][B]SubHuongdan[/B][/COLOR]"
End Sub

Ah, cái chỗ đó mình sẽ ghi tên marco chạy ở đó rồi!!

 

[MinhCong]

Các anh cho em hỏi có cách nào viết tiếng Việt vào menu đó không?

Để viết tiếng việt thì gõ trên diễn đàn tìm hỗ trợ tiếng việt trong VBA.

 

[Hai Lúa Miền Tây]

Ah, cái chỗ đó mình sẽ ghi tên marco chạy ở đó rồi!!

Thì khi click vào nó thì chạy macro đó thôi, ý bạn như thế nào nữa?
Còn muốn viết Tiếng Việt trên thanh tiêu đề bạn có thể tìm những bài viết của thầy Phạm Duy Long