如何在vba中基于给定月份求负、正和两者之和

我想用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

dim ws2作为工作表
设置ws2=工作表（“数据”）
将bk调暗为双色
双倍
mon=MonthName（月（日））
对于i=2到最后一行
bk=ws2.电池（i，3）
ca=ws2.单元（i，4）
如果mon=MonthName（Month（ws2.Cells（i，1）），bk<0或ca<0，则
费用=bk+ca+费用
如果结束
接下来我

我想你应该使用一个公式。我假设你重新键入了这段代码，因为

bk as double

不会编译…是的，我确实为此表示歉意，展示了一个您的数据日期的示例--bk|ca:---------03/05/17--10 03/05/17--10 03/06/17--0 03/09/17--5 03/10/17--0 03/10/17--0我认为您应该使用一个公式。我假设您重新键入了这段代码，因为

bk as不能编译，我确实为此表示歉意，展示了您的数据日期的一个例子——加利福尼亚州：03/05/17 | 03/05/17 |-10 | 03/05/17 |-10 | 03/06/17 | 0 |+50 03/09/17 |+5 | 0 03/10/17 | 0 |-5