1

Почему-то никак не удается сделать простейшую вещь - имеется таблица, первый столбец - дата и время. Нужно видеть только данные за последние 50 дней (например).

Фильтры по дате либо предлагают конкретные сроки - типа, текущий месяц, либо после конкретной даты. При попытках использовать в поле "после" чего-то типа =СЕГОДНЯ()-50, убирает все записи.

В Excel я полный нуль, так что подскажите, как такое сделать корректно. Один раз было нужно похожее - там я сделал условное форматирование, выделив цветом нужное (там формулы работают), а потом отфильтровав по цвету. Тут таблица не моя и уже разукрашенная.

Сейчас выкрутился, введя столбец с =СЕГОДНЯ()-A### и фильтруя по нему - но это же тоже некрасиво. Я понимаю, что я забиваю гвозди микроскопом. Как забивать гвозди правильно? :)

P.S. Позволил себе спросить здесь, потому как тут явно нужно работать с формулами, т.е. программировать :)

3
  • Посмотрите в сторону PowerQuery, сам с экселем не дружу, но эта штука помогает творить чудеса )
    – Anatol
    10 авг 2017 в 4:41
  • В принципе, вариант с дополнительным столбцом довольно логичный. Сами по себе фильтры, к сожалению, не позволяют делать сложные запросы.
    – insolor
    10 авг 2017 в 5:07
  • Визуальным средством построения фильтра параметр Criteria в метод Range.AutoFilter передаётся как строковый литерал. Поэтому писАть туда функции листа бессмысленно. Решением может быть построение требуемого фильтра из программного VBA-модуля (макроса) по какому-то событию (например, по двойному или правому клику в определённой ячейке), при этом даже можно вывести свою форму, запрашивающую дополнительные сведения (скажем, продолжительность периода).
    – Akina
    10 авг 2017 в 6:00

1 ответ 1

2

Совсем просто не получится.

Вариант1. Доп. столбец

Т.к. функция СЕГОДНЯ() летуча (пересчитывается при любых изменениях на листе), ее лучше держать в одной ячейке и ссылаться на нее. Для удобства назначить ячейку для ввода периода дат. Фильтровать по доп. столбцу. введите сюда описание изображения

Вариант2. Расширенный фильтр

Выделить заголовок фильтруемого столбца (или диапазон дат с заголовком), вкладка Данные-Фильтр-Дополнительно. Задать параметры фильтрации. Фильтровать можно на месте или в отдельном диапазоне.

Обязательно наличие отдельного диапазона условий: текст из заголовка фильтруемого столбца и критерий. Критерий можно задавать текстом с операторами сравнения. Расширенный фильтр интересен тем, что можно объединять условия по И или ИЛИ, размещая дополнительные условия ниже в столбце или рядом с таким же заголовком.

введите сюда описание изображения

Вариант3. Расширенный фильтр макросом

Макрорекодером записать действия по фильтрации расширенным фильтром, подкорректировать запись (макрорекодер пишет не все и много лишнего) - получится макрос, который можно запускать одним кликом:

Sub AdvancedFilter()
Dim lRw As Long
    With ActiveSheet
         ' последняя заполненная ячейка диапазона пользователя'
        lRw = .UsedRange.Rows.Count + .UsedRange.Row - 1
        ' автофильтр: данные из столбца А, критерии D1:D2, поместить в F4'
        ' если нужны только уникальные дата-время - Unique:=False'
        Range("A4:A" & lRw).AdvancedFilter Action:=xlFilterCopy, _
                        CriteriaRange:=Range("D1:D2"), _
                        CopyToRange:=Range("F4"), Unique:=False
    End With
End Sub

Макрос не видит дату, записанную текстом, поэтому формула условия другая, с отображением даты в числовом формате.

введите сюда описание изображения

Alt+F11 - вход в редактор VBA. Слева дерево проекта. Insert-Module - добавится общий модуль, где разместить макрос.

На листе создать кнопку и назначить ей макрос.

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.