如何在单元格值变更时自动运行指定VBA隐藏行代码？

你现有的代码可以实现指定列值为0时隐藏对应行，但要让它在单元格值（尤其是跨工作表链接的单元格）更新时自动运行，需要借助工作表计算事件——因为跨工作表链接的单元格更新会触发工作表的计算，而非普通的编辑变更事件。

修改后的实现步骤与代码： #

1. 右键点击目标工作表的标签（比如你要处理的那个工作表），选择「查看代码」，打开VBA编辑器。
2. 在编辑器中粘贴以下代码：

' 工作表计算事件：每当工作表完成计算时触发（包括跨工作表链接单元格更新）
Private Sub Worksheet_Calculate()
    HideRowCellTextValue
End Sub

' 核心逻辑过程：隐藏/显示指定行
Sub HideRowCellTextValue()
    Dim StartRow As Long, LastRow As Long, iCol As Long, i As Long
    
    ' 配置参数：可根据需求修改
    StartRow = 14   ' 起始行
    LastRow = 25    ' 结束行
    iCol = 5        ' 目标列（5对应E列）
    
    ' 关闭屏幕刷新，避免闪烁并提升运行速度
    Application.ScreenUpdating = False
    
    For i = StartRow To LastRow
        ' 注意：如果单元格存储的是数字0，用数字比较更准确；若为文本"0"则保留原字符串比较
        If Cells(i, iCol).Value <> 0 Then
            Cells(i, iCol).EntireRow.Hidden = False
        Else
            Cells(i, iCol).EntireRow.Hidden = True
        End If
    Next i
    
    ' 恢复屏幕刷新
    Application.ScreenUpdating = True
End Sub

关键说明： #

• Worksheet_Calculate事件：这是实现自动触发的核心，当工作表中的公式（包括跨工作表链接）计算更新时，该事件会自动执行，调用你的行隐藏逻辑。
• 变量声明：添加Dim语句明确变量类型，避免VBA默认的变体类型带来的潜在问题。
• 屏幕刷新控制：运行代码时关闭屏幕刷新，完成后恢复，提升用户体验。
• 值的比较：如果目标单元格是数字类型的0，用<> 0比原代码的<> "0"更准确；如果单元格是文本型的"0"，则改回字符串比较即可。

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