[已解决]求助：如何这个电子表格添加一个本日合计

ww87398804

以前同事留下一个现金日记账，只有本月合计，但是每天发生的收入
和支出有很多笔，现在想添加一个本日汇总，合计当天总共收入多少
和支出多少，
请问：如何添加代码实现当天收支数据录入完毕以后在摘要一列选择
“本日汇总”然后H列、J列对应单元格自动统计当天收入合计、支出
合计，谢谢了。

看了VBA代码，代码如下：

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Row < 5 Then Exit Sub
If Target.Column <> 7 Then Exit Sub
If Target.Value = "本月合计" Then
m = Target.Row - 1
i = Range("C" & m + 1).End(xlUp).Row
Range("H" & m + 1) = Evaluate("SUMPRODUCT(($B$6:$B" & i & "=$B" & i & ")*H$6:H" & i & ")")
Range("J" & m + 1) = Evaluate("SUMPRODUCT(($B$6:$B" & i & "=$B" & i & ")*J$6:J" & i & ")")
ElseIf Target.Value = "本年累计" Then
n = Target.Row - 2
Range("H" & n + 2) = Evaluate("SUMPRODUCT(($B$6:$B" & n & ">0)*H$6:H" & n & ")")
Range("J" & n + 2) = Evaluate("SUMPRODUCT(($B$6:$B" & n & ">0)*J$6:J" & n & ")")
End If
End Sub

最佳答案

月排行榜 / 总排行榜

zjdh

2014-10-7 13:44

ww87398804 发表于 2014-10-7 12:24
几分钟刷新一次看看有没有解决，都没有反应，是我描述的不够清楚还是不可以办到呀，郁闷了。

现金日记账.rar (62.46 KB, 下载次数: 15)

2014-10-7 13:44 上传

点击文件名下载附件

跳转到最佳答案楼层

hannanrenjie

等待高手解答。

ww87398804

高手国庆休假回来了吗？

QLZ0602

不知道什么意思？

zjdh

再看看

ww87398804

几分钟刷新一次看看有没有解决，都没有反应，是我描述的不够清楚还是不可以办到呀，郁闷了。

zjdh

ww87398804 发表于 2014-10-7 12:24
几分钟刷新一次看看有没有解决，都没有反应，是我描述的不够清楚还是不可以办到呀，郁闷了。

现金日记账.rar (62.46 KB, 下载次数: 15)

2014-10-7 13:44 上传

点击文件名下载附件

ww87398804

太谢谢了，正是我想要的，但是有一个小小问题，就是发现输入的金额错了修改的话本日合计金额还是老样子，不会跟着自动更新，不知道是怎么回事。