比较 VBA 中的负值以产生通过和失败结果
Comparing negative value in VBA to produce pass and fail result
我在 VBA 还是新手,这是一个简单的问题,但我正在比较大于或等于的负数是“通过”,否则它是“失败”,例如,如果我输入:
40
通过,
20
通过,
但是如果我输入 -20
它显示“失败”,它应该“通过”,而我输入 -40
它“通过”,它应该“失败”。
我不知道如何解决它,因为对我来说条件是正确的,但结果不是。
If Me.kepi4.Value >= "-30.70" Then
MsgBox "The KEPI 4 Value Pass the Evaluation"
Me.gd4.Value = "PASS"
UserForm9.Show
Else
MsgBox "Check Your Kepi 4 Evaluation Value"
Me.gd4.Value = "FAIL"
UserForm10.Show
End If
这个 "-30.70"
是一个 string/text 而不是一个数字。它应该是 -30.70
而不是。
此外,您应该将文本框值转换为双精度值 cDbl(Me.kepi4.Value)
,以便将其调整为您可以实际与数学运算符进行比较的数字 >=
。
它应该是这样的:
If cDbl(Me.kepi4.Value) >= -30.70 Then
我在 VBA 还是新手,这是一个简单的问题,但我正在比较大于或等于的负数是“通过”,否则它是“失败”,例如,如果我输入:
40
通过,
20
通过,
但是如果我输入 -20
它显示“失败”,它应该“通过”,而我输入 -40
它“通过”,它应该“失败”。
我不知道如何解决它,因为对我来说条件是正确的,但结果不是。
If Me.kepi4.Value >= "-30.70" Then
MsgBox "The KEPI 4 Value Pass the Evaluation"
Me.gd4.Value = "PASS"
UserForm9.Show
Else
MsgBox "Check Your Kepi 4 Evaluation Value"
Me.gd4.Value = "FAIL"
UserForm10.Show
End If
这个 "-30.70"
是一个 string/text 而不是一个数字。它应该是 -30.70
而不是。
此外,您应该将文本框值转换为双精度值 cDbl(Me.kepi4.Value)
,以便将其调整为您可以实际与数学运算符进行比较的数字 >=
。
它应该是这样的:
If cDbl(Me.kepi4.Value) >= -30.70 Then