Excel VBA脚本将整数和四舍五入（…我没有要求）

你们已经从其他人的问题中得到了很多帮助，但是找不到这个问题的答案。所以，是我自己在这里提出问题的时候了

获得了一个相当简单的VBA脚本，用于列出一些成本和支付这些成本。在其中，我有一个叫做“UserSaldo”（用户当前余额）和“VerbruikSaldo”（特定用户的特定成本）的东西。正如您可能猜到的，新的“UserSaldo”是旧的，加上此操作的“VerbruikSaldo”

它正确地计算了“VerbruikSaldo”，但不知怎的，它使我的总数达到了四舍五入

例如：

老用户saldo=8.00

VerbruikSaldo=4.20

新用户saldo=12.00（尽管它应该是12.20…）

当然还有更多的代码。。。把我认为相关的东西放进去。

---

很抱歉用了荷兰语；）

好的，您告诉它这样做：

UserSaldo作为整数

。将其声明为双精度：

UserSaldo声明为双精度

。同样使用

Dim VerbruikSaldo，UserSaldo声明为整数

仅将

UserSaldo声明为整数。将Dim VerbruikSaldo用作Double，UserSaldo用作Double

。。。两个完全基本的错误。。。Thx很多，就像一个符咒。我没有注意到这些，因为我以前处理过库存的东西，没有小数。。。。谢谢！

Dim VerbruikSaldo, UserSaldo As Integer
'verbruik invoegen en saldo herberekenen
VerbruikSaldo = MateriaalPrijs * MateriaalHoeveelheid
Worksheets(UserName).Cells(LastRow + 1, Cdatum).Value = Date
Worksheets(UserName).Cells(LastRow + 1, Cnaam).Value = MateriaalNaam
Worksheets(UserName).Cells(LastRow + 1, Caant).Value = MateriaalHoeveelheid
Worksheets(UserName).Cells(LastRow + 1, Ckost).Value = VerbruikSaldo
UserSaldo = Worksheets(UserName).Cells(LastRow, Ccumul).Value + VerbruikSaldo
MsgBox UserSaldo
Worksheets(UserName).Cells(LastRow + 1, Ccumul).Value = UserSaldo
Worksheets(UserName).Cells(2, 2).Value = UserSaldo