Невозможно выбрать конкретные даты в области сводных фильтров - PullRequest
0 голосов
/ 24 апреля 2018

Привет. Я пытаюсь добавить несколько дат в сводной области в область «фильтры» на основе даты начала и окончания, указанной в ячейках.

Ниже приведен код, который я использовал

ActiveSheet.PivotTables("PivotTable1").PivotFields("Date").PivotFilters. _
Add Type:=xlDateBetween, Value1:=CLng(Range("Datefrom").Value), Value2:=CLng(Range("Dateto").Value)

Примечание. Приведенный выше код работает нормально, когда у меня есть «Дата» в области «Строки», но я хочу, чтобы она работала в области «Фильтры».

Я также записал макрос и обнаружил, что установил видимое свойство для своих дат, и у меня нет никакой подсказки о том же. Благодарим Вас за своевременную помощь!

1 Ответ

0 голосов
/ 24 апреля 2018

Область «Фильтры» не поддерживает тип фильтрации «Даты между». Обходной путь - использовать TimeLine Slicer, если у вас есть версия Excel, которая поддерживает их. (Я думаю, вам нужен Excel 2013 или более поздняя версия)

enter image description here

Если вы хотите использовать VBA для установки верхнего и нижнего пределов для отображения, просто включите макро-рекордер, измените TimeLine, а затем проверьте код, который записал макро-рекордер.

Если у вас более ранняя версия Excel или вам нужно что-то немного другое, дайте мне знать, исправив ваш ответ.

...