vba - Excel VBA代码减去

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

但它只减去第一个"is"，当我将另一个更改为"is"时，我没有看到正在获得新的金额来减去它。我错过了什么？

目标:每当我支付了账单并来到这里并选择"is"并运行代码时，它将从总数中减去它并显示我还有多少要支付账单。

提前致谢

Answer 1

假设 B 列是“金额”列，C 列是“已支付”列，只需使用单元格中的公式“剩余支付”即可

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