存货明细账自动登记与打印(请帮我设置本月合计、本季合计、本年合计)

mickey5772 · 发表于 2010-9-1 21:35

问题还是没有解决，数据显示不全，只显示到6月份，有些还漏掉了一两项数据，而出现了负库存，麻烦楼主再帮我看一下，楼主能不能解释一下思路。添加的辅助列有什么作用。谢谢了

[ 本帖最后由 mickey5772 于 2010-9-1 21:39 编辑 ]

leibin1981 · 发表于 2010-9-5 11:58

存货明细账自动登记与打印

hyz00001 · 发表于 2010-9-18 15:07

辅助列好像没有什么作用。
主要的还是SMALL函数和index函数。
至于只到六月份就没有了，我建议你看看是不是某个地方的绝对应用或者相对应用的问题。

asjm · 发表于 2011-4-26 11:37

你好的，正是我想要的~~
但对代码不了解~~~能帮我做一下吗？

hyz00001 · 发表于 2011-4-27 23:13

我也不知道，你还是请教侠圣先生吧。

张志云 · 发表于 2012-7-19 14:29

楼主问题解决了没有。懒笨之人要吃白食

中原一布衣 · 发表于 2013-5-6 20:45

9楼的方法不错！值得参考！！只是不知道数据量大时速度怎么样？

hyz00001 · 发表于 2019-1-9 10:29

gly1126 发表于 2010-4-24 11:47
VBA+ADO+SQL解法

感谢你，这个太强大了。

Sub mxz()
Dim conn As New ADODB.Connection
Dim rst As New ADODB.Recordset
conn.Open "dsn=excel files;dbq=" & ThisWorkbook.FullName
Application.ScreenUpdating = False
With Worksheets("mxz")
'清空明细账
.UsedRange.Offset(3, 0).ClearContents
'取年初数据
Set rst = conn.Execute("select ' ',' ','上年结转',0,0,0,0,期初数量,期初金额 from [期初数据$] where 页码='" & UCase(.Range("i1")) & "' and 期初金额<>0")
.Range("a65536").End(xlUp).Offset(1, 0).CopyFromRecordset rst
'取明细数据
Set rst = conn.Execute("select 日期,凭证号,摘要,借方数量,借方金额,贷方数量,贷方金额,0,0 from [09年度数据$] where 页码='" & UCase(.Range("i1")) & "' order by 日期,凭证号")
.Range("a65536").End(xlUp).Offset(1, 0).CopyFromRecordset rst
'计算余额
If .Range("c4") <> "上年结转" Then .Range("h4") = .Range("d4"): .Range("i4") = .Range("e4")
For i = 5 To .Range("a65536").End(xlUp).Row
.Cells(i, 8) = .Cells(i - 1, 8) + .Cells(i, 4) - .Cells(i, 6)
.Cells(i, 9) = .Cells(i - 1, 9) + .Cells(i, 5) - .Cells(i, 7)
Next i
'取本月合计
Set rst = conn.Execute("select max(日期),'','本月合计',SUM(借方数量),SUM(借方金额),SUM(贷方数量),SUM(贷方金额),0,0 from [09年度数据$] where 页码='" & UCase(.Range("i1")) & "' and (借方金额<>0 OR 贷方金额<>0) group by month(日期) order by 1")
.Range("a65536").End(xlUp).Offset(1, 0).CopyFromRecordset rst
'取本季累计
'一季度
Set rst = conn.Execute("select max(日期),'','本季累计',SUM(借方数量),SUM(借方金额),SUM(贷方数量),SUM(贷方金额),0,0 from [09年度数据$],(select distinct month(日期) as rq from [09年度数据$] where month(日期) in(1,2,3)) as ljrq where 页码='" & UCase(.Range("i1")) & "' and (借方金额<>0 OR 贷方金额<>0) and month(日期)<=rq and month(日期) in(1,2,3) group by rq order by 1")
.Range("a65536").End(xlUp).Offset(1, 0).CopyFromRecordset rst
'二季度
Set rst = conn.Execute("select max(日期),'','本季累计',SUM(借方数量),SUM(借方金额),SUM(贷方数量),SUM(贷方金额),0,0 from [09年度数据$],(select distinct month(日期) as rq from [09年度数据$] where month(日期) in(4,5,6)) as ljrq where 页码='" & UCase(.Range("i1")) & "' and (借方金额<>0 OR 贷方金额<>0) and month(日期)<=rq and month(日期) in(4,5,6) group by rq order by 1")
.Range("a65536").End(xlUp).Offset(1, 0).CopyFromRecordset rst
'三季度
Set rst = conn.Execute("select max(日期),'','本季累计',SUM(借方数量),SUM(借方金额),SUM(贷方数量),SUM(贷方金额),0,0 from [09年度数据$],(select distinct month(日期) as rq from [09年度数据$] where month(日期) in(7,8,9)) as ljrq where 页码='" & UCase(.Range("i1")) & "' and (借方金额<>0 OR 贷方金额<>0) and month(日期)<=rq and month(日期) in(7,8,9) group by rq order by 1")
.Range("a65536").End(xlUp).Offset(1, 0).CopyFromRecordset rst
'四季度
Set rst = conn.Execute("select max(日期),'','本季累计',SUM(借方数量),SUM(借方金额),SUM(贷方数量),SUM(贷方金额),0,0 from [09年度数据$],(select distinct month(日期) as rq from [09年度数据$] where month(日期) in(10,11,12)) as ljrq where 页码='" & UCase(.Range("i1")) & "' and (借方金额<>0 OR 贷方金额<>0) and month(日期)<=rq and month(日期) in(10,11,12) group by rq order by 1")
.Range("a65536").End(xlUp).Offset(1, 0).CopyFromRecordset rst
'取本年累计
Set rst = conn.Execute("select max(日期),'','本年累计',SUM(借方数量),SUM(借方金额),SUM(贷方数量),SUM(贷方金额),0,0 from [09年度数据$],(select distinct month(日期) as rq from [09年度数据$]) as ljrq where 页码='" & UCase(.Range("i1")) & "' and (借方金额<>0 OR 贷方金额<>0) and month(日期)<=rq group by rq order by 1")
.Range("a65536").End(xlUp).Offset(1, 0).CopyFromRecordset rst
'明细账排序
.UsedRange.Offset(3, 0).Sort Key1:=Range("A4"), Header:=xlGuess
End With
Application.ScreenUpdating = True
End Sub

复制代码

jhzghua · 发表于 2020-7-19 09:05

留个记号,可能会用

		自动登录	找回密码
密码			免费注册

[求助] 存货明细账自动登记与打印(请帮我设置本月合计、本季合计、本年合计)

回复 9楼 gly1126 的帖子