Я сталкиваюсь с проблемой, когда применение фильтра в моем центре может помочь мне с фильтром даты текущего квартала.
With pt.PivotFields("Allocation Date")
.Orientation = xlPageField
.Position = 1
.EnableMultiplePageItems = True
.PivotItems("(blank)").Visible = False
'.PivotItems xlDateBetween, Value1:="01-07-2019", Value2:="30-09-2019"
'.PivotItems("Aug").Visible = True
'.PivotItems("Sep").Visible = True
'.PivotFilters.Add Type:=xlAllDatesInPeriodOctober
.PivotFilters.Add Type:=xlDateBetween, Value1:="01-10-2019", Value2:="31-12-2019"
End With