在Excel 2003中筛选数据透视表

如何使用VBA筛选Excel 2003中的数据透视表？

在Excel 2007中，我可以运行这个macros，但在XL 2​​003中没有实现PivotFilters。

Dim ws As Worksheet: Set ws = Sheets("Sheet1") ws.PivotTables("PivotTable1").PivotFields("Date").PivotFilters.Add _ Type:=xlSpecificDate, Value1:="26/01/2012" 

更新：我得到一个错误“运行时错误”1004“。 无法设置PivotItem类的Visible属性。

Sub Filter（）Dim PvtItem As PivotItem Dim ws as Worksheet

 Set ws = Sheets("pivot") '~~> Show All For Each PvtItem In ws.PivotTables("PivotTable1").PivotFields("Date").PivotItems PvtItem.Visible = True Next '~~> Show Only the relevant For Each PvtItem In ws.PivotTables("PivotTable1").PivotFields("Date").PivotItems If PvtItem.Value <> "26/01/2012" Then PvtItem.Visible = False '<-- error here Next 

结束小组

http://wikisend.com/download/426518/pivot.xls

Answer 1

要在VBA 2003中筛选PivotField，必须设置/取消设置.Visible属性。 这里是一个例子

 Option Explicit Sub Filter() Dim PvtItem As PivotItem Dim ws As Worksheet On Error GoTo Whoa1 Set ws = Sheets("pivot") '~~> Show All For Each PvtItem In ws.PivotTables("PivotTable1").PivotFields("Date").PivotItems PvtItem.Visible = True Next On Error GoTo Whoa2 '<~~ If no match found in Pivot '~~> Show Only the relevant For Each PvtItem In ws.PivotTables("PivotTable1").PivotFields("Date").PivotItems If Format(PvtItem.Value, "DD/MM/YYYY") <> Format(Range("today"), "DD/MM/YYYY") Then PvtItem.Visible = False End If Next Exit Sub Whoa1: MsgBox Err.Description Exit Sub Whoa2: '~~> Show All For Each PvtItem In ws.PivotTables("PivotTable1").PivotFields("Date").PivotItems PvtItem.Visible = True Next End Sub