销售开票分析如何使用数据透视表（未解决）

dftn888

高人帮忙：销售开票内的销售分析如何建立使用数据透视表，做了好长时间做不出，老出现数据引用错误提示，只好请教高人老师帮忙。要求对1-12月的销售明细动态数据进行汇总，2007做的。2003兼容的附件放在在3楼了。

[ 本帖最后由 dftn888 于 2009-4-19 21:31 编辑 ]

cn.roger

2007的我打不开，没办法看你的附件。

dftn888

这个2003兼容的，嘿嘿！

cn.roger

你是要把1月....12月的明细表做一个数据透视，不知道怎么引用这些Sheet吗

fghjzxc

挺好的!简单宜用

dftn888

原帖由 cn.roger 于 2009-4-17 16:38 发表
你是要把1月....12月的明细表做一个数据透视，不知道怎么引用这些Sheet吗

是的，老师。工作簿中有一个销售分析工作表，做透视表用的。

[ 本帖最后由 dftn888 于 2009-4-17 17:38 编辑 ]

office2008

加一句：   If nRows = 0 Then Exit Sub

dftn888

原帖由 office2008 于 2009-4-18 10:02 发表
加一句：   If nRows = 0 Then Exit Sub

请教加在那句后面，好象没有变化，能注解下吗？

office2008

Private Sub CommandButton1_Click()
    Dim Sh As Worksheet, c As Range
    Dim nRows%, nRow&
    If Range("b5") = "" Then Exit Sub
    nRows = Range("b12").End(xlUp).Row - 5
    If nRows = 0 Then Exit Sub                                      ' 假如 开票 表上没有数据 就 不要执行下去了.   否则会出错.
    Set Sh = Sheets(Month(Range("h4")) & "月")
    With Sh
        Set c = .Range("a:a").Find(Range("h3").Value, LookIn:=xlValues, lookat:=1)
        If c Is Nothing Then
            nRow = .Range("a65536").End(xlUp).Row + 1
            .Range("d" & nRow).Resize(6, 6).Value = Range("b6:h11").Value
            .Range("a" & nRow).Resize(nRows, 1) = Range("h3").Value
            .Range("b" & nRow).Resize(nRows, 1) = Range("h4").Value
            .Range("c" & nRow).Resize(nRows, 1) = Range("c4").Value
        End If
    End With
    Sheets("套打").PrintOut
    Range("b6:e11").ClearContents
    Range("h6:h11").ClearContents
    Range("c4").ClearContents
    Range("e4").ClearContents
    Range("c14").ClearContents
    Range("e14").ClearContents

End Sub

数据透视表 两大版主 ( jssy , BIN_YANG168 ) 讲的很详细了,最主要是SQL语句,以及跨表跨工作簿的应用以及其他一些技巧 ,他们 都举了例子了,你可以去看看. 然后改进你的系统.

dftn888

苦恼，定义动态名称后，创建数据透视表时，老是数据引用错误。