我曾尝试关注上一个关于根据单元格值隐藏行的问题(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
工作表的代码模块(而不仅仅是通用模块),因此在您更改工作表中的任何值后它都会运行。