Як приховати рядки на основі сьогоднішньої дати в Excel?
Припустимо, у вас є таблиця фруктів на аркуші, як показано на скріншоті нижче, і вам потрібно приховати всі рядки до або після поточної дати (6) у таблиці. У цій статті наведено три методи для вас.
Приховати рядки на основі сьогоднішньої дати за допомогою функції фільтра
Приховати рядки на основі сьогоднішньої дати за допомогою коду VBA
Приховайте рядки на основі сьогоднішньої дати за допомогою Kutools для Excel
Приховати рядки на основі сьогоднішньої дати за допомогою функції фільтра
За допомогою функції фільтрування в Excel ви можете легко відфільтрувати всі необхідні рядки та приховати всі небажані рядки на основі сьогоднішньої дати.
1. У таблиці натисніть кнопку, що випадає, у стовпці Дата, а потім натисніть Фільтри дати > Перед тим як or після. Дивіться знімок екрана:
примітки:
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 кнопки.
Тепер усі рядки до сьогоднішньої дати негайно приховані.
примітки:
Код 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 днів) цієї програми, натисніть, щоб завантажити, а потім перейдіть до застосування операції, як описано вище.
Статті по темі:
- Як приховати прапорець, коли рядок приховано в Excel?
- Як приховати / показати рядки або стовпці зі знаком плюс чи мінус в Excel?
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!