Excel 在VBA函数中插入solve导致#值错误

我想把解算器放到这样的函数中

函数calIRR（）作为变量

SolverOk SetCell:="$E$47", MaxMinVal:=3, ValueOf:=0, ByChange:="$D$48", Engine _
    :=1, EngineDesc:="GRG Nonlinear"
 SolverSolve
  SendKeys "~"

calIRR=范围（$D$48”）。值

端函数

---

但它不断导致#值错误。当我更改为“过程”时，一切正常。

请指定该范围所属的工作簿和分类表。请尝试以下代码：

callRR=ThisWorkbook.Sheets（“Sheet1”）.范围（“D48”）.值

---

其中Sheet1是您的sheetName

感谢您的快速回答，但它仍然不起作用，当我调试时，光标移动到第二行（SolverOk…）后，它只是跳出，不给出任何结果。如果我再按F8几轮，现在它开始移动到下一行。真奇怪！