Как отфильтровать все ячейки даты до или после сегодняшнего дня в Excel?
В этой статье я расскажу о том, как отфильтровать все ячейки даты до или после сегодняшнего дня на листе Excel.
Отфильтруйте все ячейки даты до или после сегодняшнего дня с помощью функции фильтрации
Отфильтруйте все ячейки даты до или после сегодняшнего дня с помощью кода VBA
Отфильтруйте все ячейки даты до или после сегодняшнего дня с помощью функции фильтрации
Фактически, функция фильтра в Excel может помочь вам решить эту задачу как можно быстрее, пожалуйста, сделайте следующее:
1. Выберите столбец даты, который вы хотите отфильтровать, а затем щелкните Данные > ФИЛЬТР, см. снимок экрана:
2. Затем щелкните стрелку раскрывающегося списка и выберите Фильтры даты > Перед тем, как / После как вам нужно, см. снимок экрана:
3. В Пользовательский автофильтр диалоговое окно, нажмите Выбор даты и нажмите кнопку Cегодня в календаре выбора даты, см. снимок экрана:
4. Затем нажмите OK чтобы закрыть диалоговое окно, и все даты до или после сегодняшнего дня были отфильтрованы, как показано на следующем снимке экрана:
Отфильтруйте все ячейки даты до или после сегодняшнего дня с помощью кода 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 нажмите клавишу для запуска этого кода, и появится окно подсказки, напоминающее, что вы выбрали столбец даты, который вы хотите отфильтровать, см. снимок экрана:
4, Затем нажмите OK Кнопка, все ячейки даты, которые были до или после сегодняшнего дня, будут немедленно отфильтрованы.
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!