如何在VBA中根据单元格的值隐藏行

Question

我有以下问题:假设我在单元格A1中有一个公式。如果该值大于或等于0.5，我希望隐藏第2-4行。这是我目前所拥有的：

Private Sub Worksheet_Change(ByVal Target As Range)

Select Case Target.Address
    Case "$A$1"
        Rows("2:4").EntireRow.Hidden = (Target >= 0.5)
End Select

End Sub

提前感谢

Answer 1

尝试下面的代码：

Private Sub Worksheet_Change(ByVal Target As Range)

Select Case Target.Address
    Case "$A$1"
        If Target.Value >= 0.5 Then Rows("2:4").Hidden = True
End Select

End Sub

如果你想保持你的编码风格，你可以使用下面这行代码：

Rows("2:4").Hidden = (Target.Value >= 0.5)