Excel 2010 VBA：如何检查ComboBox输入值与下拉项是否匹配？

嘿，针对你在Excel 2010 VBA里的这个需求，完全可以通过cmbMonth_Exit事件来实现输入校验，下面给你详细的代码和说明：

核心思路 #

当用户离开ComboBox（触发Exit事件）时，检查当前输入的内容是否存在于预先添加的12个月份选项中。如果不存在，就弹出提示消息，甚至可以让ComboBox重新获得焦点，强制用户修正输入。

完整代码示例 #

Private Sub cmbMonth_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Dim inputVal As String
    Dim isMatch As Boolean
    Dim i As Integer
    
    ' 获取用户输入的内容，统一转成大写（避免大小写不匹配的问题）
    inputVal = UCase(cmbMonth.Value)
    
    ' 初始化匹配状态为False
    isMatch = False
    
    ' 遍历ComboBox的所有选项，检查是否有匹配项
    For i = 0 To cmbMonth.ListCount - 1
        If UCase(cmbMonth.List(i)) = inputVal Then
            isMatch = True
            Exit For ' 找到匹配项就跳出循环，不用继续检查了
        End If
    Next i
    
    ' 如果没有匹配到任何选项
    If Not isMatch Then
        ' 弹出提示消息
        MsgBox "你输入的月份不存在，请从下拉列表选择或输入正确的月份名称！", vbExclamation, "输入错误"
        
        ' 取消退出操作，让ComboBox保持焦点（可选，根据你的需求决定是否保留）
        Cancel = True
        
        ' 清空错误输入，方便用户重新输入（可选）
        cmbMonth.Value = ""
    End If
End Sub

代码说明 #

• UCase函数：把输入值和列表选项都转成大写，这样不管用户输入的是"january"还是"January"，都能正确匹配，避免大小写导致的误判。
• 遍历列表项：通过循环检查每个选项，确保输入值和下拉列表里的某一项完全一致。
• Cancel = True：如果输入错误，取消Exit事件，让ComboBox继续保持焦点，用户必须修正后才能离开这个控件，这个是可选的，如果你不想强制锁定，也可以去掉这行。
• 清空输入：把错误的输入清空，用户可以直接重新输入或者选择下拉选项，提升体验。

另外，如果你之前已经在cmbMonth_Enter事件里添加了12个月份选项，比如类似这样的代码：

Private Sub cmbMonth_Enter()
    ' 先清空列表，避免重复添加
    cmbMonth.Clear
    
    ' 添加12个月份
    cmbMonth.AddItem "January"
    cmbMonth.AddItem "February"
    cmbMonth.AddItem "March"
    cmbMonth.AddItem "April"
    cmbMonth.AddItem "May"
    cmbMonth.AddItem "June"
    cmbMonth.AddItem "July"
    cmbMonth.AddItem "August"
    cmbMonth.AddItem "September"
    cmbMonth.AddItem "October"
    cmbMonth.AddItem "November"
    cmbMonth.AddItem "December"
End Sub

那上面的校验代码就能完美配合使用啦！

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