function - 在 Excel 中设置范围时 VBA 失败

Question

使用 MSDN 中的示例我正在尝试在 Excel 2007 中设置单元格的值。以下是我采取的步骤:

在 Excel 选项中选择 Enable all Macro's和 Trust access to VBA object model .

创建一个新的 Excel 工作簿。

添加一个新的 VBA 模块。

插入以下函数:

Function MyTest(rg As Range)
    rg.Value = 1
    MyTest = 1234
End Function

添加公式=MyTest(B1)到 A1 的单元格。

当执行 MyTest 的第一行时，调试器 simple 失败。如果没有任何错误，它将停止调试并显示 #VALUE!在 A1 中。 B1 仍然是空的。

我试过设置.Formula而不是 .Value .我试过使用 ActiveSheet和 Worksheets["Sheet1"]访问工作表。什么可能是导致此错误的原因？

Answer 1

不允许从单元格公式调用的 VBA 函数修改单元格内容。此限制已到位，以便 Excel 可以跟踪依赖项。

如果您需要修改单元格内容，则必须通过其他一些机制调用您的 VBA，例如用户表单。