Public Sub 透视表页签_强制设置_筛选字段和内容()

     Dim pt_1 As PivotTable

     Dim pt_2 As PivotTable

     Dim pt_3 As PivotTable

    Dim NianYue As String                                                            '--透视表01页签的,年月的筛选条件

   '--设置<透视表01>的筛选条件

    For Each pt_1 In Worksheets("透视表Z-01").PivotTables

        '--强制设置<筛选区域>的<字段和内容>

         With pt_1

              '--**************************************************

              '--强制设置筛选字段--<筛选区域>

              .PivotFields("科目项目状况").Orientation = xlPageField

              .PivotFields("币别名称").Orientation = xlPageField

              .PivotFields("科目级次").Orientation = xlPageField

              .PivotFields("年度月份").Orientation = xlPageField

               '--给“报表筛选”赋值--<筛选区域>

              .PivotFields("科目项目状况").CurrentPage = "科目金额"

              .PivotFields("币别名称").CurrentPage = "综合本位币"

              .PivotFields("科目级次").CurrentPage = "1"

              '--获取:透视表01页签的,年月的筛选条件

               NianYue = .PivotFields("年度月份").CurrentPage

              '--**************************************************

              '--强制设置字段--<行标签区域>

              .PivotFields("科目类别1级_编码和名称").Orientation = xlRowField

              .PivotFields("科目类别1级_编码和名称").Position = 1

              .PivotFields("科目编码和名称").Orientation = xlRowField

              .PivotFields("科目编码和名称").Position = 2

               '--给“行标签字段”赋值--<行标签>

              '.PivotFields("科目类别1级_编码和名称").PivotItems("5-损益").Visible = False

          End With

    Next 

   '--设置<透视表02>的筛选条件

    For Each pt_2 In Worksheets("透视表Z-02").PivotTables

         With pt_2

              '--强制设置筛选字段

              .PivotFields("科目项目状况").Orientation = xlPageField

              .PivotFields("币别名称").Orientation = xlPageField

              .PivotFields("科目编码和名称").Orientation = xlPageField

              .PivotFields("年度月份").Orientation = xlPageField

               '--给“报表筛选”赋值

              .PivotFields("科目项目状况").CurrentPage = "科目金额"

              .PivotFields("币别名称").CurrentPage = "综合本位币"

             '.PivotFields("科目编码和名称").CurrentPage = "内部往来"

             '--赋值:透视表02页签的,年月的筛选条件

              .PivotFields("年度月份").CurrentPage = NianYue

          End With

    Next

   '--设置<透视表03>的筛选条件

    For Each pt_3 In Worksheets("透视表Z-03").PivotTables

         With pt_3

              '--强制设置筛选字段

              .PivotFields("科目项目状况").Orientation = xlPageField

              .PivotFields("币别名称").Orientation = xlPageField

              .PivotFields("科目级次").Orientation = xlPageField

              .PivotFields("年度月份").Orientation = xlPageField

               '--给“报表筛选”赋值

              .PivotFields("科目项目状况").CurrentPage = "科目金额"

              .PivotFields("币别名称").CurrentPage = "综合本位币"

              .PivotFields("科目级次").CurrentPage = "全部"

              '--赋值:透视表03页签的,年月的筛选条件

              .PivotFields("年度月份").CurrentPage = NianYue

          End With

    Next

End Sub