单元格调用VBA自定义函数无法触发调试问题求助

首先你的代码存在对象赋值错误：Range属于对象类型，赋值时必须使用Set关键字，当前写法会触发运行时错误，Excel在计算单元格公式时可能静默跳过错误部分，直接返回后续结果，同时导致断点无法触发。

修复代码错误 #

将Range赋值语句修改为：

Public Function CompareColors(answerRange As Range, compareRange As Range) As Long

  Dim rng1 As Range: Set rng1 = answerRange
  Dim rng2 As Range: Set rng2 = compareRange
  Dim answer As Long

  answer = 2

  Debug.Print "heh" '断点设置在此处
  
  CompareColors = answer

End Function

调试步骤 #

1. 检查错误捕获设置：打开VBA编辑器，点击「工具」→「选项」→「通用」，将错误捕获方式设置为「在发生错误时中断」，避免Excel自动处理错误导致调试中断失效。
2. 重新设置断点：删除原断点，在Debug.Print行的行号左侧灰色区域点击，重新添加断点。
3. 强制触发公式计算：回到Excel工作表，按下Ctrl+Alt+F9强制重新计算所有公式，此时函数会执行并命中断点。

如果以上步骤仍无法触发调试，可以在函数开头添加Stop语句（代替断点），它会强制触发调试中断：

Public Function CompareColors(answerRange As Range, compareRange As Range) As Long
  Stop '强制中断进入调试
  Dim rng1 As Range: Set rng1 = answerRange
  '... 其余代码
End Function

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