Pivot items visible 问题

Chip_Kenny

求助:- 本人使用在繁体Excel 2010, 同一代码在显示日期上无效, 已试过以格式 "yyyy/m/d" , "d/m/yyyy" , "m/d/yyyy" 都不成功.
附件 “General”运行正常; “Date”不成功

Sub cc()
Dim Pi As PivotItem
Dim Pn As String
Dim tof As Boolean
ActiveSheet.PivotTables(1).PivotCache.Refresh
For Each Pi In ActiveSheet.PivotTables(1).PivotFields(2).PivotItems
Pn = Pi.Name
tof = IIf(Pn Like "(*)", 1, 0)
Pi.Visible = tof
Next
End Sub