为何Excel VBA自定义函数返回#VALUE!错误且无法修改单元格属性？

Public Function myfunc()
    ActiveSheet.Range("A1").Interior.Color = vbGreen
    myfunc = ""
End Function

单元格输入=myfunc()返回#VALUE!且A1未填充绿色的原因 #

这是Excel自定义工作表函数的固有运行限制：

• 所有在单元格中通过=调用的自定义函数，仅被允许进行值计算并返回结果，不能修改工作表的任何环境属性，包括修改单元格格式、插入删除单元格、修改其他单元格内容这类操作都会被系统直接拦截
• 你的代码中包含修改单元格填充色的操作，触发了限制规则，函数执行被中断，因此返回#VALUE!错误，修改A1颜色的操作也不会生效

通过函数图标调用时A1可正常设置为绿色的原因 #

通过函数向导/功能区图标调用该方法时，运行环境和单元格调用完全不同：

• 这种调用方式是将代码作为普通VBA过程执行，拥有完整的操作权限，允许修改工作表对象属性，因此改色代码可以正常运行
• 此时不需要向单元格返回计算值，也不会触发单元格函数的错误校验逻辑，因此不会报错

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