Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

Как фильтровать все ячейки даты до или после сегодняшнего дня в Excel?

В этой статье я расскажу о том, как фильтровать все ячейки дат, которые до или после сегодняшнего дня в листе Excel.

Фильтрация всех ячеек даты до или после сегодняшнего дня с помощью функции Filter

Фильтрация всех ячеек даты до или после сегодняшнего дня с помощью кода VBA


Фильтрация всех ячеек даты до или после сегодняшнего дня с помощью функции Filter


Фактически, функция фильтра в Excel может помочь вам решить эту задачу так быстро, как вы можете, выполните следующие действия:

1, Выберите столбец даты, который вы хотите отфильтровать, а затем нажмите дата > Фильтр, см. снимок экрана:

doc фильтр до сегодняшнего дня 1

2, Затем нажмите стрелку вниз, а затем выберите Фильтры даты > До / После как вам нужно, см. снимок экрана:

doc фильтр до сегодняшнего дня 2

3. В Пользовательский автофильтр диалоговое окно, нажмите Выбор датыdoc фильтр до сегодняшнего дня 3 и нажмите кнопку Cегодня в календаре выбора даты, см. screesnhot:

doc фильтр до сегодняшнего дня 4

4, Затем нажмите OK чтобы закрыть диалоговое окно, и все даты до или после сегодняшнего дня были отфильтрованы, как показано ниже:

doc фильтр до сегодняшнего дня 5


Фильтрация всех ячеек даты до или после сегодняшнего дня с помощью кода VBA

Следующие коды VBA также могут помочь вам отфильтровать все даты до или после текущего дня на листе. Пожалуйста, выполните следующие шаги:

1, Удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окна.

2. Щелчок Вставить > модуль, и вставьте один из следующих кодов в модуль Окно.

Код VBA: фильтровать все ячейки до сегодняшнего дня:

Sub FilterDateBeforeToday()
    Dim xLastRow As Long
    Dim xRg As Range
    On Error Resume Next
    Set xRg = Application.InputBox("Please select filtered column:", "KuTools for Excel", Selection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    ActiveSheet.AutoFilterMode = False
    If xRg.Count = 1 Then Set xRg = xRg.CurrentRegion
    xRg.AutoFilter 1, "<" & CDbl(Date)
    Application.ScreenUpdating = True
End Sub

Код VBA: отфильтровать все ячейки даты после сегодняшнего дня:

Sub FilterDateBeforeToday()
    Dim xLastRow As Long
    Dim xRg As Range
    On Error Resume Next
    Set xRg = Application.InputBox("Please select filtered column:", "KuTools for Excel", Selection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    ActiveSheet.AutoFilterMode = False
    If xRg.Count = 1 Then Set xRg = xRg.CurrentRegion
    xRg.AutoFilter 1, ">" & CDbl(Date)
    Application.ScreenUpdating = True
End Sub

3, После копирования и вставки одного из вышеуказанных кодов F5 ключ для запуска этого кода, и появится окно подсказки, чтобы напомнить, что вы выбрали столбец даты, который вы хотите фильтровать, см. снимок экрана:

doc фильтр до сегодняшнего дня 6

4, Затем нажмите OK кнопки, все ячейки даты, которые до или после сегодня будут отфильтрованы немедленно.


Kutools для Excel - лучший инструмент для повышения производительности в офисе Повысьте производительность на 80%

  • Супер Формула Бар (легко редактировать несколько строк текста и формул); Макет чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы и хранение данных; Содержание сплит-клеток; Объедините дублирующиеся строки и сумму / среднее... предотвратить повторяющиеся клетки; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выберите пустые строки (все ячейки пусты); Супер найти и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения формулы ссылки; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Любимые и быстро вставляемые формулы, Диапазоны, графики и рисунки; Шифрование ячеек с паролем; Создать список рассылки и отправлять электронные письма ...
  • Извлечение текстаДобавить текст, Удалить по позиции, Удалить пространство; Создание и печать промежуточных итогов подкачки; Преобразование содержимого ячеек и комментариев...
  • Суперфильтр (сохранить и применить схемы фильтров к другим листам); Расширенный поиск по месяцам / неделям / дням, частоте и более; Специальный фильтр жирным шрифтом, курсивом ...
  • Объединить рабочие тетради и рабочие листы; Объединение таблиц на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Работает с Office 2007-2019 и 365 и поддерживает все языки. Это легко развернуть в вашей компании. Полнофункциональная 60-дневная бесплатная пробная версия.
вкладка kte 201905

Вкладка «Office» предоставляет интерфейс с вкладками для Office и упрощает работу

  • Включить редактирование и чтение с вкладками в Word, Excel, PowerPoint, Издатель, Доступ, Visio и Проект.
  • Открывайте и создавайте несколько документов в новых вкладках одного и того же окна, а не в новых окнах.
  • Увеличивает вашу производительность на 50% и уменьшает сотни щелчков мышью для вас каждый день!
нижняя часть офиса
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Abhinav Kumar · 8 months ago
    I HAVE DATA in a following format
    12/11/2018 16:10
    12/11/2018 16:10
    12/11/2018 16:10
    12/11/2018 16:10
    12/11/2018 16:10
    12/11/2018 16:10
    12/11/2018 16:10
    12/11/2018 16:10
    12/11/2018 16:10
    12/11/2018 16:10



    and I want to filter it for TODAY - LAST 7 Days Excluding Today , That is if today is 12 Dec I want filter for 12 Dec and December[ 11,10,9,8,7,6,5] .
    How to create custom filter for this in MS Excel