Код VBA автоматически скрывать / показывать непрерывно

Question

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

Private Sub Worksheet_Calculate()
    Dim LastRow As Long, c As Range

    Application.EnableEvents = False
    On Error Resume Next
    For Each c In Range("F10:F56")
        If c.Value = 0 Then
            c.EntireRow.Hidden = True
        ElseIf c.Value = 1 Then
            c.EntireRow.Hidden = False
        End If
    Next
    On Error GoTo 0
    Application.EnableEvents = True
End Sub

Answer 1

Я бы попробовал переключиться

ElseIf c.Value = 1 Then

в

ElseIf c.Value <> 0 Then

Сейчас он специально проверяет ячейки, которые содержат либо 0 в первом случае, либо 1 в elseif, и я предполагаю, что вы хотите, чтобы он прятался на 0 и показывал все, что не равно нулю