Excel VBA问题：基于Project_Ref值控制authorisations行可见性失效

需求与问题 #

要求实现：当Project_Ref单元格无项目编号时，显示名为authorisations的行；填入项目编号时隐藏该行。但目前首次填入编号时逻辑生效，删除编号后该行无法重新显示，添加Application.EnableEvents = True也未解决问题，怀疑事件触发逻辑存在问题。

原代码如下：

Private Sub Worksheet_Change(ByVal Target As Range)

If Project_Ref = "" Then
Range("authorisations").EntireRow.Hidden = False
Else
Range("authorisations").EntireRow.Hidden = True
End If

End Sub

问题分析 #

1. 未限定触发范围：原代码未判断修改的单元格是否为Project_Ref，任何单元格的修改都会触发事件，可能导致逻辑执行时机错误。
2. 空值判断不严谨：直接用Project_Ref = ""比较，若Project_Ref是单元格对象，这种比较方式可能出现判断偏差；同时未处理单元格仅含空格的情况。
3. 未处理事件递归：修改行的Hidden属性时会再次触发Worksheet_Change事件，可能干扰原逻辑执行。

修正后的代码 #

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim projectRefCell As Range
    Set projectRefCell = Me.Range("Project_Ref") ' 绑定目标单元格
    
    ' 仅当修改的是Project_Ref单元格时执行逻辑
    If Not Intersect(Target, projectRefCell) Is Nothing Then
        Application.EnableEvents = False ' 临时禁用事件，避免递归触发
        
        ' 去除空格后判断是否为空
        If Trim(projectRefCell.Value) = "" Then
            Me.Range("authorisations").EntireRow.Hidden = False
        Else
            Me.Range("authorisations").EntireRow.Hidden = True
        End If
        
        Application.EnableEvents = True ' 恢复事件触发
    End If
End Sub

关键改进点 #

• 增加Intersect判断，确保只有修改Project_Ref单元格时才执行逻辑，避免无关操作干扰。
• 用Trim()处理单元格值，排除仅含空格的情况，空值判断更准确。
• 添加事件开关，防止修改行隐藏状态时递归触发事件，保证逻辑稳定执行。
• 使用Me.Range明确引用当前工作表对象，避免跨表引用错误。

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