如何获取自定义菜单下拉列表选中项并执行对应宏？

你可以通过Application.CommandBars.ActionControl对象获取当前触发事件的下拉控件，进而读取选中项的文本或索引，再在指定的OnAction宏里分支执行对应逻辑。

步骤1：保留原右键菜单代码 #

原右键菜单的创建代码无需大幅修改，确保下拉框的OnAction指向同一个处理宏即可：

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    Dim oMenu As CommandBar
    Set oMenu = CommandBars.Add("", msoBarPopup, , True)

    Dim cbcm1 As CommandBarButton
    Set cbcm1 = oMenu.Controls.Add(Type:=msoControlButton, Temporary:=True)
    cbcm1.Caption = "Add new label"
    cbcm1.OnAction = "AddNewLabel"

    Dim cbcm2 As CommandBarComboBox
    Set cbcm2 = oMenu.Controls.Add(Type:=msoControlDropdown, Temporary:=True)
    cbcm2.Caption = "Select label:"
    cbcm2.AddItem "NVPE"
    cbcm2.AddItem "COMP"
    cbcm2.AddItem "HOLD"
    cbcm2.AddItem "INPROG"
    cbcm2.AddItem "CANC"
    cbcm2.Width = 150
    cbcm2.ListIndex = 1 'default
    cbcm2.OnAction = "NewCommand_OnAction"
    cbcm2.Style = msoComboLabel

    oMenu.ShowPopup  'display the menu
    Cancel = True
End Sub

步骤2：实现NewCommand_OnAction宏 #

在标准模块中添加这个宏，通过ActionControl获取选中项后分情况处理：

Sub NewCommand_OnAction()
    Dim selectedCombo As CommandBarComboBox
    Dim selectedText As String

    ' 获取触发事件的下拉控件
    Set selectedCombo = Application.CommandBars.ActionControl
    selectedText = selectedCombo.Text ' 获取选中的标签文本

    ' 根据选中文本执行对应逻辑
    Select Case selectedText
        Case "NVPE"
            Call AddNVPE ' 调用NVPE对应的宏
        Case "COMP"
            Call AddCOMP
        Case "HOLD"
            Call AddHOLD
        Case "INPROG"
            Call AddINPROG
        Case "CANC"
            Call AddCANC
    End Select
End Sub

' 示例：各标签对应的具体宏（根据需求实现逻辑）
Sub AddNVPE()
    ' 这里写将"NVPE"添加到指定区域的代码
    MsgBox "已添加标签NVPE"
End Sub

Sub AddCOMP()
    MsgBox "已添加标签COMP"
End Sub

Sub AddHOLD()
    MsgBox "已添加标签HOLD"
End Sub

Sub AddINPROG()
    MsgBox "已添加标签INPROG"
End Sub

Sub AddCANC()
    MsgBox "已添加标签CANC"
End Sub

Sub AddNewLabel()
    ' 原AddNewLabel宏的逻辑
    MsgBox "添加新标签"
End Sub

关键说明 #

• Application.CommandBars.ActionControl是核心，它能精准定位到当前触发事件的下拉控件，避免混淆其他控件。
• 优先用Text判断选中项，后续调整下拉项顺序时，逻辑不会因索引变化出错；如果需要用索引，可替换为selectedCombo.ListIndex（索引从1开始）。
• 每个标签的逻辑可以单独写在宏里，也可以直接嵌入Select Case分支，根据代码复杂度选择即可。

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