☰

VBA 代码连续自动隐藏/取消隐藏

tag-icon • tag-icon microsoft-excel microsoft-excel-2010 vba
VBA 代码连续自动隐藏/取消隐藏

我需要在值更新时隐藏/取消隐藏行。现在我的代码会在值变为零时自动隐藏，但如果我输入一个值，它不会自动取消隐藏。

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

答案1

我会尝试切换

ElseIf c.Value = 1 Then

到

ElseIf c.Value <> 0 Then

现在它专门检查在第一种情况下包含 0 或在 elseif 中包含 1 的单元格，并且我假设您希望它在 0 时隐藏，并在所有非零时取消隐藏

相关内容