Как скрыть строки через VBA, если в ячейке есть определенное содержимое
Хотели бы вы автоматически скрывать все строки с определенным содержимым с помощью макроса? Представьте, что вы хотите скрыть все строки, если текст «скрыть» появляется в любой ячейке соответствующей строки. Это может быть полезным приложением для очистки данных. Взгляните на исходную ситуацию в следующей таблице:
В этой таблице мы хотим скрыть все строки, содержащие ячейки, содержащие ноль. Используйте следующий макрос:
Скрыть определенные строки ()
Тусклая ячейка как диапазон
Для каждой ячейки в ActiveSheet.UsedRange
Если Cell.Value = 0 и Rows (Cell.Row) .Hidden = False _
Затем Rows (cell.Row) .Hidden = True
Следующая ячейка
Конец подписки
Если вы запустите макрос с, некоторые строки будут полностью скрыты, как показано на следующем рисунке.
В каждой из этих строк в некотором столбце появляется текст «скрыть». Если вы хотите проверить другой критерий вместо этого содержимого, настройте соответствующее сравнение в макросе.
Чтобы снова отобразить все ячейки, нажмите комбинацию клавиш CTRL A, а затем выберите функцию НАЧАТЬ - ФОРМАТИРОВАТЬ - FADE OUT & FADE IN - ПОКАЗАТЬ ЛИНИИ (Excel 2007 и Excel 2010) или FORMAT LINE - FADE IN (Excel до версии 2003). В качестве альтернативы вы можете использовать следующий макрос для постепенного появления:
Показать все
Cells.Rows.Hidden = False
Конец подписки
Чтобы ввести один из макросов, нажмите комбинацию клавиш ALT F11 в Excel. Это вызывает редактор VBA. Используйте команду ВСТАВИТЬ - МОДУЛЬ, чтобы вставить пустой лист модуля. Чтобы запустить один из макросов, нажмите комбинацию клавиш ALT F8 в Excel.