请问？~帐页同样的数据第一页的本月合计可以正常显示，可是第二页的变成#VALUE!咋办！

289345279

我的应收账款帐页，第一页是可以正常使用的，可是到了第二页第二个客户要本月合计时借贷方就变成了#VALUE!。
请各位大虾指点指点，到底是什么地方出现错误了呢·！

求助.rar (46.86 KB, 下载次数: 12)

2012-6-27 22:52 上传

点击文件名下载附件

kakaco

又没有公式？？
是不是这个公式？

1. =SUM(H36:H38)

复制代码

289345279

kakaco 发表于 2012-6-27 23:07
又没有公式？？
是不是这个公式？

它这个是直接选本月合计之后会自动计算出来的~！

kakaco

289345279 发表于 2012-6-27 23:10
它这个是直接选本月合计之后会自动计算出来的~！

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


这个看的不是很懂。

是不是 右边的是文本型数值？？

289345279

啊？那个是人家弄的，我也不是很懂~！