自动汇总报表

huangyun

gjKbP8Lt.rar (15.23 KB, 下载次数: 176)

2006-3-30 14:24 上传

点击文件名下载附件
自动汇总报表

利用VBA从表一数据汇总成表二格式,谢谢!

excel追随者

顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶
顶顶顶☆☆☆☆顶顶顶顶顶☆☆☆☆顶顶顶
顶顶☆☆☆☆☆☆顶顶顶☆☆☆☆☆☆顶顶
顶☆☆☆☆☆☆☆☆顶☆☆☆☆☆☆☆☆顶
顶☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆顶
顶☆☆☆☆☆☆一辛苦了一☆☆☆☆☆☆顶
顶☆☆☆☆☆一谢一谢一你一☆☆☆☆☆顶
顶顶☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆顶顶
顶顶顶☆☆☆☆☆☆☆☆☆☆☆☆☆顶顶顶
顶顶顶顶☆☆☆☆☆☆☆☆☆☆☆顶顶顶顶
顶顶顶顶顶☆☆☆☆☆☆☆☆☆顶顶顶顶顶
顶顶顶顶顶顶☆☆☆☆☆☆☆顶顶顶顶顶顶
顶顶顶顶顶顶顶☆☆☆☆☆顶顶顶顶顶顶顶
顶顶顶顶顶顶顶顶☆☆☆顶顶顶顶顶顶顶顶
顶顶顶顶顶顶顶顶顶☆顶顶顶顶顶顶顶顶顶

山菊花

用“数据-分类汇总”就行。

再加筛选。

huangyun

是的,不过既然是放到VBA板块,就是想通过VBA解决的.

huangyun

初步的代码已经完成,但有个小缺陷:

Sub 分类汇总()
Dim StrSql As String
Set MyData = CreateObject("ADODB.Connection")

MyData.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;';Data Source=" & ThisWorkbook.FullName
StrSql = StrSql & "SELECT 属地,所属油库,品名,安全容量,空容量,进货量,本月进货量,本年进货量,发货量,本月发货量,本年发货量,数据1,数据2,数据3,本日库存量,正常可发量,期末未提数 FROM [sheet1$A3:Q999] WHERE 本日库存量<>Null "
StrSql = StrSql & "Union all SELECT 属地 & ' 小计' ,'','',sum(安全容量),sum(空容量) ,sum(进货量),sum(本月进货量),sum(本年进货量),sum(发货量),sum(本月发货量),sum(本年发货量), sum(数据1),sum(数据2),sum(数据3),sum(本日库存量),sum(正常可发量),sum(期末未提数) FROM [sheet1$A3:Q999] WHERE 本日库存量<> Null GROUP BY 属地 "
StrSql = StrSql & "Union all SELECT '总计' as Temp,'','',sum(安全容量),sum(空容量) ,sum(进货量),sum(本月进货量),sum(本年进货量),sum(发货量),sum(本月发货量),sum(本年发货量), sum(数据1),sum(数据2),sum(数据3),sum(本日库存量),sum(正常可发量),sum(期末未提数) FROM [sheet1$A3:Q999] WHERE 本日库存量<> Null "
StrSql = StrSql & " Order by 属地"
Set TempData = MyData.Execute(StrSql)
Sheet2.Range("A2:Q1000").ClearContents
Sheet2.[A2].CopyFromRecordset TempData

Set MyData = Nothing: Set TempData = Nothing

End Sub

执行红色代码前,一切数据都是对的.按理说红色代码是排序的代码,它可以把带"小计"的给分别添加到属地的最后,可实际上执行了后是乱序的,第一个是威海,后面是总计,潍坊,.......完全不是正常的次序,我搞了半天,没能想明白.请各位好心人给分析一下原因,及解决的方法.

lkyzhs

把东西贴上来！！！

huangyun

啥东西呀?我还以为有人回帖子呢!

huangyun

没人知道吗?

爱歌学习

哦，你是要分类汇总? 那该用 group by 啊

爱歌学习

为何不按拼音或笔划排序，原因不明，现在我增加了一个字段，可以按拼音排序了。同时要谢谢你，以前我没做过这样的小计总计，这下又学了不少了 xLZLQjJ0.rar (43.58 KB, 下载次数: 202)

2006-4-3 22:32 上传

点击文件名下载附件

[此贴子已经被作者于2006-4-3 22:32:25编辑过]