Question

我是excel中的VBA编码的新手，我试图设置一个循环，检查是否有不同的总和加起来预算excel标准excel表工作，因为人们经常覆盖公式并跳过步骤，从而弄乱转移到我们的会计系统时启动系统。

然而，我对范围的总和进行了挑战，并将其与表格中的现有总和进行比较。我的代码在循环中看起来像这样：

'lokaler, rengøring
Dim lok As Double
Dim loksum As Double
Dim lokdif As Double
loksum = Application.Sum(Range(Cells(38, i), Cells(41, i)))
lok = Cells(37, i)
lokdif = lok - loksum


If lokdif <> 0 Then
    Cells(37, i).Select
    ActiveCell.Interior.Color = RGB(200, 0, 0)
    Else
    Cells(33, i).Select
    ActiveCell.Interior.Color = RGB(230, 230, 230)
End If

代码贯穿了worhsheet，但lokdif似乎永远不会是＆lt;＆gt; 0，即使我更改值以强制出错。我认为application.sum存在问题，但我找不到任何解决方案。你能指出我正确的方向吗？

循环中的求和函数

0 个答案: