☰

VBA：基于值范围的枢轴过滤器

tag-icon • tag-icon microsoft-excel vba pivot-table
VBA：基于值范围的枢轴过滤器

我是 VBA 新手，我想编写一个代码来根据单元格范围选择数据透视表过滤器。如何将“CurrentPage”更改为范围值？

  Sub PrintTour()
    ActiveSheet.PivotTables("PivotTable1").PivotFields( _
        "[Bereich 1].[Tour].[Tour ]"). _
        ClearAllFilters
    ActiveSheet.PivotTables("PivotTable1").PivotFields( _
        "[Bereich 1].[Tour].[Tour]"). _
        CurrentPage = "[Bereich 1].[Tour lt. Anlieferungstag].&[4001-01]"
  End Sub

相关内容