Страницы: 1
RSS
Выбор периода дат Макросом
 
О великие умы, подскажите что я делаю не так,
Не получается в сводной таблице оставить выбранный промежуток дат по нажатию кнопки. подскажите как написать чтоб это работало.
 
Код
  With ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields("Дата")
    .ClearLabelFilters
    .PivotFilters.Add Type:=xlDateBetween, Value1:=Range("D4"), Value2:=Range("D5")
  End With
 
Отлично только есть маленький проблем, макрос воспринимает дату как мм.дд.гггг, а надо дд.мм.гггг
 
попробуйте так
Код
  With ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields("Дата")
    .ClearLabelFilters
    .PivotFilters.Add Type:=xlDateBetween, Value1:=Format(Range("D4"), "mm\/dd\/yyyy"), Value2:=Format(Range("D5"), "mm\/dd\/yyyy")
  End With
 
Отлично!
Спасибо.
Только в вашей формуле как раз поменять дату и месяц местами надо было.
Иначе было тоже самое.
Страницы: 1
Наверх