Excel:使用工作表作为函数？

Question

我有一个 Excel 工作表，它接受两个输入并生成一个输出。

我当前可以打开工作表，在单元格 A1 和 A2 中输入这两个值，结果将显示在 A3 中。

有没有办法可以将其变成函数或子例程，以便我可以在另一个工作表中使用它来填写值表？

Answer 1

Data tables可以为你工作，但你不能引用不同工作表中的单元格。至少Excel 2003是这样，你可以在2007年或2010年尝试一下，看看是否有效。

<小时/>

其他:

是的，你可以创建一个子例程。
但您无法创建工作表函数，因为不允许他们更改工作表。

在该工作表上，创建一个函数:

public function GetWhatever(byval p1 as variant, byval p2 as variant) as variant
  'Make sure you're in AutoCalculation mode, otherwise use me.calculate
  me.range("A1").value = p1
  me.range("A2").value = p2
  GetWhatever = me.range("A3").value
end function

然后，您可以从第二个工作表上的另一个过程重复调用此函数，并将新获取的结果复制到工作表上的下一个可用行中:

for i = 1 to 10
  me.cells(i,3).value = SheetWithCalculations.GetWhatever(me.cells(i,1).value, me.cells(i,2).value)
next