VBA代码求助

hw285151 · 发表于 2018-9-28 13:31

下面是我写的代码，income是单元格的值，运算时出现了错误，当income=0.18的时候，CheckGS被判断成=4，当income=0.22的时候，CheckGS却能够正确判断。请问哪位高手知道是什么原因。
Function CheckGS(income)
If IsEmpty(income) Then
      CheckGS = ""
Else
      If IsNumeric(income) = True Then
         x = Abs(income - 0.2)
         If x <= 0.02 Then
            CheckGS = 6
         ElseIf x > 0.02 And x <= 0.03 Then
            CheckGS = 4
         ElseIf x > 0.03 And x <= 0.04 Then
            CheckGS = 2
         ElseIf x > 0.04 Then
            CheckGS = 1
         Else
            CheckGS = ""
         End If
      End If
End If
End Function

abc123281 · 发表于 2018-9-28 13:48

建议上传附件

liulang0808 · 发表于 2018-9-28 14:03

x = Val(Abs(income - 0.2))
这个地方修改下吧
另外楼主的代码条件有些冗余的

wlmhit903 · 发表于 2018-9-28 14:46

liulang0808 发表于 2018-9-28 14:03
x = Val(Abs(income - 0.2))
这个地方修改下吧
另外楼主的代码条件有些冗余的

Val 转换后会改变数值判断是什么原因？请教一下

liulang0808 · 发表于 2018-9-28 14:52

wlmhit903 发表于 2018-9-28 14:46
Val 转换后会改变数值判断是什么原因？请教一下

就是找到了解决办法，
具体感觉可能在类型上有出入吧，不确定的

wlmhit903 · 发表于 2018-9-28 14:55

liulang0808 发表于 2018-9-28 14:52
就是找到了解决办法，
具体感觉可能在类型上有出入吧，不确定的

从数值上看不出变化，类型肯定是有变化了，所以迷惑....

hw285151 · 发表于 2018-9-28 15:03

liulang0808 发表于 2018-9-28 14:03
x = Val(Abs(income - 0.2))
这个地方修改下吧
另外楼主的代码条件有些冗余的

Hi, 谢谢！现在正常了，请问原理是什么？
另外，请问冗余的条件是哪些，谢谢！

liulang0808 · 发表于 2018-9-28 15:15

hw285151 发表于 2018-9-28 15:03
Hi, 谢谢！现在正常了，请问原理是什么？
另外，请问冗余的条件是哪些，谢谢！

具体原因，我也没有整清楚
If x <= 0.02 Then
            CheckGS = 6
         ElseIf x > 0.02 And x <= 0.03 Then
修改如下即可：
If x <= 0.02 Then
            CheckGS = 6
         ElseIf  x <= 0.03 Then

sonia_a · 发表于 2018-9-28 16:52

加VAL是处理成数值，因有些数源可能是文本的格式。。你可以单步调试看看。。。

hw285151 · 发表于 2018-9-28 17:15

hw285151 发表于 2018-9-28 15:03
Hi, 谢谢！现在正常了，请问原理是什么？
另外，请问冗余的条件是哪些，谢谢！

明白了，非常感谢！！！！

		自动登录	找回密码
密码			免费注册

[求助] VBA代码求助

点评