如何根據單元格的值在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)