VBA Excel用户窗体数据验证报错：未填充ComboBox时如何修正代码

问题根源 #

1. VBA的And运算符不支持短路求值——哪怕TextBox9.Value > 0不成立，后面的Left(...)表达式仍会执行。当ComboBox2为空时，InStr(Me.ComboBox2.Value, " -")返回0，减1后得到-1，Left函数因参数非法直接报错。
2. 原代码未对ComboBox的内容有效性做前置检查，就算TextBox满足条件，空值或格式错误的ComboBox也会触发报错。

修改后的代码 #

Part 1（对应TextBox9和ComboBox2）

If TextBox9.Value > 0 Then
    ' 先验证ComboBox2有值且包含指定分隔符
    If Me.ComboBox2.Value <> "" And InStr(Me.ComboBox2.Value, " -") > 0 Then
        ' 比较截取后的内容与ComboBox1是否匹配
        If Left(Me.ComboBox2.Value, InStr(Me.ComboBox2.Value, " -") - 1) <> Me.ComboBox1.Value Then
            MsgBox "所选17尺寸的行李牌与所选BIN不匹配"
            Exit Sub
        End If
    Else
        ' 提示用户正确填写信息
        MsgBox "请正确填写17尺寸的行李牌信息"
        Exit Sub
    End If
End If

Part 2（对应TextBox10和ComboBox3）

If TextBox10.Value > 0 Then
    If Me.ComboBox3.Value <> "" And InStr(Me.ComboBox3.Value, " -") > 0 Then
        If Left(Me.ComboBox3.Value, InStr(Me.ComboBox3.Value, " -") - 1) <> Me.ComboBox1.Value Then
            MsgBox "所选19尺寸的行李牌与所选BIN不匹配"
            Exit Sub
        End If
    Else
        MsgBox "请正确填写19尺寸的行李牌信息"
        Exit Sub
    End If
End If

改动说明 #

• 用嵌套If替代And连接：确保只有当TextBoxX.Value > 0成立时，才会执行后续的ComboBox校验逻辑，彻底避免空ComboBox触发的报错。
• 新增ComboBox有效性检查：先确认ComboBox非空且包含“ - ”分隔符，再执行字符串截取操作，防止格式错误导致的运行异常。
• 补充错误提示：针对未正确填写ComboBox的情况给出明确提示，提升用户体验。

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