公共Range变量传递至Intersect方法的实现问题求助

我来帮你梳理代码里的问题，再给出可行的修正方案：

1. 核心语法错误 #

你的If语句写法不符合VBA规则——不能直接把字符串"Do Something"放在Then/Else后面，Then和Else后必须跟可执行的VBA语句（比如弹窗、单元格赋值、逻辑判断等），同时原代码的If结构也有冗余的End If问题。

2. 潜在的myRange初始化风险 #

如果用户从未激活过Sheet1，myRange会一直处于Nothing状态，此时调用Intersect会直接报错，所以必须先判断myRange是否有效。

3. 避免事件循环陷阱 #

在Worksheet_Change事件里如果修改单元格内容，会再次触发自身事件导致无限循环，需要临时关闭事件触发开关。

修正后的完整代码 #

Public myRange As Range

Private Sub Worksheet_Activate()
    ' 增加错误处理，防止Sheet1不存在导致初始化失败
    On Error Resume Next
    Set myRange = ThisWorkbook.Worksheets("Sheet1").Range("D6:D8")
    On Error GoTo 0
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 先检查myRange是否完成初始化
    If myRange Is Nothing Then
        MsgBox "请先激活Sheet1完成区域初始化"
        Exit Sub
    End If
    
    ' 关闭事件触发，避免循环调用
    Application.EnableEvents = False
    
    ' 容错处理，防止意外报错
    On Error Resume Next
    If Intersect(Target, myRange) Is Nothing Then
        ' 当修改的区域不在D6:D8范围内时执行的逻辑
        MsgBox "你修改了D6:D8以外的单元格"
        ' 示例逻辑：给修改的单元格标红
        ' Target.Interior.Color = vbRed
    Else
        ' 当修改的区域在D6:D8范围内时执行的逻辑
        MsgBox "你修改了D6:D8里的单元格"
        ' 示例逻辑：给修改的单元格标绿
        ' Target.Interior.Color = vbGreen
    End If
    On Error GoTo 0
    
    ' 恢复事件触发
    Application.EnableEvents = True
End Sub

额外优化建议 #

• 如果你是在Sheet1的代码模块中编写这些事件，可以把Worksheets("Sheet1").Range("D6:D8")改成Me.Range("D6:D8")，这样更稳妥，避免工作表名称变更导致的错误。
• 原代码里的Differenz是拼写错误，建议改成Different（如果是字符串内容的话）。

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