Excel VBA：基于公式值控制行显示隐藏的问题求助

问题原因 #

Worksheet_Change 事件仅在用户手动编辑单元格内容时触发，当单元格值由公式计算更新时，该事件不会被激活，这就是你的代码失效的核心原因。

修正后的代码 #

替换原有的Worksheet_Change事件，改用Worksheet_Calculate事件，并优化逻辑：

Private Sub Worksheet_Calculate()
    Dim w9Value As Integer
    Dim startRow As Integer
    
    ' 先显示所有目标行
    Rows("10:19").Hidden = False
    
    ' 获取W9的计算值
    w9Value = Range("W9").Value
    
    ' 仅在值为1-9时执行隐藏逻辑
    If w9Value >= 1 And w9Value <= 9 Then
        startRow = 9 + w9Value
        Rows(startRow & ":19").Hidden = True
    End If
End Sub

代码说明 #

• Worksheet_Calculate：每次工作表完成计算时触发，完美适配公式更新的场景
• 优化隐藏逻辑：通过9 + w9Value直接计算起始隐藏行，替代冗余的多分支判断，更简洁易维护
• 增加值范围判断：确保只有W9值在1-9区间时才执行隐藏，避免无效操作

注意事项 #

• 确保W9的公式计算结果是整数，如果可能出现小数，可改用Int(Range("W9").Value)取整
• 如果工作表计算频繁，可考虑增加判断，仅当W9值发生变化时才执行操作，减少不必要的重复执行

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