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

时间:2017-03-07 08:29:20

标签: excel vba excel-vba

我有以下问题:让我说我在单元格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

提前致谢

1 个答案:

答案 0 :(得分:0)

尝试以下代码:

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)