Фильтр сводной таблицы по месяцам выбрать все до текущего месяца

Question

Привет всем. Я нашел следующий код для использования в фильтре сводных таблиц и выбрал месяцы.Моя проблема в том, что я хочу выбрать весь месяц до текущего, например, если у нас октябрь 10-й месяц, который я хочу выбрать с января по сентябрь.Код, который я выбрал за весь месяц до 12 декабря.Может ли кто-нибудь помочь мне изменить этот код в соответствии с моими потребностями?

Sub PivotTest()
With ActiveSheet.PivotTables("PivotTable3").PivotFields("ÌÞíáò")
For i = 1 To .PivotItems.Count
If i < 12 Then
            .PivotItems(i).Visible = True
Else
            .PivotItems(i).Visible = False
        End If
    Next i
End With
ActiveSheet.PivotTables("PivotTable3").PivotCache.Refresh

End Sub