Перейти к основному содержанию

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

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

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

Отфильтруйте все ячейки даты до или после сегодняшнего дня с помощью кода VBA


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

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

1. Выберите столбец даты, который вы хотите отфильтровать, а затем щелкните Данные > ФИЛЬТР, см. снимок экрана:

фильтр документов до сегодняшнего дня 1

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

фильтр документов до сегодняшнего дня 2

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

фильтр документов до сегодняшнего дня 4

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

фильтр документов до сегодняшнего дня 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 нажмите клавишу для запуска этого кода, и появится окно подсказки, напоминающее, что вы выбрали столбец даты, который вы хотите отфильтровать, см. снимок экрана:

фильтр документов до сегодняшнего дня 6

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

Лучшие инструменты для офисной работы

🤖 Kutools AI Помощник: Революционный анализ данных на основе: Интеллектуальное исполнение   |  Генерировать код  |  Создание пользовательских формул  |  Анализ данных и создание диаграмм  |  Вызов функций Kutools...
Популярные опции: Найдите, выделите или определите дубликаты   |  Удалить пустые строки   |  Объедините столбцы или ячейки без потери данных   |   Раунд без формулы ...
Супер поиск: Множественный критерий VLookup    VLookup с несколькими значениями  |   VLookup по нескольким листам   |   Нечеткий поиск ....
Расширенный раскрывающийся список: Быстрое создание раскрывающегося списка   |  Зависимый раскрывающийся список   |  Выпадающий список с множественным выбором ....
Менеджер столбцов: Добавить определенное количество столбцов  |  Переместить столбцы  |  Переключить статус видимости скрытых столбцов  |  Сравнить диапазоны и столбцы ...
Рекомендуемые функции: Сетка Фокус   |  Просмотр дизайна   |   Большой Формулный Бар    Менеджер книг и листов   |  Библиотека ресурсов (Авто текст)   |  Выбор даты   |  Комбинировать листы   |  Шифровать/дешифровать ячейки    Отправлять электронные письма по списку   |  Суперфильтр   |   Специальный фильтр (фильтровать жирным шрифтом/курсивом/зачеркиванием...) ...
15 лучших наборов инструментов12 Текст Инструменты (Добавить текст, Удалить символы, ...)   |   50+ График Тип (Диаграмма Ганта, ...)   |   40+ Практических Формулы (Рассчитать возраст по дню рождения, ...)   |   19 Вносимые Инструменты (Вставить QR-код, Вставить изображение из пути, ...)   |   12 Конверсия Инструменты (Числа в слова, Конверсия валюты, ...)   |   7 Слияние и разделение Инструменты (Расширенные ряды комбинирования, Разделить клетки, ...)   |   ... и более

Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени.  Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...

Описание


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

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
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
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations