如何基于单元格值隐藏/取消隐藏行，在1张表中多次

Question

当B16中的值为“0”时，我需要隐藏其他一些行，并在值为“1”时取消隐藏它们。

但是，这是我的问题：

另外，在同一张纸上： 如果H4中的值为“0”，我需要隐藏一些行。当值为“1”时，我需要取消隐藏这些行。

第一部分正在运作：

Private Sub Worksheet_Change(ByVal Target As Range)
With Sheets("Checklist")

If Range("b16").Value = 0 Then rows("17:21").EntireRow.Hidden = True
If Range("b16").Value >= 1 Then rows("17:21").EntireRow.Hidden = False

End With
End Sub

这是我理解的地方，我很喜欢VB 换句话说，下面的代码显然不起作用。你能提供一个可行的替代方案吗？

Private Sub Worksheet_Change(ByVal Target As Range)
With Sheets("Checklist")

Select Case Taget.Address

Case "$b$16"
If IsNumeric(Target.Value) And Target.Value = 0 Then         
rows("17:21").EntireRow.Hidden = True
End If     

Case "$b$16"
If IsNumeric(Target.Value) And Target.Value = 0 Then         
rows("17:21").EntireRow.Hidden = False
End If     

Case "$h$4"
If IsNumeric(Target.Value) And Target.Value = 1 Then         
rows("23:26").EntireRow.Hidden = True
End If     

Case "$h$4"
If IsNumeric(Target.Value) And Target.Value = 1 Then         
rows("23:26").EntireRow.Hidden = False
End If     

End Select
End Sub

感谢。