Nhờ thầy giúp code từ marco chuyển vào add-ins chạy tốt combineworksheets (1 người xem)

[Lequocvan]

Em tìm thấy code trên GPE, nhưng khi chạy lại có cái bất tiện là phải Alt+F11, rồi chạy ở VBA combineworksheets. em muốn nó hiện lên menu và chạy trên giao diện từ menu được tạo ra thì phải làm thế nào ah.

 

[Kiều Mạnh]

Em tìm thấy code trên GPE, nhưng khi chạy lại có cái bất tiện là phải Alt+F11, rồi chạy ở VBA combineworksheets. em muốn nó hiện lên menu và chạy trên giao diện từ menu được tạo ra thì phải làm thế nào ah.

Bạn thử quậy file của mình nha...Ta cùng nhau quậy nó với vui...không biết có trúng ý bạn ko nữa

Sub Auto_Open()
    Call Auto_Close
    Call MenuBars(7).Menus("Tools").MenuItems.Add("Hello", "Main")
    Call MenuBars(7).Menus("Tools").MenuItems.Add("Xin Chao", "Main2")
End Sub

Sub Auto_Close()
  Dim MenuItem As Object 
  For Each MenuItem In MenuBars(7).Menus("Tools").MenuItems 
         MenuItem.Delete
  Next
End Sub

Sub Main()
    MsgBox "Trung Khong"
End Sub

Sub Main2()
    MsgBox "Trung Gio"
End Sub