为何使用Evaluate函数时Excel/VBA UDF会两次调用子过程？

1. TestProxy被调用两次的原因 #

• Excel计算引擎对UDF的执行有严格的上下文管理，在UDF中用Evaluate调用子过程时，即便禁用了事件（Application.EnableEvents = False），Excel内部的计算校验机制仍会触发额外调用。Evaluate本身会触发计算上下文刷新，直接导致TestProxy被执行两次。
• 代码中用ActiveCell.Address获取单元格地址是错误逻辑：UDF执行时，ActiveCell未必是UDF所在单元格，这会导致传递给TestProxy的Range不可靠，进一步干扰计算逻辑，加重重复调用问题。

2. 赋值数组后后续求值崩溃的原因 #

• Excel的UDF设计规则是仅允许返回值，禁止修改其他单元格，通过Proxy子过程修改偏移单元格的操作本质上绕开了这个限制，直接破坏了Excel的计算链。
• 第一次执行时，计算引擎尚未检测到依赖异常，所以能正常运行；但后续重算时，偏移单元格的数值变化会触发UDF所在单元格的重新求值，形成递归计算循环，最终导致Excel计算栈溢出、程序崩溃。
• 数组赋值会一次性修改多个单元格，触发更频繁的计算更新，进一步加剧计算链混乱，崩溃概率更高。

• 替换ActiveCell为Application.Caller，确保获取UDF所在的正确单元格：

  evalstr = "TestProxy(" & Application.Caller.Address(False, False) & ")"
  

• 避免在UDF中修改其他单元格，若必须修改，建议使用工作表事件（如Worksheet_Change）替代UDF；若坚持用UDF，需添加递归防护逻辑：

  ' 在Test函数开头添加静态变量防止递归
  Static isRunning As Boolean
  If isRunning Then Exit Function
  isRunning = True
  ' 原有业务代码
  isRunning = False
  

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