还是汇总的问题！！！

zhaogang1960

liuyuyu880210 发表于 2011-8-18 23:53
厉害真厉害啊、赵老师 想求您帮我做个编制代码的录像可以吗？我也学学自己编写代码。

这些代码是写出来的，不是录制出来的，“编制代码的录像”好像没有意义，就是逐个字符打进去的。

zhaogang1960

liuyuyu880210 发表于 2011-8-19 00:01
能不能做成2行合计自动插入，余额自动计算呢？

Private Sub CommandButton1_Click()
    Dim SQL As String, s As String, i As Long, cnn As Object
    Application.ScreenUpdating = False
    For i = 25 To 7 Step -1
        If InStr(Cells(i, 1).Value, "计") Then Rows(i).Delete
    Next
    Set cnn = CreateObject("adodb.connection")
    cnn.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & "\数据库.mdb"
    s = "select 月份,sum(数量) as 数量,sum(金额) as 金额 from 数据库 where 产品名称='" & [b2] & "' group by 月份"
    SQL = "select a.月份,a.数量,a.金额 from (" & s & ") a right join [Excel 8.0;hdr=no;DATABASE=" & ThisWorkbook.FullName & "].[产品年度销售$a6:a17] b on a.月份=b.f1"
    SQL = "select c.数量,c.金额,null,(select sum(金额)+" & [f5] & " from (" & SQL & ") where 月份<=c.月份) from (" & SQL & ") c"
    [c6].CopyFromRecordset cnn.Execute(SQL)
    cnn.Close
    Set cnn = Nothing
    For i = 18 To 7 Step -3
        Cells(i, 1).Resize(2).EntireRow.Insert
        Cells(i, 1).Resize(2, 7).Font.ColorIndex = 3
        Cells(i, 1) = "季度合计"
        Cells(i + 1, 1) = "本年累计"
        With Cells(i + 1, 3).Resize(, 2)
            .FormulaR1C1 = "=SUM(R6C:R" & i - 1 & "C)"
            .Value = .Value
        End With
        Cells(i, 3).Resize(, 2) = "=SUM(R" & i - 3 & "C:R" & i - 1 & "C)"
    Next
    [a6:g25].Borders.LineStyle = xlContinuous
    Application.ScreenUpdating = True
End Sub

hytsky

标注一下以示关注

netcolt

好好学习，天天向上{:soso_e100:}

daredaniel

学习了，只是还有点疑问！@

susuxiang

使用交叉表應該就可以了,蠻簡單的吧!

zhaogang1960

susuxiang 发表于 2011-8-19 16:30
使用交叉表應該就可以了,蠻簡單的吧!

交叉表是指TRANSFORM语句生成的表？
很希望看到用交叉表来解决该问题，请楼上给出个代码学习一下

蒋-筅笙

学习了，，认真研究！

lzqmsy

做个记号好好学习了,值得一学

wuxiang_123

susuxiang 发表于 2011-8-19 16:30
使用交叉表應該就可以了,蠻簡單的吧!

这里不宜使用交叉查询，如果一定要，也是可以的。只是更复杂化了。本题可以直接用OLE DB SQL也可以用MQ。用MQ还可以实时刷新。