Як приховати рядки через VBA, якщо клітинка має певний вміст
Ви хотіли б автоматично приховати всі рядки з певним вмістом за допомогою макросу? Уявіть, що ви хочете приховати всі рядки, якщо текст "приховати" з'являється в будь -якій клітинці відповідного рядка. Це може бути корисною програмою для очищення даних. Подивіться на початкову ситуацію в таблиці нижче:
У цій таблиці ми хочемо приховати всі рядки, які містять комірки, що містять нуль. Використовуйте такий макрос:
Приховати певні рядки ()
Dim Cell As Range
Для кожної клітинки в ActiveSheet.UsedRange
Якщо Cell.Value = 0 і рядки (Cell.Row). Hidden = False _
Тоді Rows (cell.Row) .Hidden = True
Наступна клітина
End Sub
Якщо ви запустите макрос, деякі рядки будуть повністю приховані, як показано на малюнку нижче
У кожному з цих рядків текст "сховати" з'являється в якомусь стовпці. Якщо ви хочете перевірити інший критерій замість цього вмісту, налаштуйте відповідне порівняння в макросі.
Щоб знову відобразити всі клітинки, натисніть комбінацію клавіш CTRL A, а потім виберіть функцію ПОЧАТОК - ФОРМАТУВАТИ - ЗМІНЮВАТИ І ЗМІНИТИ - РОЗДІЛИ ПОКАЗУ (Excel 2007 та Excel 2010) або ФОРМУВАТИ РЯДКУ - ЗМІНЮВАТИ (Excel до версії 2003). Крім того, ви можете використовувати наступний макрос, щоб зникнути:
Показати Sub All
Cells.Rows.Hidden = False
End Sub
Щоб ввести один з макросів, натисніть комбінацію клавіш ALT F11 в Excel. Це викликає редактор VBA. Використовуйте команду INSERT - MODULE, щоб вставити порожній аркуш модуля. Щоб запустити один з макросів, натисніть комбінацію клавіш ALT F8 у програмі Excel.