Перейти до основного матеріалу

Як приховати рядки на основі сьогоднішньої дати в Excel?

Припустимо, у вас є таблиця фруктів на аркуші, як показано на скріншоті нижче, і вам потрібно приховати всі рядки до або після поточної дати (6) у таблиці. У цій статті наведено три методи для вас.

Приховати рядки на основі сьогоднішньої дати за допомогою функції фільтра
Приховати рядки на основі сьогоднішньої дати за допомогою коду VBA
Приховайте рядки на основі сьогоднішньої дати за допомогою Kutools для Excel


Приховати рядки на основі сьогоднішньої дати за допомогою функції фільтра

За допомогою функції фільтрування в Excel ви можете легко відфільтрувати всі необхідні рядки та приховати всі небажані рядки на основі сьогоднішньої дати.

1. У таблиці натисніть кнопку, що випадає, у стовпці Дата, а потім натисніть Фільтри дати > Перед тим як or після. Дивіться знімок екрана:

примітки:

1). Якщо у верхній частині стовпця дати немає розкривної кнопки, увімкніть фільтр, натиснувши дані > фільтр.
2). Щоб приховати всі рядки до сьогоднішньої дати, виберіть після варіант. В іншому випадку виберіть Перед тим як варіант. Тут мені потрібно приховати всі рядки до сьогоднішньої дати та зберегти всі рядки після сьогоднішньої дати, тому я вибираю параметр Після.

2 В Спеціальний автофільтр у діалоговому вікні натисніть Вибір дати поруч із полем "після", а потім клацніть на ТЕПЕР в календарі. А потім натисніть OK кнопки.

Тоді всі рядки до сьогоднішньої дати негайно приховані.


Приховати рядки на основі сьогоднішньої дати за допомогою коду VBA

Ви також можете застосувати код VBA, щоб приховати рядки на основі сьогоднішньої дати в Excel. Будь ласка, виконайте наступне.

1. прес інший + F11 клавіші одночасно, щоб відкрити Microsoft Visual Basic для додатків вікна.

2 В Microsoft Visual Basic для додатків вікно, натисніть Insert > Модулі. Потім скопіюйте та вставте наступний код VBA у вікно.

Код VBA: приховати рядки на основі сьогоднішньої дати в Excel

Private Sub Hidebtn_Click()
    Dim xRg As Range
    Dim xTxt As String
    Dim xCell As Range
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("Please select range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    For Each xCell In xRg
        If xCell.Value < Now Then
            xCell.EntireRow.Hidden = True
        End If
    Next
End Sub

3 Натисніть кнопку F5 клавіша, у спливаючому вікні Kutools для Excel діалоговому вікні, виберіть стовпець діапазону дат, а потім клацніть на OK кнопки.

Тепер усі рядки до сьогоднішньої дати негайно приховані.

примітки:

1. <Зараз означає, що всі рядки до сьогоднішньої дати будуть приховані після запуску коду. Щоб приховати всі рядки після сьогоднішньої дати, змініть <Зараз до > Зараз.
2. Для відображення всіх прихованих рядків застосуйте наведений нижче код VBA.

Код VBA: показати всі приховані рядки в Excel

Private Sub Showbtn_Click()
Rows.EntireRow.Hidden = False
End Sub

Приховайте рядки на основі сьогоднішньої дати за допомогою Kutools для Excel

З Виберіть певні клітини корисність Kutools для Excel, Ви можете легко вибрати всі рядки до або після сьогоднішньої дати, а потім приховати їх вручну.

Перед поданням заявки Kutools для Excel, будь ласка завантажте та встановіть його спочатку.

1. Виберіть список дат у вашій таблиці та натисніть Кутулс > Select > Виберіть певні клітини

2 В Виберіть певні клітини діалоговому вікні, виберіть Весь ряд опція в Тип вибору розділ і виберіть Менш or Більш чим варіант (тут я вибираю варіант Менше ніж) у першому Конкретний тип випадаючого списку, а потім введіть сьогоднішню дату в наступне текстове поле. Нарешті натисніть OK кнопку. Дивіться знімок екрана:

3. Потім з’явиться діалогове вікно, щоб повідомити, скільки рядків було вибрано, натисніть на OK кнопку. І ви можете бачити всі рядки до вибору сьогоднішньої дати, як показано нижче.

4. Клацніть правою кнопкою миші на виділенні, а потім натисніть приховувати в меню правої кнопки миші, щоб приховати всі вибрані рядки до сьогоднішньої дати.

  Якщо ви хочете отримати безкоштовну пробну версію (30 днів) цієї програми, натисніть, щоб завантажити, а потім перейдіть до застосування операції, як описано вище.


Статті по темі:

Найкращі інструменти продуктивності офісу

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

Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу.  Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...

Опис


Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations