VBA和透支问题

Question

我已经创建了一个VBA程序，可以正确连接到Access和输入输出。 我在试图获得可用余额以便正确显示时遇到问题。目前我有：

range("a6").select
set my recordset etc.
activecell = 0 - money out  ( this works If I'm within my overdraft. I changed it to)
If 0 - money out = 0 then
  activecell = money in + money out
  else
  activecell = 0-money out
End if

如果我在透支范围内，这仍然与上述相同，但如果我在贷方余额中，则会将单元格保留为空白。代码运行完美，所以我很困惑..

感谢您的帮助。

Answer 1

如果我正确遵循，您需要更改此内容：

If 0 - money out = 0 then

到此：

If 0 - money out >= 0 then