excel - 无法使用宏在数据透视表的 RowField 中创建可见/不可见值

Question

伙计们。我已经处理了三天的问题，但没有找到答案。我正在尝试根据值的月份和年份从 RowField 的下拉列表中显示某些值。

For j = 2112 To i 'I don't need the values from 1 to 2111
dName = pvt.RowFields(1).PivotItems(j).Name
dt = CDate(dName)
If Month(dt) = month Then
    If pvt.RowFields(1).PivotItems(j).Visible = False Then
        pvt.RowFields(1).PivotItems(j).Visible = True
    End If
End If 
Next j

在我的下拉列表中，我的值是日期，如下所示：

[] （全选）

[]

[] 2012 年 12 月 19 日

[] 2012 年 12 月 19 日

[] 2012 年 12 月 30 日

[] 2013 年 2 月 2 日

[] 2013 年 2 月 13 日

[] 2013 年 2 月 13 日

[] 2013 年 5 月 15 日

[] 2013 年 5 月 19 日等。

我的代码不会使可见/不可见，例如，第二个 19-Dec-2012 我不知道为什么会这样。对于所有重复的日期，只有第一个日期可见，其余日期将被忽略。

有没有人遇到过这个问题？