如何通过CommandBar OnAction调用窗体代码中的Sub过程？

方法1：标准模块中转（适合单实例场景） #

1. 在窗体代码中将需要调用的子程序声明为Public：

' UserForm1 代码
Public Sub MyFormSub()
    MsgBox "窗体内部子程序已执行"
End Sub

2. 在标准模块中创建中转子程序：

' 标准模块 Module1 代码
Sub MenuActionMiddleman()
    ' 直接调用窗体实例的Public子程序
    UserForm1.MyFormSub
End Sub

3. 创建右键菜单时，将OnAction设置为中转子程序名称：

' UserForm1 代码中创建菜单的部分
Private Sub UserForm_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Button = 2 Then ' 响应右键点击
        Dim popupMenu As CommandBar
        Dim menuItem As CommandBarButton
        
        ' 创建临时弹出菜单
        Set popupMenu = CommandBars.Add("MyRightClickMenu", msoBarPopup, False, True)
        Set menuItem = popupMenu.Controls.Add(msoControlButton)
        
        menuItem.Caption = "执行窗体子程序"
        ' 指定中转子程序为触发动作
        menuItem.OnAction = "MenuActionMiddleman"
        
        ' 显示菜单
        popupMenu.ShowPopup
        ' 用完删除菜单，避免残留
        popupMenu.Delete
    End If
End Sub

方法2：直接引用窗体实例（单实例简化版） #

如果窗体是单实例运行，可直接在OnAction中使用带Call的表达式，无需中转模块：

' UserForm1 代码中创建菜单的部分
Private Sub UserForm_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Button = 2 Then
        Dim popupMenu As CommandBar
        Dim menuItem As CommandBarButton
        
        Set popupMenu = CommandBars.Add("MyRightClickMenu", msoBarPopup, False, True)
        Set menuItem = popupMenu.Controls.Add(msoControlButton)
        
        menuItem.Caption = "执行窗体子程序"
        ' 直接指定调用窗体实例的Public子程序，注意外层加单引号
        menuItem.OnAction = "'Call UserForm1.MyFormSub'"
        
        popupMenu.ShowPopup
        popupMenu.Delete
    End If
End Sub

' 必须声明为Public的窗体子程序
Public Sub MyFormSub()
    MsgBox "窗体内部子程序已执行"
End Sub

方法3：类模块绑定事件（适合多实例场景） #

如果需要支持多个窗体实例独立运行，用类模块绑定菜单按钮的点击事件，避免全局变量依赖：

1. 创建类模块clsMenuHandler，代码如下：

' clsMenuHandler 代码
Public WithEvents MenuButton As CommandBarButton
Public ParentForm As Object ' 关联对应的窗体实例

Private Sub MenuButton_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)
    ' 调用关联窗体的Public子程序
    ParentForm.MyFormSub
End Sub

2. 窗体代码中创建菜单并关联类实例：

' UserForm1 代码
Private menuHandler As clsMenuHandler

Private Sub UserForm_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Button = 2 Then
        Dim popupMenu As CommandBar
        Dim menuItem As CommandBarButton
        
        Set popupMenu = CommandBars.Add("MyRightClickMenu", msoBarPopup, False, True)
        Set menuItem = popupMenu.Controls.Add(msoControlButton)
        
        menuItem.Caption = "执行窗体子程序"
        
        ' 初始化类实例，绑定按钮与窗体
        Set menuHandler = New clsMenuHandler
        Set menuHandler.MenuButton = menuItem
        Set menuHandler.ParentForm = Me
        
        popupMenu.ShowPopup
        popupMenu.Delete
    End If
End Sub

Public Sub MyFormSub()
    MsgBox "窗体内部子程序已执行"
End Sub

关键注意事项 #

• 窗体中被调用的子程序必须声明为Public，否则外部无法访问；
• 临时创建的弹出菜单使用后要调用Delete方法清理，避免在Office命令栏中残留；
• 多实例场景下，优先使用类模块绑定事件的方式，避免全局变量导致的实例混淆问题。

内容的提问来源于stack exchange，提问作者waldoverkill