VBA Solver最终值为双倍

Question

这是我想要做的事情：

  

我希望我的求解器只给出Double Not Integer的最终值。

我意识到这对于VBA比我更有经验的人来说可能是件小事。我尝试使用Dim As Double功能。这就是我到目前为止所拥有的：

Dim finalvalues As Double
finalvalues = Range("G8:G17")

SolverReset
SolverOK SetCell:=Range("H6"), MaxMinVal:=2, ByChange:=finalvalues, Engine:=1
SolverAdd CellRef:=finalvalues, Relation:=3, FormulaText:="0"
SolverAdd CellRef:=Range("I6"), Relation:=1, FormulaText:="$B$3"
SolverAdd CellRef:=Range("J6"), Relation:=1, FormulaText:="$B$4"
SolverSolve UserFinish:=False

谢谢！