SumIf给出了没有小数的答案

Question

我正在使用VBA来总结我的SumRange中的单元格的值，因为它们是正数。但是，代码有效，它没有返回带小数位的答案。

RecebimentosValor = WorksheetFunction.SumIf(SumRange, ">0")

Answer 1

请务必使用 Double：

Sub ytrewq()
    Dim SumRange As Range, RecebimentosValor As Double
    Set SumRange = Range("A1:A10")
    RecebimentosValor = WorksheetFunction.SumIf(SumRange, ">0")
    MsgBox RecebimentosValor
End Sub

Answer 2

我认为没有问题

Sub M_snb()
 y = [sum((A1:A12>0)*(A1:A12))]
 y = Application.SumIf(Range("A1:A12"), ">0")
End Sub

Answer 3

并非总是如此。这取决于你的输入。如果你的输入是十进制格式的话 输出将以十进制形式生成。简单的数学规则。