Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Не работает простой фильтр
 
Всем доброго времени суток!
Сделала простенький макрос для выборки данных по дате. Но в результате получаю все заполненные строки скрытыми. Захожу в ручной фильтр, там срабатывает все верно. Стоит нужная дата.  Просто нажимаю ОК и происходит сортировка. Т.е. я так понимаю, что макрос срабатывает, но почему-то не до конца. И не пойму в чем причина.
Буду благодарна, если кто-то подскажет
Изменено: Юля - 16 сен 2020 13:34:06
 
в xlsx макросы не живут.
 
Заменила файл.
 
Пишите литералы для дат всегда так (ГГГГ-MM-ДД):
Код
Criteria1:=">2020-09-09"
Альтернатива:
Код
 Criteria1:=">" & CLng(DateSerial(2020, 9, 9))

Метод AutoFilter не учитывает региональных настроек и интерпретирует выражение ">09.09.2020" как текст, а не как выражение, относящееся к датам (или числам).
Изменено: sokol92 - 16 сен 2020 16:52:12
Владимир
 
Код
Sub Запись_фильтр()
    Dim DateOne As Date

    iDateOne = "09.09.2020"
    
    With ActiveSheet
        If .FilterMode = True Then .ShowAllData
        .ListObjects("Таблица1").Range.AutoFilter Field:=1, Criteria1:=">" & Format(iDateOne, "#")
    End With
End Sub
Изменено: New - 16 сен 2020 16:09:50
 
New, благодарю!
sokol92, и вам большое спасибо!
Страницы: 1
Читают тему (гостей: 1)
Наверх