在Excel中過濾數據透視

Question

如果將區域語言格式設置為英語（英國），則此過濾器會出現問題，如果使用英語（美國），則效果很好。 我的問題是篩選器不會使對5月30日的選擇不可見，它在該調用中失敗並轉到錯誤部分。

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

這是一個已知的錯誤？ http://support.microsoft.com/default.aspx?scid=kb;zh-CN;114822&Product=xlw

它過濾模擬日期以在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

Answer 1

在EXCEL 2003中進行了測試（使用英國設置）

右鍵單擊快照中所示的“日期”字段，然后單擊“ Field Settings ，然后單擊“ Number 。 如圖所示設置日期格式。 現在嘗試相同的代碼。