VBA中前两个判断语句正常，TextBox空值判断失效原因咨询

核心问题1：Null判断方式错误 #

VBA中不能用=直接判断Null，因为Null和任何值比较的结果都是Null（逻辑上不成立），必须用Is Null关键字来判断空值状态。

核心问题2：代码执行顺序导致判断无法触发 #

如果TextBox1是空值，执行第二个判断CDbl(TextBox1.Text)时会直接抛出「类型不匹配」错误，程序崩溃，根本走不到第三个判断语句。

修正后的代码 #

Private Sub CommandButton1_Click()
    ' 先判断ComboBox选择状态
    If ComboBox1.ListIndex = -1 Then
        MsgBox "bla"
        Exit Sub
    End If
    
    ' 优先判断TextBox是否为空
    If TextBox1.Value = "" Or TextBox1.Value Is Null Then
        MsgBox "bla!"
        Exit Sub
    End If
    
    ' 数值判断前先校验输入合法性
    If IsNumeric(TextBox1.Text) Then
        If CDbl(TextBox1.Text) < 10 Then
            MsgBox "bla!"
            Exit Sub
        End If
    Else
        MsgBox "请输入有效数字！"
        Exit Sub
    End If
End Sub

关键说明 #

• 判断控件空值时，要同时覆盖TextBox1.Value = ""（空字符串）和TextBox1.Value Is Null两种情况，因为控件空值可能表现为空字符串而非Null。
• 执行数值转换前必须用IsNumeric()校验输入内容，避免因非数字内容触发类型错误。

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