使用 VBA 隱藏行

Question

我嘗試遵循上一個關於根據單元格值隱藏行的問題（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

它將隱藏單元格，但是當我更改值而不再次運行巨集時，它不會刷新。

Answer 1

您需要將程式碼放入Sub Worksheet_change工作表的程式碼模組（不僅僅是通用模組），因此它會在您更改工作表中的任何值後運行。