2012-05-04 221 views
0

如果我將區域語言格式設置爲英語(英國),則使用此過濾器時出現問題,如果使用英語(美國),則此功能運行良好。 我的問題是,該過濾器不會使5月30日的選擇不可見,它在該調用失敗並轉到錯誤部分。在Excel中過濾數據透視表

http://wikisend.com/download/138750/Pivottable.xls

這是一個已知的bug? http://support.microsoft.com/default.aspx?scid=kb;en-us;114822&Product=xlw

它過濾日期simular發佈Filter pivottable in Excel 2003

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 
+0

你有什麼問題? – mischab1

+0

抱歉,尚不清楚添加更好的描述 – Damian

回答

1

久經考驗的2003年EXCEL(與英國設置)

上的日期字段右擊如快照所示,然後單擊Field Settings,然後點擊Number。如圖所示設置日期格式。現在嘗試相同的代碼。

enter image description here

+0

不工作對不起!使用Excel 2007和Windows 7. – Damian

+0

嗯,我的印象是,你使用Excel 2003 ... –

相關問題