希望行随着单元格更改而自动隐藏/取消隐藏,而不必每次都运行 vba

希望行随着单元格更改而自动隐藏/取消隐藏,而不必每次都运行 vba

我不想按“Alt F8”来隐藏 0 值行并取消隐藏行 >0
我希望它在数据发生变化时自动执行此操作。

这是用于隐藏/取消隐藏值为 0 的行的 VBA 代码,但同样,它不是自动工作而是手动工作。

Sub HideRows()

    Application.EnableEvents = True
    On Error Resume Next

    For Each c In Range("V13:V898")
        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

相关内容