Excel VBA中If比较运算符异常问题求助

• 核心原因：控件的.Value属性默认返回文本字符串，此时代码执行的是字符串比较而非数值比较。字符串比较按字符顺序逐位判定，"100"与"50"对比时，第一个字符"1"的ASCII码小于"5"，因此会判定"100" < "50"为True，触发错误提示。

• 修复方案：将控件值强制转换为数值类型后再进行比较，常用转换函数包括CDbl()（转换为双精度浮点数）、CLng()（转换为长整数）或Val()（提取字符串中的数值）。

修改后的代码示例：

With Me
    ' 转换为数值后执行比较逻辑
    If CDbl(.txtMax.Value) < CDbl(.txtSafety.Value) Then
        MsgBox "Error"
        Exit Sub
    End If
End With

• 额外优化建议：若控件可能输入非数值内容，建议先添加合法性校验，避免转换出错：

With Me
    ' 先校验输入是否为有效数值
    If Not IsNumeric(.txtMax.Value) Or Not IsNumeric(.txtSafety.Value) Then
        MsgBox "请输入有效的数值"
        Exit Sub
    End If
    ' 再执行数值比较
    If CDbl(.txtMax.Value) < CDbl(.txtSafety.Value) Then
        MsgBox "Error"
        Exit Sub
    End If
End With

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