怎么把填入的数字自动分入已经分好的元角分单元格

wowo000

尊敬的YZC51老师：打搅中午休息了，俺自己弄了个账本，帮看看咋整？“借方”和“贷方”的textbox控件录入已修改好，就差“余额”下的，咋用VBA代码自动计算填写？？

YZC51

请参考
分列自动计算.zip (110.46 KB, 下载次数: 23)

2020-3-20 16:29 上传

点击文件名下载附件

YZC51

wowo000 发表于 2020-3-20 13:20
尊敬的YZC51老师：打搅中午休息了，俺自己弄了个账本，帮看看咋整？“借方”和“贷方”的textbox控件录入已 ...

附件已经上传，请参考

YZC51

现金账-V2.0
现金账-V2.0.zip (139.71 KB, 下载次数: 12)

2020-3-20 20:50 上传

点击文件名下载附件

wowo000

尊敬的YZC51老师：谢谢！！可否将这段代码Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Row < 3 Then Exit Sub
If Target.Column <> 5 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$4:$B" & i & "=$B" & i & ")*H$4:H" & i & ")")
Range("I" & m + 1) = Evaluate("SUMPRODUCT(($B$4:$B" & i & "=$B" & i & ")*I$4:I" & i & ")")
ElseIf Target.Value = "本年累计" Then
n = Target.Row - 2
Range("H" & n + 2) = Evaluate("SUMPRODUCT(($B$4:$B" & n & ">0)*H$4:H" & n & ")")
Range("I" & n + 2) = Evaluate("SUMPRODUCT(($B$4:$B" & n & ">0)*I$4:I" & n & ")")
End If
End Sub加进去？？就完美了。
可能有点难度，如果很耗费您的精力就算了。再次感谢您！！！！！

wowo000

也就是说：当“摘要”栏为“本月合计”、“本年累计”时，自动计算公式Range("H" & m + 1) = Evaluate("SUMPRODUCT(($B$4:$B" & i & "=$B" & i & ")*H$4:H" & i & ")")
Range("I" & m + 1) = Evaluate("SUMPRODUCT(($B$4:$B" & i & "=$B" & i & ")*I$4:I" & i & ")")及Range("H" & n + 2) = Evaluate("SUMPRODUCT(($B$4:$B" & n & ">0)*H$4:H" & n & ")")
Range("I" & n + 2) = Evaluate("SUMPRODUCT(($B$4:$B" & n & ">0)*I$4:I" & n & ")")的效果。

YZC51

wowo000 发表于 2020-3-20 17:38
也就是说：当“摘要”栏为“本月合计”、“本年累计”时，自动计算公式Range("H" & m + 1) = Evaluate("SUM ...

你好！现在H列 已经没有数据了，统计不出来的

YZC51

wowo000 发表于 2020-3-20 17:34
尊敬的YZC51老师：谢谢！！可否将这段代码Private Sub Worksheet_Change(ByVal Target As Range)
On Error ...

可以把原来能统计的表格发上来，看看能融合在一起不？！

YZC51

wowo000 发表于 2020-3-20 17:38
也就是说：当“摘要”栏为“本月合计”、“本年累计”时，自动计算公式Range("H" & m + 1) = Evaluate("SUM ...

34楼附件已经更新，看看能合计不！？

wowo000

谢谢您夜晚的辛劳，尊敬的YZC51老师！！！不是俺的意思，回公司再弄附件给您看看。