Excel 2003でピボット可能なフィルタ

Question

VBAを使用してExcel 2003でピボットテーブルをフィルタリングするにはどうすればよいですか？

は、Excel 2007では、私はこのマクロを実行することができますが、Pivo​​tFiltersは

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

更新XL 2003に実装されていません：私は、エラー「実行時エラー「1004" を取得 。 PivotItemクラスのVisibleプロパティを設定できません。ワークシート

として

サブフィルター（） 薄暗いPvtItem PivotItem 点心としてWS

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 

End Subの

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

Answer 1

VBA 2003年にPivotFieldをフィルタリングするには、あなたが/解除を設定する必要があります.Visibleプロパティ。 「VisibleプロパティPivotItemクラスを設定することができません」 既知のバグのようです、私はマイクロソフトのサポートエンジニアを使用しています：ここで私はエラーを取得する例

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