数据透视表过滤器月份选择当前月份之前的全部

Question

大家好，我发现以下代码可用于我的数据透视表过滤器并选择月份。我的问题是我想选择当前日期之前的所有月份，例如，如果我们有10月10日，我想从1月到9月进行选择。我选择的代码是12月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

结束子