如何根据vba中的给定月份对负面，正面和两者进行求和

Question

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

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

它正在使用数据表，其中正数和负数都列在分隔的列中，如银行帐户或现金。创建余额编号进展顺利，但是当我希望看到我的收入时，只有给定日期的正数之和才能生效。

计算金额大于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