Filter Pivot in Excel

Question

У меня проблема с этим фильтром, если я устанавливаю формат регионального языка на английский (Великобритания), он хорошо работает, если я использую английский (Соединенные Штаты). Моя проблема заключается в том, что фильтр не делает выбор 30 мая невидимым, он терпит неудачу в этом вызове и переходит к разделу ошибки.

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

это известная ошибка? http://support.microsoft.com/default.aspx?scid=kb;en-us;114822&Product=xlw

фильтрует даты Двойники размещать 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 

Answer 1

опробовано EXCEL 2003 (С Настройки Великобритании)

правой кнопкой мыши на поле даты, как показано на снимке, и нажмите Field Settings, а затем нажмите Number. Установите формат даты, как показано. Теперь попробуйте тот же код.