[已解决]帮看一些这个代码错在哪里谢谢

jayzoudequan

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("b" & m + 1).End(xlUp).Row
Range("F" & m + 1) = Evaluate("SUMPRODUCT(($a$6:$a" & i & "=$a" & i & ")*H$6:H" & i & ")")
Range("G" & 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

最佳答案

月排行榜 / 总排行榜

lyn666666

2011-3-18 20:05

多栏式明细账.rar (10.94 KB, 下载次数: 18)

2011-3-18 20:04 上传

点击文件名下载附件
看看管理费用表是不是你要的效果

跳转到最佳答案楼层

吕?布

没发现有时显的错,发个附件得更清楚一点吧

jayzoudequan

恩好的谢谢

lyn666666

多栏式明细账.rar (10.94 KB, 下载次数: 18)

2011-3-18 20:04 上传

点击文件名下载附件
看看管理费用表是不是你要的效果

jayzoudequan

回复 lyn666666 的帖子

是这种效果谢谢