Excel VBA条件判断异常：A1为0.04却未返回pass结果求助

问题代码 #

Sub test()

Dim score As Integer, result As String
score = Range("A1").Value
If score > 0 Then result = "pass"

 Range("b1").Value = result

End Sub

问题描述 #

单元格A1中数值为0.04（大于0），但运行代码后单元格B1未返回"pass"结果。

原因分析 #

核心问题是变量类型不匹配：你将score声明为Integer（整数类型），当把A1单元格的0.04赋值给这个变量时，VBA会自动截断小数部分，score的实际值变成了0。此时If score > 0的条件不成立，result始终为空字符串，所以B1单元格没有输出预期的"pass"。

解决方法 #

有两种可行的修改方案：

1. 修改变量类型为小数兼容类型
   将score的类型从Integer改为Double或Single，这两种类型支持存储小数数值：

Sub test()
    Dim score As Double, result As String
    score = Range("A1").Value
    If score > 0 Then result = "pass"
    Range("b1").Value = result
End Sub

2. 直接判断单元格值，省略中间变量
   如果不需要复用score变量，可以直接对A1单元格的值进行判断，避免类型转换问题：

Sub test()
    Dim result As String
    If Range("A1").Value > 0 Then result = "pass"
    Range("b1").Value = result
End Sub

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