带相对单元格的excel返回公式

Question

我的excel中有两个工作表，第一个工作表允许我从下拉列表中选择一个计算方法，并输入计算变量(绿色单元格显示，蓝色列显示一些常量)。结果条目将从我的第二个工作表(数据库)中搜索相应的计算公式，然后将公式粘贴到工作表1，我需要使用表1中的单元格而不是我的数据库中的单元格来计算公式。

​

​

目前，我创建了一个名为Eval的用户定义函数，如下所示：

Function Eval(ref As String)
  Eval = Application.Evaluate(ref)
End Function

通过将Eval与vlookup :=Eval(VLOOKUP(A3,Database!A2:E10,5,FALSE))相结合，得到计算方程使用我数据库中的单元格的结果，如何在计算过程中得到计算公式1中单元格的结果？

Answer 1

一个简单的方法是使用一个CHOOSE中的所有公式，如下所示：

=IFERROR(CHOOSE(SUMPRODUCT(MATCH(A2,"Calculation "&ROW($1:$9),0)),B2*C2*D2,B2*C2-D2,B2+C2-D2,B2^2-C2+D2,B2*D2-C2^2,B2+C2*D2,B2*C2-C2*D2,B2-D2-C2*D2,C2-D2*B2),"")

另一种方法是使用Application.Caller，例如：

Public Function eval(ref As String)
  eval = Application.Caller.Parent.Evaluate(ref)
End Function

这确保了调用方的父级(带有eval()公式的表)作为主引用的使用。

编辑

记住，您的“行”在公式中是静态的。使用“计算4”将使用第5行(而不是第一张表中的公式行)。为此，您可以使用以下内容：

=Eval(SUBSTITUTE(VLOOKUP(A3,Database!A2:E10,5,FALSE),"##",ROW()))

而所有行号都应更改为## (或任何您喜欢的唯一标识符)。然后“计算1”将类似于：=B##*C##*D##

如果你还有任何问题，只需问:)