如何总结消极，积极和两个基于给定的月份vba

我想用vba创build我自己的预算表，但是我有一个问题。

我想总结我的开支，收入，并希望看到一个平衡。

它是从一个数据表中工作，正面和负面的数额被列在像银行账户或现金分开的列。 创build余额编号进展顺利，但是当我希望看到我的收入时，只有给定date的正数的总和才能起作用。

它计算每个行数大于0的行并忽略月份语句。

你能不能请告诉我如何解决这个问题，看看给定的月份费用？

dim ws2 as worksheet set ws2 = worksheets("Data") dim bk as double dim ca as double mon = MonthName(Month(Date)) For i = 2 To lastrow bk = ws2.Cells(i, 3) ca = ws2.Cells(i, 4) If mon = MonthName(Month(ws2.Cells(i, 1))) And bk < 0 Or ca < 0 Then Expenses = bk + ca + Expenses End If Next i