Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Егор Иванов
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
макрос меняющий диапазон дат в сводной таблице, макрос
 
#
08.03.2023 09:41:16
Цитата
написал:
Можно же просто записать макрорекордером какой фильтр ставится или попробовать разные форматы самостоятельно.
Вот так отработало.
Код
    [URL=#]?[/URL]       1  2  3  4      With   ActiveSheet.PivotTables(  "Сводная таблица1"  ).PivotFields(  "Дата"  )              .ClearAllFilters              .PivotFilters.Add2 Type:=xlDateBetween, Value1:=  CStr  (Range(  "D4"  ).Value), Value2:=  CStr  (Range(  "D5"  ).Value)          End   With  
 
Спасибо большое! а как вы через макрорекордер сослались именно на те ячейки?
 
Перейти    
макрос меняющий диапазон дат в сводной таблице, макрос
 
#
07.03.2023 21:27:26
/
 
Перейти    
макрос меняющий диапазон дат в сводной таблице, макрос
 
#
05.03.2023 15:00:39
вот файл
 
Перейти    
макрос меняющий диапазон дат в сводной таблице, макрос
 
#
05.03.2023 14:44:58
мой код обновляет первое значение,но второе берёт 13-ое:
например, я ставлю с 19 февраля до 4 марта, а он ставит с 19 до 3-его.
 
Перейти    
макрос меняющий диапазон дат в сводной таблице, макрос
 
#
05.03.2023 14:35:04
Цитата
написал:
Егор Иванов, Зачем вы в текст переводите? Проверять неначем.

Код
    [URL=#]?[/URL]       1      .PivotFilters.Add Type:=xlDateBetween, Value1:=Range(  "D4"  ), Value2:=Range(  "D5"  )  
 
только убедитесь что критерии у вас на активном в этот момент листе
теперь пишет, что недопустимая дата
 
Перейти    
макрос меняющий диапазон дат в сводной таблице, макрос
 
#
05.03.2023 10:03:29
Цитата
написал:
Может ActiveSheet.PivotTables("название свода").Refresh ?
это просто обновление, а мне нужно ещё и поменять даты
 
Перейти    
макрос меняющий диапазон дат в сводной таблице, макрос
 
#
05.03.2023 09:41:48
Ежедневно нужно обновлять сводные таблицы за предыдущие 2 недели, данные все макросом подгружаются, а как правильно обновить свод- не знаю. Помогите пожалуйста)))

Код
With ActiveSheet.PivotTables("название свода").PivotFields("Дата") 
    .ClearLabelFilters 
    .PivotFilters.Add Type:=xlDateBetween, Value1:=Format(Range("D4"), "dd\/mm\/yyyy"), Value2:=Format(Range("D5"), "dd\/mm\/yyyy") 
    End With

вот эта штука не помогает(
 
Перейти    
Страницы: 1
Наверх