Excel/VBA 根据特定单元格值显示或隐藏行

Question

我正在尝试找到一种方法来根据单元格 J52 中的值找到显示或隐藏行 55:57 的方法。理想情况下，我希望使用 VBA 实时发生这种情况。

J52 中的值从 0 到 3。

我试过这段代码，但它不起作用，因为它抛出了一个错误，指出“未定义子或函数”:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
StartRow = 55
EndRow = 57
Tar = C52
For i = Tar To Tar
If Cell(i).Value = "Individuals" Then
Cells(StartRow, EndRow).EntireRow.Hidden = True
Else
Cells(StartRow, EndRow).EntireRow.Hidden = False
End If
Next i
End Sub

如有任何帮助，我们将不胜感激。谢谢。

Answer 1

此代码只会在您更改 C52 中的值时触发。它按照您的代码建议执行，而不是按照您的问题建议执行。

(Target.Value = "Individuals") 将根据 Target 的值返回 TRUE/FALSE - Target 是您更改的单元格 (C52)。

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$C$52" Then
        Range("55:57").EntireRow.Hidden = (Target.Value = "Individuals")
    End If
End Sub