在vba自定义函数中自定义菜单

在 VBA 中，可以通过 `CommandBars` 对象和 `CommandBar` 对象来自定义菜单并将它们与自定义函数关联起来。以下是一个简单的示例代码，用于在 Excel 中创建一个名为 "MyFunction" 的自定义函数，并将其添加到一个名为 "MyMenu" 的自定义菜单中。

Function MyFunction() As String
    MyFunction = "Hello World"
End Function

Sub CreateMenu()
    Dim cBar As CommandBar
    Dim cControl As CommandBarControl
    
    ' 创建一个名为 "MyMenu" 的自定义菜单
    Set cBar = Application.CommandBars.Add(Name:="MyMenu", Position:=msoBarPopup, MenuBar:=False, Temporary:=True)
    
    ' 添加一个名为 "MyFunction" 的菜单项
    Set cControl = cBar.Controls.Add(Type:=msoControlButton)
    With cControl
        .Caption = "MyFunction"
        .OnAction = "MyFunction"
    End With
End Sub

要使用此代码，请打开 Excel 并按 `Alt+F11` 进入 VBA 编辑器。在 `ThisWorkbook` 对象中插入以上代码，并运行 `CreateMenu` 子过程。然后，您将看到一个名为 "MyMenu" 的自定义菜单以及其中的 "MyFunction" 菜单项。可以通过单击菜单项来调用自定义函数。