请给予帮助：关于录制的宏的问题。有附件

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

zldccmx

短信收到，但是老朽没有接触过数据透视，所以帮不上你的忙
Sorry