Код VBA для скрытия или отображения строк на основе значения ячейки

Вот мой код, но он ничего не делает, я не вижу в этом ничего плохого:

Private Sub PG1(ByVal Target As Range) If .Range("E50").Value = "Passed" Then Rows("51").EntireRow.Hidden = True End If ElseIf Range("E50").Value = "Failed" Then Rows("51").EntireRow.Hidden = True End If End Sub 

Мое намерение состоит в том, что, когда эта конкретная ячейка в предыдущей строке имеет значение «Пропущено» из раскрывающегося списка, появится следующая строка, если ее «Не удалось», тогда она будет скрыта.

3 Solutions collect form web for “Код VBA для скрытия или отображения строк на основе значения ячейки”

Похоже, у вас в коде есть опечатки. Вы хотите что-то вроде этого:

 Sub PG1() If Range("E50").Value = "Passed" Then Rows("51:51").EntireRow.Hidden = True ElseIf Range("E50").Value = "Failed" Then Rows("51:51").EntireRow.Hidden = False End If End Sub 

Чтобы строка спрятала / скрывала обновление при изменении листа, поместите его в событие Worksheet_Change :

 Private Sub Worksheet_Change(ByVal Target As Range) If Range("E50").Value = "Passed" Then Rows("51:51").EntireRow.Hidden = True ElseIf Range("E50").Value = "Failed" Then Rows("51:51").EntireRow.Hidden = False End If End Sub 

Опечаток не было. «Строки (51)» действительны. Но вам не нужен модификатор «entirerow»

 rows(n).hidden=true ; where n is an valid row number 

Скрыть несколько строк

  range(rows(n1),rows(n2)).hidden=true ; will hide rows n1 though n2 
 Private Sub PG1() Range("$E$51").EntireRow.Hidden = (Range("$E$50").Value = "Passed") End Sub 
  • Любая функция Excel, которая изменит строку?
  • Как добавить события в элементы управления, созданные во время выполнения в Excel с помощью VBA
  • Подсчитывать и выделять ключевые слова в фразах
  • Как открыть файл Excel VBA с использованием приложения по умолчанию
  • Как я могу base64 эффективно кодировать строку с помощью Excel VBA?
  • Сохранить текстовый файл UTF-8, закодированный с помощью VBA
  • Excel VBA Copy Вставить только значения (xlPasteValues)
  • Как использовать события с кнопками Option Button на Userform
  • Проверить или проверить, существует ли лист
  • Excel VBA - удаление пустых строк
  • Excel 2013 VBA Очистить все фильтры фильтров
  • Давайте будем гением компьютера.