17、Excel VBA 用户自定义函数与代码调试全解析

Excel VBA 用户自定义函数与代码调试全解析

一、用户自定义函数（UDFs）相关内容

1. UDFs 与错误处理
   当 UDF 出现错误时，例如输入不合逻辑的范围参数地址（如 =SUMCOLOR(A2:XYZ)）或尝试除以零，单元格会显示 #VALUE! 错误。与失败的宏不同，失败的宏会弹出运行时错误消息框并提供调试选项，而失败的 UDF 仅返回 #VALUE! 错误。对于较大的 UDF，查找错误原因可能很麻烦，因此在编写大型 UDF 时，在立即窗口中逐行测试代码是个好办法。
2. 易失性函数
   • 静态随机数函数 ：有时我们希望 UDF 返回一个值后，直到我们有意重新计算它才改变。例如，生成一个 1 到 100 之间的静态随机数：

Function StaticRandom() As Double
    StaticRandom = Int(Rnd() * 100)
End Function

在单元格中输入 =StaticRandom() 即可。该函数无需参数，但代码行和单元格输入时都要加上括号。当前状态下，除非手动调用（如选中单元格按 F2 再按 Enter，或按 Ctrl + Alt + F9 强制计算所有单元格），否则返回的随机数不会改变。
- 模拟内置 RAND 函数 ：若希望 UDF 像内置 RAN