通过VBA代码根据值自动隐藏或取消隐藏行

Question

如果从 A8 到 A50 的任何单元格为空白，即那里的公式返回“”，我只想自动隐藏相应的行，并且一旦通过公式计算结果放置任何其他值，我希望各行不隐藏。

我需要每当单元格 A8 到 A50 中的值发生变化时自动运行代码

提前致谢

Answer 1

您也许可以在工作表上使用类似 _change 事件的内容。请记住，仅当用户更改工作表中的某些值时才会触发此事件，而不是由于重新计算而发生更改。

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    
    Dim ir As Integer
    Dim colA As Range
    Set colA = Me.Cells(1).EntireColumn
    
    For ir = 8 To 50
        If colA.Cells(ir).Value = "" Then Me.Rows(ir).Hidden = True Else Me.Rows(ir).Hidden = False
    Next ir
End Sub