Сводная таблица. Автофильтр по критерию дата: c___по __

[sanych_09]

Доброго времени суток!

1.Есть таблица с большим количеством данных (для примера, Лист1)
2.Есть сводная таблица по определенным критериям (Лист4)
3.После построения сводной таблицы есть необходимость делать выборку по датам (начало периода;конец перода) например, с 01.01.2011 по 03.01.2011

Вопрос: подскажите, можно ли сделать такой автофильт автоматическим, чтобы не вручную выбирать даты, а ввести их в определенные ячейки и автофильт отобразил в сводной таблице нужные данные. И как?

Заранее спасибо

[VictorM]

можно ли сделать такой автофильт автоматическим, чтобы не вручную выбирать даты, а ввести их в определенные ячейки и автофильт отобразил

Можно!
1. Смотрим тему Выпадающий календарь - доработать под задачу
берем календарь определяем 2 ячейки на листе: Начало периода, Конец периода.
По клику в ячейках вводим даты из календаря.
2. Далее: Как использовать дату при применении автофильтра
Берем код, подстраиваем под свои задачи.

[sanych_09]

спасибо,
буду разбираться!

[VictorM]

Выбор временого периода. см. файл.
Кликаем яч. В1 и В2

[sanych_09]

Сообщение от VictorM

Выбор временого периода. см. файл.
Кликаем яч. В1 и В2

это очень круто... так как мне достаточно было бы вводить даты вручную.

а как этот календарь связать со сводной таблицой и фильтром.

я пока в макросах ничего не монимаю...

[sanych_09]

нашел на форуме пример работы со сводными таблицами..

ActiveSheet.PivotTables("СводнаяТаб лица2").PivotFields("дата").Current Page = _"02.01.2010"

можно ли в этом коде диапазон указать, например, ячейка А1 -это начальная дата, А2 - конечная.

/в этом примере макроса фильтрация выполнена по нажатию кнопки. Еще вопрос, как добавлялась кнопка на лист? я знаю как добавть кнопку, то только она отображается в UserForm/

[sanych_09]

Сообщение от sanych_09

нашел на форуме пример работы со сводными таблицами..

ActiveSheet.PivotTables("СводнаяТаб лица2").PivotFields("дата").Current Page = _"02.01.2010"

можно ли в этом коде диапазон указать, например, ячейка А1 -это начальная дата, А2 - конечная.

/в этом примере макроса фильтрация выполнена по нажатию кнопки. Еще вопрос, как добавлялась кнопка на лист? я знаю как добавть кнопку, то только она отображается в UserForm/

пример файла

[VictorM]

как добавлялась кнопка на лист?

Меню - Элементы управления. Затем выбираете нужный элемент и располагаете на листе.

можно ли в этом коде диапазон указать, например, ячейка А1 -это начальная дата, А2 - конечная.

Можно. Включите запись макроса и проделайте необходимые действия. Можно увидеть много интересного))

[sanych_09]

Сообщение от VictorM

Меню - Элементы управления. Затем выбираете нужный элемент и располагаете на листе.

Можно. Включите запись макроса и проделайте необходимые действия. Можно увидеть много интересного))

Спасибо за кнопку!

вчера так и сделал... записал макрос и посмотрел код

[sanych_09]

добрый день!
макрос пробовал записать как для фильтра в сводной таблице, так и просто в таблице данных.

но разобраться не могу... так не знаю функций .. да и всего VBA

можно ли как-то применить код к сводной таблице:

Dim iDateOne As Date
Dim iDateTwo As Date

iDateOne = D1 ' данные с переиода в ячейке D1
iDateTwo = E! ' данные по период в ячейке E1
iCriteria1 = ">=" & CDbl(iDateOne)
iCriteria2 = "<=" & CDbl(iDateTwo)

Range("A1").AutoFilter Field:=1, Criteria1:=iCriteria1, Operator:=xlAnd, Criteria2:=iCriteria2


примеры записаных макросов в ручную ...и все равно как-то криво работают.

подскажите, как для сводной таблицы применить фильтр с определенными критериями.

спасибо