为什么VBA求和计算的结果是等于1，但是缺弹错说求和结果大于1了？

huiyuxuan

看似很简单的代码，但是困扰我两天了，没有找到解决方案。故来寻求大家帮助。

就是求和，如果结果等于1就相安无事。如果结果大于1，要显示弹窗提示值大于1了。

目前的问题是，截图里面的几个值的和明明明明就是1，但是却要弹窗说值大于了！！摸不着头脑。求助




Sub SumWithForLoop()

    Dim i As Integer
    Sum = 0
    For i = 7 To 29
        Sum = Sum + Range("D" & i)
    Next i
   
    Range("D30") = Sum
     
    If Sum > 1 Then
   
       ActiveSheet.Range("D30").Interior.Color = 255
       MsgBox " Sum of total inputs to cost not equal to 1 now . Please revise Column D", vbCritical
              
    End If
End Sub

yjh_27

浮点数  造成的，规约一下

1. If Round(Sum, 2) > 1 Then

复制代码

huiyuxuan

yjh_27 发表于 2024-1-30 23:31
浮点数  造成的，规约一下

哇！！！解决了，感谢感谢，非常感谢！！！！