求助：实现Excel VBA条件自动隐藏行（实时触发而非仅打开工作簿时）

问题根源 #

你编写的vba_hide_row_columns是普通宏过程，只能手动执行或通过工作簿打开事件调用，无法实时响应单元格内容的变化。要实现实时触发的需求，必须使用工作表的事件过程来监听单元格变动。

修正后的实时触发代码 #

右键目标工作表标签→选择「查看代码」，将原有代码替换为以下内容：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim checkCol As Integer: checkCol = 5 '指定检查E列（第5列）
    Dim changedRow As Range
    
    '仅处理E列的单元格变动，避免无意义的计算
    If Not Intersect(Target, Me.Columns(checkCol)) Is Nothing Then
        '关闭事件触发，防止代码执行时循环触发Change事件
        Application.EnableEvents = False
        
        '遍历所有被修改的行
        For Each changedRow In Target.Rows
            Select Case Me.Cells(changedRow.Row, checkCol).Value
                Case "Complete", "Discontinued"
                    Me.Rows(changedRow.Row).Hidden = True
                Case Else
                    Me.Rows(changedRow.Row).Hidden = False
            End Select
        Next changedRow
        
        '重新开启事件触发
        Application.EnableEvents = True
    End If
End Sub

额外优化建议 #

1. 初始化行状态：如果需要在打开工作簿时一次性设置所有行的隐藏状态，可保留原宏并在ThisWorkbook代码窗口添加以下代码：

   Private Sub Workbook_Open()
       Sheet1.vba_hide_row_columns '将Sheet1替换为你的目标工作表名称
   End Sub
   

2. 修复行号溢出问题：原代码用Integer存储行号，当行号超过32767时会报错，建议改用Long类型：

   Sub vba_hide_row_columns()
       Dim i As Long '替换Integer为Long
       For i = 4 To 9000
           If Cells(i, 5).Value = "Complete" Or Cells(i, 5).Value = "Discontinued" Then
               Rows(i).Hidden = True
           Else
               Rows(i).Hidden = False
           End If
       Next i
   End Sub
   

内容的提问来源于stack exchange，提问作者MeliKay