使用 VBA 隐藏行

使用 VBA 隐藏行

我曾尝试关注上一个关于根据单元格值隐藏行的问题(E19)

Sub HideIR()

If Range("$E$19").Value = "2" Then
        Rows("20:26").EntireRow.Hidden = True
    ElseIf Range("$E$19").Value = "1" Then
        Rows("20:26").EntireRow.Hidden = False
    End If

End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
    If Range("$E$19").Value = "2" Then
        Rows("20:26").EntireRow.Hidden = True
    ElseIf Range("$E$19").Value = "1" Then
        Rows("20:26").EntireRow.Hidden = False

    End If
End Sub

它会隐藏单元格,但是当我不再次运行宏的情况下更改值时它不会刷新。

答案1

您需要将代码放入Sub Worksheet_change工作表的代码模块(而不仅仅是通用模块),因此在您更改工作表中的任何值后它都会运行。

相关内容