Excel VBA代码减去

Question

I have the following table

Bills Amount Paid

Food  $100    No

Gas   $200    Yes

Car   $300    Yes

Total $600

Total left to pay: $400

And I have the following code

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

But it only subtracts the first "Yes" and when I change another to "Yes" i do not see were is getting the new amount to subtract it from. what am I missing?

Goal: Whenever I have paid a bill and come here and select "Yes" and run the code it will subtract it from the total and show me how much I still have left to pay on bills.

Thanks in advance

Answer 1

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

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

Answer 2

您可以使用Formula来计算“已付费Column ：

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