Excel VBA Goalseek

Question

我正在尝试在Excel电子表格中利用VBA中的goalseek命令。我有F3，F7和F18的值。当我更改F3中的值时，我得到了这个错误：

运行时错误＆＃39; 1004＆＃39;： 参考无效

这是代码

Private Sub Worksheet_Change(ByVal Target As Range)
With Worksheets("Mdl")
If Target = Range("F3") Then

    Range("F3").GoalSeek Goal:=Range("F7"), ChangingCell:=Range("F18")


End If
End With
End Sub

Answer 1

Goalseek在您创建它的单元格中需要一个公式，因此如果更改值而不是公式的范围（“F3”），则会出现错误。