自定义菜单添加msoControlComboBox控件,没有.MatchFound属性怎么办?

aieh

在菜单栏添加了一个自定义下拉框,但好象没有如窗体上的组合框控件的.MatchFound检验是否匹配的属性
那么如何如何检验该自定义下拉框输入的文本是否与原有列表的条目相匹配?
如下示例:如果下拉框输入的内容不是原先AddItem的三个条目,运行OnAction过程就会出错,如何办呢?
请各位指教!谢谢!
With .Controls.Add(Type:=msoControlComboBox)
     .Style = msoComboLabel
     .DropDownWidth = -1
     .AddItem "AAA", 1
     .AddItem "BBB", 2
     .AddItem "CCC", 3
     .OnAction = "ToItem"
End With
Sub ToItem()
    With Application.CommandBars("NewBar").Controls(8)
        If WorksheetFunction.VLookup(.Text , Sheet1.Range("E1:F10") , 2, 0) Then
            MsgBox "XXXXX", vbOKOnly, "提示"
            '........  '某过程
            Exit Sub
        End If

   End With
End Sub

bjmyfiles

可以在.AddItem 之前加一个方法.clear，确保下拉项的正确性。类似于初始化一样。

bjmyfiles

或者在ToItem的过程开始处加上判断语句，如果不在下拉菜单项的列表中的值就结束ToItem过程。

aieh

bjmyfiles 发表于 2014-7-3 11:02
或者在ToItem的过程开始处加上判断语句，如果不在下拉菜单项的列表中的值就结束ToItem过程。

请教加上判断语句如何做?