Функция поиска цели продолжает возвращаться к исходным значениям после нахождения решения.

Question

Я стремлюсь к достижению доходности облигации, учитывая цену олл-ин.Я сделал свой код так, чтобы искомая цель, в ячейке G7, копировалась в ячейку J11.Тем не менее, я замечаю, что после достижения цели все ценности возвращаются к тем, которые были до цели.Следовательно, урожай, который я вставляю в ячейку J11, является исходным, что неверно.Однако функция поиска цели действительно находит решение.

Мой код ниже

Sub Repo_Price()
Dim name As String, i As Double

name = ActiveSheet.name
i = Range("G7").Value

Worksheets(name).Range("J10").Clear
Worksheets(name).Range("J11").Clear

With Application
    .MaxIterations = 500
    .MaxChange = 0.00000001
End With

Application.ScreenUpdating = False

Worksheets(name).Range("J10").Value = Worksheets(name).Range("J9").Value

'Preserving original date and YTM
Worksheets(name).Range("G1").Value = Worksheets(name).Range("G2").Value

'Calculating implied YTM
Worksheets(name).Range("G2").Value = Worksheets(name).Range("J3").Value
Range("G8").GoalSeek Goal:=Range("J10").Value, ChangingCell:=Range("G7")
Worksheets(name).Range("J11").Value = Worksheets(name).Range("G7").Value

'Returning to original date
Worksheets(name).Range("G2").Value = Worksheets(name).Range("G1").Value
Worksheets(name).Range("G1").Clear
Range("G7").Value = i

ActiveSheet.Calculate
Application.ScreenUpdating = True

End Sub