why these two macros (about Solver) give different results?

[novice_2010]

Hello, All,

My first macro is:

Sub Worked_Solver_Macro()

Range("A5").FormulaR1C1 = "5"
Range("A6").FormulaR1C1 = "1"
Range("A7").FormulaR1C1 = "=(R[-2]C-R[-1]C)^2"
SolverOk SetCell:="$A$7", MaxMinVal:=2, ValueOf:="0", ByChange:="$A$5"
SolverSolve

End Sub

And the result is:

My second macro is:

Sub Not_Worked_Solver_Macro()
Dim Variable_X as Long

Range("A1").FormulaR1C1 = "5"
Variable_X=Range("A1").value

Range("A5") = Variable_X

Range("A6").FormulaR1C1 = "1"

Range("A7").FormulaR1C1 = "=(R[-2]C-R[-1]C)^2"
SolverOk SetCell:="$A$7", MaxMinVal:=2, ValueOf:="0", ByChange:="$A$1"
SolverSolve

End Sub

And the result is:

I thought the Solver result would be the same. However, they are not.
What mistakes did i make?

 

[novice_2010]

The code I show here is actually a much more simplified version of my real code (which is hundreds of lines)

I am showing this code because I hope I could get some solutions of how to deal with variables when using solver.

 

[shg]

In this code,

Sub x()
    Dim x  As Double
 
    Range("A1").Value = 5
    x = Range("A1").Value
    Range("A5").Value = x
    Range("A6").Value = 1
    Range("A7").FormulaR1C1 = "=(R[-2]C-R[-1]C)^2"
 
    SolverOk SetCell:="A7", MaxMinVal:=2, ByChange:="A1"
    SolverSolve
End Sub

Cell A7 has no dependency on A1 when Solver iterates; A7 depends only on A6 and A5.

This works:

Sub y()
    Dim x  As Double
 
    Range("A1").Value = 5
    x = Range("A1").Value
    Range("A5").Value = x
    Range("A6").Value = 1
    Range("A7").FormulaR1C1 = "=(R[-2]C-R[-1]C)^2"
 
    SolverOk SetCell:="A7", MaxMinVal:=2, ByChange:="A5"
    SolverSolve
End Sub

 

[novice_2010]

Thank you. I think I start understanding how solver works.