22、Excel VBA：自定义菜单与工作表函数全攻略

Excel VBA：自定义菜单与工作表函数全攻略

1. 自定义快捷菜单

在Excel中，无法使用“自定义”对话框来移除或修改快捷菜单，唯一的方法是使用VBA。当右键单击对象时，会弹出快捷菜单，Excel中有很多这样的快捷菜单。

1.1 获取所有快捷菜单列表

若要处理快捷菜单，需要知道其标题或索引。可使用以下代码生成所有快捷菜单及其索引和标题的列表：

Sub ListShortCutMenus()
    Dim Row As Long
    Dim Col As Long
    Dim cbar As CommandBar
    Row = 1
    For Each cbar In CommandBars
        If cbar.Type = msoBarTypePopup Then
            Cells(Row, 1) = cbar.Index
            Cells(Row, 2) = cbar.Name
            For Col = 1 To cbar.Controls.Count
                Cells(Row, Col + 2) = cbar.Controls(Col).Caption
            Next Col
            Row = Row + 1
        End If
    Next cbar
End Sub

1.2 添加菜单项到快捷菜单

向快捷菜单添加菜单项的操作与向常规菜单添加菜单项类似，需要知道快捷菜单的索