VBA在InputBox中使用数组限制月份输入报类型不匹配如何解决

该需求完全可以实现，你遇到的类型不匹配报错是代码存在几处语法、逻辑错误导致的，具体问题和修正方案如下：

原代码错误点 #

• Split函数未指定分隔符：Split默认按空格拆分字符串，你的月份用逗号连接，需要明确指定分隔符为,，否则生成的Months数组只会有1个元素，就是完整的月份拼接字符串。
• For Each遍历逻辑写反：For Each Months In NewName写法错误，NewName是InputBox返回的单个字符串，不属于可遍历的集合/数组，自然触发类型不匹配报错，正确写法是遍历Months数组的每个元素，和输入值逐一比对。
• 校验逻辑错误：不能每比对到一个不匹配的月份就直接弹报错跳转，需要等遍历完所有12个月份都没有匹配项时，再提示输入错误。
• 缺少取消操作处理：用户点击InputBox的「取消」按钮时，会返回空值，需要补充对应退出逻辑，避免进入死循环。

修正后代码 #

Sub test()
    Dim NewName As Variant, Months As Variant, m As Variant
    ' 指定逗号为分隔符拆分月份
    Months = Split("January,February,March,April,May,June,July,August,September,October,November,December", ",")
    
Re_Enter_NewName:
    NewName = InputBox("Please Write Month- Case Sensitive", "MONTH")
    ' 处理取消/空输入
    If NewName = "" Then Exit Sub
    
    ' 遍历所有月份比对
    For Each m In Months
        If NewName = m Then
            ' 匹配成功直接退出过程
            Exit Sub
        End If
    Next m
    
    ' 遍历完所有都不匹配才提示错误，重新输入
    MsgBox "Please Enter a Month of the Year"
    GoTo Re_Enter_NewName
End Sub

可选优化 #

如果不需要严格区分大小写，可将比对逻辑改为If UCase(NewName) = UCase(m) Then，用户输入january、JANUARY等格式都可以识别，体验更友好。

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