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)

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

1 个答案: