宏函数寻求目标寻求中的语法错误

Question

我正在尝试跨大量数据集自动执行目标寻求功能，其中要导出速率（通过目标寻求），以便该速率下的 NPV 等于目标 NPV。

这可能是一个非常基本的查询，但我仍然会问：我在运行 Do Until 循环时遇到语法错误。我的代码如下：

子宏3()

循环直到范围（“Target_NPV_Delta”）= 0

范围（“Target_NPV”）.GoalSeek 目标：=范围（“NPV_Calc”），更改单元格：=范围（“速率”）

循环

结束子

我可以在没有范围函数的情况下编写代码。但是当我引入 range 函数时，它显示编译错误。

Answer 1

这是错误的语法

Do

它应该读作

Sub Macro3()

   Do Until Range("Target_NPV_Delta") = 0

      Range("Target_NPV").GoalSeek Goal:=Range("NPV_Calc"), 
      ChangingCell:=Range("Rate")

   Loop

End Sub