如何用VBA检查右键菜单中是否存在指定菜单项（含待修复代码）

原代码的问题在于：直接通过MenuItems("菜单项名称")访问元素时，如果目标菜单项不存在，会直接触发运行时错误，无法通过Count属性判断存在性。以下是两种可行的修复方案：

方案1：遍历菜单集合检查标题 #

这种方式直观，逐个遍历右键菜单的所有项，匹配标题判断是否存在：

Sub CheckIfSpecificMenuItemExistInTheMouseRightClickMenu()
    Dim menuItem As MenuItem
    Dim targetCaption As String
    Dim isExist As Boolean
    
    targetCaption = "SECOND MENU"
    isExist = False
    
    ' 遍历工作表单元格右键菜单的所有菜单项
    For Each menuItem In Application.ShortcutMenus(xlWorksheetCell).MenuItems
        If menuItem.Caption = targetCaption Then
            isExist = True
            Exit For ' 找到后提前退出循环
        End If
    Next menuItem
    
    If isExist Then
        MsgBox "存在该菜单项"
    Else
        MsgBox "不存在该菜单项"
    End If
End Sub

方案2：利用错误捕获简化判断 #

通过捕获“元素不存在”的错误来判断，代码更简洁：

Sub CheckIfSpecificMenuItemExistInTheMouseRightClickMenu()
    Dim targetCaption As String
    Dim dummyItem As MenuItem
    
    targetCaption = "SECOND MENU"
    On Error Resume Next ' 开启错误捕获
    Set dummyItem = Application.ShortcutMenus(xlWorksheetCell).MenuItems(targetCaption)
    On Error GoTo 0 ' 关闭错误捕获
    
    If Not dummyItem Is Nothing Then
        MsgBox "存在该菜单项"
        Set dummyItem = Nothing ' 释放对象
    Else
        MsgBox "不存在该菜单项"
    End If
End Sub

补充说明 #

• 两种方法都能有效判断指定标题的菜单项是否存在于工作表单元格的右键菜单中
• 如果需要检查其他类型的右键菜单（比如图表、工作表标签），只需将xlWorksheetCell替换为对应的枚举值（如xlChart、xlWorksheetTab）

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