请老师帮忙完善一下代码（在账页中插入本月合计和本年累计），谢谢！

zh2783458

请老师帮忙完善一下代码（在账页中插入本月合计和本年累计），详见附件，谢谢！

lsc900707

参考一下：
本期合计和本年累计问题
http://club.excelhome.net/thread-1192950-1-1.html
(出处: ExcelHome技术论坛)

iwangyi

Sub aa()
起始月份 = Cells(1, 2): 终止月份 = Cells(2, 2)
科目起始代码 = Cells(1, 3): 科目终止代码 = Cells(2, 3)
Application.DisplayAlerts = False
Set cn = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
cn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source= " & ThisWorkbook.FullName
Sql = "SELECT * FROM [流水账$a3:l] where 月 between " & 起始月份 & " and " & 终止月份 & ""   'and left(二级科目代码,7) between " & 科目起始代码 & " and " & 科目终止代码 & ""
Set rs.ActiveConnection = cn
rs.Open Sql
Set pvc = ActiveWorkbook.PivotCaches.Add(SourceType:=xlExternal)
Set pvc.Recordset = rs
Set pvt = ActiveSheet.PivotTables.Add(PivotCache:=pvc, TableDestination:=Range("m10"))
With pvt
.SmallGrid = False
.AddFields RowFields:="摘要说明", ColumnFields:="三级科目"
.AddDataField .PivotFields("借方金额"), "借方金额求和", xlSum
.RowGrand = False
End With
End Sub

iwangyi

附件**********

zh2783458

iwangyi 发表于 2018-8-22 09:52
附件**********

谢谢您的解答，但我还是想要在流水账表中，点击“生成施工账页”后的那种格式的账页。好想在账页中的每个月后，加上“本月合计”和“本年累计”，那样就更符合登记账页的格式。

iwangyi

那就是说 起始月份，终止月份----这一系列条件都不要了，只要本月和年累。

zh2783458

iwangyi 发表于 2018-8-22 11:39
那就是说 起始月份，终止月份----这一系列条件都不要了，只要本月和年累。

是的，谢谢！好想把本月合计和本年累计的代码放入“生成施工账页”代码里面。如附件中的后面两个工作表的样式，这两个表可以随时删除。实际上流水账工作表里面会有1-12月份不同科目的数据，也就是说会生成很多的账页。

iwangyi

那流水账表头部分全是误导，知道了，抽时间看一下

zh2783458

iwangyi 发表于 2018-8-22 11:48
那流水账表头部分全是误导，知道了，抽时间看一下

谢谢朋友：请有空时，帮我看一下，好吗？是把本月合计和本年累计的代码放入“生成施工账页”代码里面。如附件中的后面两个工作表的样式，这两个表可以随时删除。实际上流水账工作表里面会有1-12月份不同科目的数据，也就是说会生成很多的账页。

iwangyi

楼主变通改一下即可
第一，当前月汇总where 后改为 月=mOnth(date)
第二，当年累积汇总Where 后改为 月 betWeen1 And month(date)