Как скрывать строки в Excel на основе сегодняшней даты?
Предположим, у вас на листе есть таблица фруктов, как показано на снимке экрана ниже, и вам нужно скрыть все строки до или после текущей даты (14,06.2016) в этой таблице. В данной статье представлены три метода для решения этой задачи.
Скрытие строк на основе сегодняшней даты с помощью функции фильтрации
Скрытие строк на основе сегодняшней даты с помощью кода VBA
Скрытие строк на основе сегодняшней даты с помощью Kutools для Excel
Скрытие строк на основе сегодняшней даты с помощью функции фильтрации
С помощью функции фильтрации в Excel вы легко отфильтруете нужные строки и скроете ненужные — всё на основе сегодняшней даты.
1. В таблице нажмите кнопку раскрывающегося списка в столбце «Дата», затем выберите Фильтры по дате > До или После. См. снимок экрана:
Примечания:
2. В диалоговом окне «Пользовательский автофильтр» щелкните кнопку Выбор даты
, расположенную рядом с полем «позже чем», затем в календаре нажмите кнопку Сегодня. После этого нажмите кнопку ОК.
Теперь все строки до сегодняшней даты скрыты немедленно.
Раскройте магию Excel с помощью KUTOOLS AI
- Интеллектуальное выполнение: Выполняйте операции с ячейками, анализируйте данные и создавайте диаграммы — всё это доступно через простые команды.
- Пользовательские формулы: создавайте индивидуальные формулы для оптимизации рабочих процессов.
- Программирование на VBA: Пишите и внедряйте код VBA легко и без усилий.
- Анализ формул: Легко разбирайтесь даже в самых сложных формулах.
- Перевод текста: Ломайте языковые барьеры прямо в ваших таблицах.
Скрытие строк на основе сегодняшней даты с помощью кода VBA
Вы также можете использовать код VBA, чтобы скрывать строки в Excel на основе сегодняшней даты. Выполните следующие действия.
1. Нажмите клавиши Alt+F11 одновременно, чтобы открыть окно Microsoft Visual Basic для приложений.
2. В окне Microsoft Visual Basic для приложений выберите Вставка > Модуль. Затем скопируйте и вставьте приведённый ниже код 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 Sub3. Нажмите клавишу F5. В появившемся диалоговом окне Kutools для Excel выберите столбец «Диапазон дат» и нажмите кнопку ОК.
Теперь все строки до сегодняшней даты скрыты немедленно.
Примечания:
Код VBA: отобразить все скрытые строки в Excel
Private Sub Showbtn_Click()
Rows.EntireRow.Hidden = False
End SubСкрытие строк на основе сегодняшней даты с помощью Kutools для Excel
С помощью утилиты Выбрать определенные ячейки из набора Kutools для Excel вы легко сможете выделить все строки до или после сегодняшней даты, а затем вручную скрыть их.
1. Выделите список дат в вашей таблице и нажмите Kutools > Выделить > Выбрать определенные ячейки.
2. В диалоговом окне Выбрать определенные ячейки выберите опцию Вся строка в разделе Выбрать тип, затем — опцию Меньше чем или Больше чем (в данном случае выбрана опция «Меньше чем») в первом поле раскрывающегося списка Указать тип, после чего введите сегодняшнюю дату в следующее текстовое поле. В завершение нажмите кнопку ОК. См. снимок экрана:
3. Появится диалоговое окно с информацией о количестве выбранных строк — нажмите кнопку ОК. Как видно на снимке экрана ниже, выделены все строки до сегодняшней даты.
4. Щелкните правой кнопкой мыши по выделению и выберите команду Скрыть в контекстном меню, чтобы скрыть все выбранные строки до сегодняшней даты.
Если вы хотите воспользоваться бесплатной пробной версией (30 дней) этой утилиты, нажмите, чтобы скачать её, а затем выполните операцию в соответствии с приведёнными выше шагами.
Связанные статьи:
- Как скрыть флажок при скрытии строки в Excel?
- Как скрывать или отображать строки и столбцы с помощью значков «плюс» и «минус» в Excel?
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек