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

Question

2013-10-22 01:45:14 +0000 2013-10-22 01:45:14 +0000

2

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

Мои намерения заключаются в том, что когда эта конкретная ячейка в предыдущей строке будет установлена на “Passed” из выпадающего списка, то появится нижняя строка, если она будет “Failed”, то вместо нее она будет скрыта.

Источник

I AM L http://superuser.stackexchange.com/users/200088

Ответы (3)

1

2015-08-06 21:24:01 +0000

не было никакой опечатки. “rows(51)” действителен. но вам не нужен модификатор “wholerow”

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

, чтобы скрыть несколько рядов

range(rows(n1),rows(n2)).hidden=true ; will hide rows n1 though n2

Источник

Mudcat http://superuser.stackexchange.com/users/200088

-1

2015-03-27 15:33:16 +0000

Private Sub PG1()
    Range("$E$51").EntireRow.Hidden = (Range("$E$50").Value = "Passed")
End Sub

Источник

Raul Gonzalez http://superuser.stackexchange.com/users/200088

Похожие вопросы

6

Как получить отчетливые/унифицированные значения в столбце в Excel? 286

13

Самый простой способ открыть CSV с запятыми в Excel 203

9

Как можно "сгруппировать по" и просуммировать столбец в Excel? 153

10

Как легко переупорядочить строки в Excel с помощью перетаскивания или перемещения вверх или вниз? 148

12

Как сохранить таблицу excel в виде файла значений, разделенных точками с запятой? 32

jonsca http://superuser.stackexchange.com/users/200088 · Accepted Answer · 2013-10-22 02:24:58 +0000

Похоже, в вашем коде есть несколько опечаток. Ты хочешь что-то подобное:

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