[已解决]求助 12月怎么没有“本月合计”“本年累计”了？

苗春雨

求助   12月怎么“本月合计”“本年累计”不起作用了？见附件 本月合计和累计.rar (17.01 KB, 下载次数: 59)

2011-12-8 09:28 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

过江龙

2011-12-8 12:47

这下应该可以了。

跳转到最佳答案楼层

过江龙

这下应该可以了。

苗春雨

谢谢“过江龙”的指导，但我不知道修改了哪里？

过江龙

在宏“插入合计行”中增加对12月份的判断：
X = [A65536].End(xlUp).Row
If X > 1 Then
  If Month(Cells(X, 1)) = 12 Then
     Cells(X + 2, "b") = "本年累计"
     Cells(X + 2, "d").Formula = "=SUMPRODUCT((A2:A" & X & "<>0)*d2:d" & X & ")"
     Cells(X + 2, "e").Formula = "=SUMPRODUCT((A2:A" & X & "<>0)*e2:e" & X & ")"
     Cells(X + 1, "b") = "本月合计"
     Cells(X + 1, "d").Formula = "=SUMPRODUCT((MONTH(A2:A" & X & ")=12)*d2:d" & X & ")"
     Cells(X + 1, "e").Formula = "=SUMPRODUCT((MONTH(A2:A" & X & ")=12)*e2:e" & X & ")"
  End If
End If因为内置函数Month的参数为0话，它的返回值是12，