excel - マクロを使用して、ピボット テーブルから RowField で繰り返される表示/非表示の値を作成できません

Question

彼ら。すでに 3 日間問題に取り組んでいますが、答えが見つかりません。値の月と年に基づいて、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 日など

私のコードは、たとえば 2012 年 12 月 19 日など、可視化/非可視化されませんが、なぜそれが起こっているのかわかりません。繰り返されるすべての日付について、最初の日付のみが表示され、残りは無視されます。

以前にこの問題に遭遇した人はいますか?