Профессиональные приемы работы в Microsoft Excel

Обмен опытом => Microsoft Excel => Тема начата: Tartakovsky от 14.01.2016, 14:14

Название: Макрос для изменения даты в нескольких сводных таблицах
Отправлено: Tartakovsky от 14.01.2016, 14:14
Добрый день, форумчане!

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

Попытался написать макрос (пока уровень - "чайник"), с помощью "записать" макрос:
ActiveSheet.PivotTables("СводнаяТаблица3").PivotFields("Дата").ClearAllFilters
    ActiveSheet.PivotTables("СводнаяТаблица3").PivotFields("Дата").PivotFilters. _
        Add2 Type:=xlAfter, Value1:="30.06.2015"

Как вместо Value1:="30.06.2015", подставить ссылку на ячейку, в которой указана нужная дата ?
Название: Re: Макрос для изменения даты в нескольких сводных таблицах
Отправлено: Serge 007 от 14.01.2016, 14:30
Здравствуйте
Цитата: Tartakovsky от 14.01.2016, 14:14В Excel, построенные четыре сводных таблицы
И где они? Нам самим рисовать предлагаете?
Название: Re: Макрос для изменения даты в нескольких сводных таблицах
Отправлено: gling от 15.01.2016, 23:52
ЦитироватьКак вместо Value1:="30.06.2015", подставить ссылку на ячейку
=Sheets("Лист1").Range("A1")