Скрыть / показать строки на основе более чем одного значения ячейки

Question

пожалуйста, помогите мне

Я использую следующий код, чтобы скрыть строки, если значения ячеек равны 0:

Private Sub Worksheet_Calculate()
Dim LastRow As Long, c As Range
Application.EnableEvents = False
LastRow = Cells(Cells.Rows.Count, "I").End(xlUp).Row
On Error Resume Next
For Each c In Range("I9:I48")
   If c.Value = 0 Then
        c.EntireRow.Hidden = True
    ElseIf c.Value > 0 Then
        c.EntireRow.Hidden = False
    End If
Next
On Error GoTo 0
Application.EnableEvents = True
End Sub

Это работает отлично, но я хотел бы, чтобы код также проверял столбец K (тот же диапазон K9:K48), если обе ячейки в строке равны 0, тогда строка должна быть скрыта. Как я могу изменить код для этого?

Answer 1

Попробуй это:

....
For Each c In Range("I9:I48")
   If (c.Value = 0 OR c.Offset(1,0).Value = 0) Then
        c.EntireRow.Hidden = True
        ....