Excel Userform Listbox右键自定义菜单创建报错求助

错误根源 #

出现运行时错误'5'，是因为CommandBars.Add的参数组合不合法：

• 当指定Position:=msoBarPopup（弹出式菜单）时，Temporary参数不能设为False，弹出式菜单本身设计为临时对象，强制设为非临时会触发参数校验失败。
• 若已存在同名自定义命令栏，重复执行创建代码也会触发该错误。

修正后的实现代码 #

1. 正确创建自定义弹出菜单 #

先清理重复菜单，再使用合法参数创建：

Dim myBar As CommandBar
' 先删除已存在的同名菜单，避免冲突
On Error Resume Next
CommandBars("Custom").Delete
On Error GoTo 0
' 创建弹出式菜单，Temporary必须设为True
Set myBar = CommandBars.Add(Name:="Custom", Position:=msoBarPopup, Temporary:=True)
' 添加菜单项示例
With myBar.Controls.Add(Type:=msoControlButton)
    .Caption = "编辑选中行"
    .OnAction = "EditSelectedRow" ' 绑定对应的处理宏
End With
With myBar.Controls.Add(Type:=msoControlButton)
    .Caption = "删除选中行"
    .OnAction = "DeleteSelectedRow"
End With

2. 绑定Listbox右键触发事件 #

在Userform的Listbox的MouseUp事件中判断右键点击，弹出菜单：

Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    ' Button=2代表右键点击
    If Button = 2 Then
        CommandBars("Custom").ShowPopup
    End If
End Sub

注意事项 #

• 确保EditSelectedRow和DeleteSelectedRow宏已在标准模块中定义，若在Userform模块内处理，可修改OnAction为"Me.EditSelectedRow"，并将宏定义为Userform的公共方法。
• 若需要菜单在Excel重启后保留，不要使用msoBarPopup类型，改用固定位置的命令栏，但弹出式右键菜单一般无需持久化。

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