赋值单元格地址后VBA的Worksheet_Change事件子程序失效问题排查

嘿，我完全懂这种“看似无关的代码毁了整个宏”的崩溃感！这种问题大概率和Worksheet_Change事件的特性或者变量赋值的隐性错误有关，咱们来拆解最可能的原因：

Worksheet_Change事件本身就是在工作表内容变化时触发的，如果你的LINE1和LINE2代码里，赋值单元格地址的操作间接导致了工作表内容的修改（哪怕只是不小心触发了单元格联动逻辑），就会递归调用这个事件，导致宏陷入死循环或者直接卡死。

比如如果你的赋值是类似Set komorka_k = Range("K1")，而K1单元格带有公式或者其他联动规则，就可能触发二次变更。

解决方法很简单：在执行可能触发事件的代码前，临时关闭事件触发，执行完再打开：

' 在LINE1和LINE2之前添加
Application.EnableEvents = False

' LINE1：你的赋值代码，比如Set komorka_k = Range("K1")
' LINE2：你的赋值代码，比如Set komorka_y = Range("Y1")

' 一定要记得重新打开事件！
Application.EnableEvents = True

如果komorka_k和komorka_y的类型声明不对，或者赋值的单元格地址无效，会导致代码悄悄抛出错误，但因为VBA默认可能关闭了错误提示，看起来就像宏“突然失效”。

常见的错误场景：

• 如果是要引用单元格对象，必须用Set关键字，且变量要声明为Range类型：

  ' 正确写法
  Dim komorka_k As Range
  Set komorka_k = Me.Range("K1") ' 用Me指代当前工作表，避免跨表引用错误
  

• 如果是赋值单元格地址字符串，要声明为String：

  Dim komorka_k As String
  komorka_k = "K1"
  

另外要检查赋值的地址是否有效：比如有没有拼写错误、是不是引用了不存在的单元格，或者跨工作表引用时没指定工作表（比如Sheet2.Range("K1")而不是直接Range("K1")）。

你声明了两个公共变量stara_wartosc和czy_wiekszy_zakres，虽然看起来和单元格赋值无关，但如果你的赋值代码间接修改了这两个变量的状态（比如在其他子程序里用到了它们，而单元格赋值后触发了这些子程序），也可能导致宏逻辑走偏。可以在赋值前后打印这两个变量的值到立即窗口，看看有没有变化：

Debug.Print "赋值前：stara_wartosc = " & stara_wartosc & ", czy_wiekszy_zakres = " & czy_wiekszy_zakres
' LINE1和LINE2代码
Debug.Print "赋值后：stara_wartosc = " & stara_wartosc & ", czy_wiekszy_zakres = " & czy_wiekszy_zakres

1. 打开错误提示：在VBA编辑器里按Ctrl+G打开立即窗口，输入On Error GoTo 0，这样代码出错时会直接弹出错误框，告诉你具体哪里出问题了。
2. 单独测试赋值代码：把LINE1和LINE2的代码复制到立即窗口执行，看是否会报错，能快速定位是不是赋值本身的问题。

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