Як фільтрувати всі комірки дати до або після сьогодні в Excel?
У цій статті я розповім про те, як фільтрувати всі комірки дати, які до або після сьогодні на робочому аркуші Excel.
Фільтруйте всі комірки дати до або після сьогодні за допомогою функції фільтра
Відфільтруйте всі комірки дати до або після сьогодні за допомогою коду VBA
Фільтруйте всі комірки дати до або після сьогодні за допомогою функції фільтра
Насправді функція фільтра в Excel може допомогти вам вирішити це завдання якомога швидше, будь-ласка, зробіть так:
1. Виберіть стовпець дати, який потрібно відфільтрувати, а потім клацніть дані > фільтр, див. скріншот:
2. Потім натисніть стрілку спадного меню, а потім виберіть Фільтри дати > Перед тим як / після як вам потрібно, див. скріншот:
3, в Спеціальний автофільтр діалогове вікно натисніть кнопку Вибір дати
кнопку, а потім натисніть кнопку ТЕПЕР в календарі вибору дати, див. screesnhot:
4. Потім натисніть OK щоб закрити діалогове вікно, і всі дати до або після сьогоднішнього дня були відфільтровані, як показано на наведеному нижче знімку екрана:
Відфільтруйте всі комірки дати до або після сьогодні за допомогою коду VBA
Наступні коди VBA також можуть допомогти вам відфільтрувати всі дати до або після поточного дня на робочому аркуші. Будь ласка, виконайте наступні кроки:
1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.
2. Клацання Insert > Модулі, та вставте один з наступних кодів у Модулі Вікно
Код 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 для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
