Excel VBA代码减去
我有下面的表格
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
但它只是减去第一个“是”，当我改变另一个“是”我没有看到是得到新的数额从减去它。 我错过了什么？
目标：每当我付帐单，来到这里select“是”并运行代码，它将从总数中扣除，并显示我还剩下多less钱支付帐单。
提前致谢
假设列B是“金额”列，列C是“已付”列，只需使用单元格中的“左付”
=SUMIF(C2:C4,"=NO",B2:B4)
您可以使用Formula来评估Column支付：
=SUMIF(C2:C4;"No";B2:B4)