VBA 字符串到公式

Question

您好，我创建了一个评估字符串的快速函数

Function Evalue(ByVal str As String)
Application.Volatile
Evalue = Evaluate([str])
End Function

我有一个数组，其中包含我用作字符串的所有公式。根据情况，我使用 INDEX/MATCH 来选择好的公式，然后用 Evalue 来评估它。

如果字符串公式像 SUM(A1:A20) 一样位于 1 个块中，则它可以完美运行 但是如果它在几个块中，比如

SUM(A1:A20)-SUM(B1:B20) 它返回一个#NAME 错误，如果我将字符串放在' ' 或" " 之间的数组中，它会返回#VALUE 错误。

Answer 1

** snip ** 原始代码可以正常工作。

我测试的单元格如下所示：

=Evalue("SUM(A1:A3)-SUM(B1:B3)")

这是安全问题：

显然第一次您打开并保存工作簿，将代码存储在模块中足以使其可从工作表单元格中运行。但是，下一次您打开同一个工作表（即使它启用了宏），让工作再次正常工作要困难得多。显然，原始代码可以正常工作。但是，Excel 提示它存在，然后在您尝试使用它时报告 #NAME 错误。这里有一个线程提供更多信息：

http://social.msdn.microsoft.com/Forums/en-US/0a79b7d8-178e-4cf5-8bc3-782a58b55a8b/vbaexcel-function-defined-by-user-gives-error-personalxlsb-weird?forum=isvvba

显然它需要安装一个“插件”来执行最简单的操作。 （或者您可以使用您的个人.xlsb 文件）