Привет. Я пытаюсь добавить несколько дат в сводной области в область «фильтры» на основе даты начала и окончания, указанной в ячейках.
Ниже приведен код, который я использовал
ActiveSheet.PivotTables("PivotTable1").PivotFields("Date").PivotFilters. _
Add Type:=xlDateBetween, Value1:=CLng(Range("Datefrom").Value), Value2:=CLng(Range("Dateto").Value)
Примечание. Приведенный выше код работает нормально, когда у меня есть «Дата» в области «Строки», но я хочу, чтобы она работала в области «Фильтры».
Я также записал макрос и обнаружил, что установил видимое свойство для своих дат, и у меня нет никакой подсказки о том же.
Благодарим Вас за своевременную помощь!