以目标为公式的目标寻求宏

Question

我在这里抓住了稻草，所以任何帮助都会很棒（即。我不知道我在用 VBA 做什么）。

我正在尝试通过创建目标查找宏来解决 Excel 中的循环引用问题 - 基本上

1. S3 = M + S2 ,
2. S3 = L * G

我想通过改变 M 来寻求 S3 等于L * G

所以，我已经把

• L * G在单元格H32 ，
• H18 S3 ，
• G18 M ,
• F18 S2

这是我到目前为止收集的。

Sub GoalSeek()   
Dim x As Integer
x = Range("H32").Value    
Range("H18").GoalSeek Goal:=x, ChangingCell:=Range("G18")     
End Sub

我收到“参考无效”错误，想法？ 谢谢！

Answer 1

如果 GoalSeek 单元格包含值而不是公式，或者如果更改单元格包含公式而不是值或什么都没有，则 GoalSeek 将抛出“无效引用”错误。

GoalSeek 单元格必须包含一个直接或间接引用ChangingCell 的公式； 如果公式没有以某种方式引用ChangingCell，则GoalSeek 可能不会收敛到答案或可能会产生无意义的答案。

我使用与您不同的 GoalSeek 公式测试了您的代码（我不太清楚某些术语是指单元格还是值）。

为了测试，我设置：

  the GoalSeek cell  H18 = (G18^3)+(3*G18^2)+6
  the Goal cell      H32 =  11
  the ChangingCell   G18 =  0 

代码是：

Sub GSeek()
    With Worksheets("Sheet1")
        .Range("H18").GoalSeek _
        Goal:=.Range("H32").Value, _
        ChangingCell:=.Range("G18")
    End With
End Sub

代码产生了（正确的）答案 1.1038，即 G18 的值，H18 中的公式产生的值为 11，这是我寻求的目标。

Answer 2

我认为您的问题是Range("H18")不包含公式。 此外，您可以通过消除x提高代码效率。 相反，将您的代码更改为

Range("H18").GoalSeek Goal:=Range("H32").Value, ChangingCell:=Range("G18")