请帮忙解决一个汇总问题

zenitron

4BTn4sVU.rar (8.47 KB, 下载次数: 11)

2006-12-20 09:51 上传

点击文件名下载附件
请帮忙解决一个汇总问题

请好汉帮忙解决一个汇总问题，每次我都拿计算器加来加去的，好麻烦呀。

报告又多，希望通过大家帮忙，提高一下自己的工作效率

请看附件要求。

stx1980710

这个问题用数据透视表就可以解决：

EsHWBClj.rar (8 KB, 下载次数: 11)

2006-12-20 10:40 上传

点击文件名下载附件

[此贴子已经被作者于2006-12-20 10:41:00编辑过]

zenitron

谢谢STX：

我想我需要好好学习才行。对这我个功能我很不熟悉，但我的数据很多，另外我忘了把金额的统计加上去。还有更好的方法吗？我个人比较喜欢VBA，能帮帮我吗？

附件重新再上传了

9A1kBfQQ.rar (7.41 KB, 下载次数: 7)

2006-12-20 11:36 上传

点击文件名下载附件
请帮忙解决一个汇总问题

zenitron

哪位再帮帮忙解决以下吧，谢谢了

爱歌学习

Private Sub CommandButton1_Click()
    Set Cnn = CreateObject("ADODB.connection")
    Cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & ActiveWorkbook.FullName
    Sql = "TRANSFORM Sum([出货数量]) SELECT [材料编号] AS 材料编号,[型号规格] AS 型号规格 FROM " & _
            "[出货统计$A2:I" & Sheets("出货统计").[A65536].End(xlUp).Row & "] GROUP BY [材料编号],[型号规格] " & _
            "PIVOT MONTH([日期]) "
    [A4].CopyFromRecordset Cnn.Execute(Sql)
    Cnn.Close: Set Cnn = Nothing
End Sub

stx1980710

老师，楼主还要对金额进行汇总，更新的附件在3楼！

这样的话，用交叉表查询好像不行，因为他要对两个字段汇总！

我试过不行！

[此贴子已经被作者于2006-12-20 16:57:57编辑过]

zenitron

爱歌，STX：

   看到你们这么热心帮我，真的很高兴。之前爱歌就帮了很多忙了，再次抱以十分的感谢！希望能再帮忙改进一下吗？我一下午就忙着做这报告呢？ 我希望是数量和金额都能汇总。见三楼附件。

爱歌学习

这单一语句还真不行，不过以前做过一个类似的，改动了一下，还真是可以：

Private Sub CommandButton1_Click()
    Dim SQL$, sql1$, sql2$, sql3$, i%, maxrow&, t
    maxrow = Sheets("出货统计").[A65536].End(xlUp).Row
    Set CNN = CreateObject("ADODB.Connection")
    CNN.Open "provider=microsoft.jet.oledb.4.0;extended properties=Excel 8.0;data source=" & ThisWorkbook.FullName
    For i = 1 To 12
        sql1 = sql1 & "数量" & i & ",金额" & i & ","
        sql2 = sql2 & "("
        sql3 = sql3 & " left join (select 材料编号,sum(数量) as 数量" & i & ",sum(金额) as 金额" & i & _
                " from [出货统计$A2:I" & maxrow & "] where month(日期)=" & i & " group by 材料编号) as b" & i & _
                " on a.材料编号=b" & i & ".材料编号)"
    Next
    sql1 = Left(sql1, Len(sql1) - 1)
    sql2 = Left(sql2, Len(sql2) - 1)
    sql3 = Left(sql3, Len(sql3) - 1)
    SQL = "select a.材料编号,a.型号规格," & sql1 & " from (" & sql2 & "select distinct 材料编号,型号规格 " & _
            "from [出货统计$A2:I" & maxrow & "]) as a " & sql3
    [a5].CopyFromRecordset CNN.Execute(SQL)
    CNN.Close: Set CNN = Nothing
End Sub

uXvcw8mO.rar (12.91 KB, 下载次数: 38)

2006-12-20 20:42 上传

点击文件名下载附件
请帮忙解决一个汇总问题

zenitron

非常受用，感谢爱歌和STX的无私帮助。你们真是帮别人解决了不少工作上的麻烦。越来越喜欢EXCELHOME了

zenitron

QUOTE:

以下是引用爱歌学习在2006-12-20 20:42:40的发言：

这单一语句还真不行，不过以前做过一个类似的，改动了一下，还真是可以：

Private Sub CommandButton1_Click()
    Dim SQL$, sql1$, sql2$, sql3$, i%, maxrow&, t
    maxrow = Sheets("出货统计").[A65536].End(xlUp).Row
    Set CNN = CreateObject("ADODB.Connection")
    CNN.Open "provider=microsoft.jet.oledb.4.0;extended properties=Excel 8.0;data source=" & ThisWorkbook.FullName
    For i = 1 To 12
        sql1 = sql1 & "数量" & i & ",金额" & i & ","
        sql2 = sql2 & "("
        sql3 = sql3 & " left join (select 材料编号,sum(数量) as 数量" & i & ",sum(金额) as 金额" & i & _
                " from [出货统计$A2:I" & maxrow & "] where month(日期)=" & i & " group by 材料编号) as b" & i & _
                " on a.材料编号=b" & i & ".材料编号)"
    Next
    sql1 = Left(sql1, Len(sql1) - 1)
    sql2 = Left(sql2, Len(sql2) - 1)
    sql3 = Left(sql3, Len(sql3) - 1)
    SQL = "select a.材料编号,a.型号规格," & sql1 & " from (" & sql2 & "select distinct 材料编号,型号规格 " & _
            "from [出货统计$A2:I" & maxrow & "]) as a " & sql3
    [a5].CopyFromRecordset CNN.Execute(SQL)
    CNN.Close: Set CNN = Nothing
End Sub

你好爱歌：

      我又遇到问题，如果材料编号是数字好象程序有问题，必须要字母开头吗？

另外 [a5].CopyFromRecordset CNN.Execute(SQL) ，是什么意思呀？我用到其他表中，

就提示这句有问题。