我有以下问题:让我说我在单元格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
提前致谢
答案 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)