Question

我有下表

Bills Amount Paid

Food  $100    No

Gas   $200    Yes

Car   $300    Yes

Total $600

Total left to pay: $400

我有以下代码

Sub Bills()

    Range("C2").Select
    Do Until IsEmpty(ActiveCell)
        If ActiveCell = "Yes" Then Range("B6") = Range("B5") - ActiveCell.Offset(0, -1)
        ActiveCell.Offset(1, 0).Select
    Loop

End Sub

但它只减去第一个“是”，当我将另一个改为“是”时，我看不到是否有新的金额从中减去。我错过了什么？

目标：每当我支付账单并来到这里并选择“是”并运行代码时，它将从总数中减去它并向我显示我还有多少钱要支付账单。

提前致谢

Answer 1

假设B栏是＆＃34;金额＆＃34;列和列C是＆＃34;付费＆＃34;列，只需使用单元格中的公式即可支付＆＃34;

=SUMIF(C2:C4,"=NO",B2:B4)

Answer 2

您只需使用Formula来评估Column付费：

=SUMIF(C2:C4;"No";B2:B4)

Excel VBA代码要减去

2 个答案: