录制的宏不能按要求运行

memory_fly

不好意思又来麻烦各位朋友了。
刚在做一报表时，录制了一宏，但是在运行后发现有很多问题，主要是透视表选择的条件“PBA  Code”与之前做的EXCEL表的位置不一样。
下面是录制的宏，本来想传附件的，但是太大，传不了，只做了一个截图。。
还烦请各位指教。
Sub 按钮101_单击()

Dim ww, aa, ff, ss, xx, q As String
    q = Range("$B$1")
    ww = Range("$B$29")
    aa = Range("$C$29")
    ff = Range("$D$29")
    ss = Range("$E$29")
    xx = Range("$F$29")
    Sheets("MODEL").Select
    ActiveWindow.SmallScroll Down:=-12
    ActiveSheet.PivotTables("数据透视表13").PivotFields("发生日").CurrentPage = _
        q
    ActiveSheet.PivotTables("数据透视表17").PivotFields("发生日").CurrentPage = _
        q
    ActiveSheet.PivotTables("数据透视表18").PivotFields("发生日").CurrentPage = _
        q
    ActiveSheet.PivotTables("数据透视表19").PivotFields("发生日").CurrentPage = _
        q
    ActiveSheet.PivotTables("数据透视表20").PivotFields("发生日").CurrentPage = _
        q
    ActiveSheet.PivotTables("数据透视表7").PivotFields("完了日").CurrentPage = _
        q
    ActiveSheet.PivotTables("数据透视表13").PivotFields("PBA  Code").CurrentPage = _
        ww
    ActiveSheet.PivotTables("数据透视表17").PivotFields("PBA  Code").CurrentPage = _
        aa
    ActiveSheet.PivotTables("数据透视表18").PivotFields("PBA  Code").CurrentPage = _
        ff
    ActiveSheet.PivotTables("数据透视表19").PivotFields("PBA  Code").CurrentPage = _
        ss
    ActiveSheet.PivotTables("数据透视表20").PivotFields("PBA  Code").CurrentPage = _
        xx
    ActiveWindow.SmallScroll Down:=-129
    Range("E6").Select
    Sheets("TOP5").Select
    ActiveWindow.SmallScroll Down:=-12
End Sub

memory_fly

今天周末，请问有人在吗？请帮忙赐教。感激ing。。。。。。。。。。

nkgsm

个人认为数据透视好像没有必要做宏，只要数据源做成列表形式，刷新一下即可，字段可以再拖曳，这已经是数据处理最快的了，难到你还在乎这几秒，非要搞个按钮，1秒搞定。

memory_fly

原帖由 nkgsm 于 2009-7-20 14:04 发表
个人认为数据透视好像没有必要做宏，只要数据源做成列表形式，刷新一下即可，字段可以再拖曳，这已经是数据处理最快的了，难到你还在乎这几秒，非要搞个按钮，1秒搞定。

传附件了，这也是领导的要求，我没有办法。