基于独立目标通过Worksheet_Change事件隐藏/显示列

嘿，我来帮你搞定这个需求！你的现有代码已经有了单个单元格的判断逻辑，现在我们把它扩展到两个目标单元格，让代码更健壮、逻辑更清晰。

完整的VBA代码实现 #

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim sourceSheet As Worksheet
    Set sourceSheet = Me ' 用Me直接指代当前绑定事件的工作表，比ActiveSheet更可靠
    
    ' 定义需要监控的两个目标单元格（这里假设是C4和D4，你可以根据实际修改）
    Dim watchRange As Range
    Set watchRange = Union(sourceSheet.Range("C4"), sourceSheet.Range("D4"))
    
    ' 仅当修改的单元格是我们监控的目标时，才执行后续逻辑
    If Not Intersect(Target, watchRange) Is Nothing Then
        Application.ScreenUpdating = False ' 关闭屏幕刷新，避免操作时的闪烁
        
        ' 处理第一个目标单元格C4，控制"Peer"列的显示/隐藏
        If UCase(sourceSheet.Range("C4").Value) = "YES" Then ' 用UCase忽略大小写
            sourceSheet.Range("Peer").EntireColumn.Hidden = False
        Else
            sourceSheet.Range("Peer").EntireColumn.Hidden = True
        End If
        
        ' 处理第二个目标单元格D4，控制另一列（这里用"Manager"列举例，你可自行修改）
        If UCase(sourceSheet.Range("D4").Value) = "YES" Then
            sourceSheet.Range("Manager").EntireColumn.Hidden = False
        Else
            sourceSheet.Range("Manager").EntireColumn.Hidden = True
        End If
        
        Application.ScreenUpdating = True ' 恢复屏幕刷新
    End If
End Sub

关键细节说明 #

• 用Me替代ActiveSheet：ActiveSheet可能在代码运行时被意外切换，Me直接指向当前绑定这个事件的工作表，逻辑更稳定。
• 监控区域合并：通过Union把两个目标单元格合并成一个监控范围，不管修改哪一个，都会触发列的控制逻辑。
• 忽略大小写判断：用UCase()把单元格值转成大写后再和"YES"对比，避免因为大小写不一致导致逻辑失效。
• 关闭屏幕刷新：操作列的显示/隐藏时会有屏幕闪烁，关闭ScreenUpdating能提升用户体验。

自定义调整提示 #

• 如果不想用命名区域（比如"Peer"、"Manager"），可以直接替换成列号或列字母，比如Columns("F")代表F列。
• 你可以修改watchRange里的单元格地址，换成你实际需要监控的两个目标单元格。
• 代码一定要放在对应的工作表模块里（右键工作表标签→查看代码，粘贴进去），不要放在标准模块中。

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