Excel vba。求解

Question

Sub optimum()

Worksheet("Process").activate

OBJECTIVE="P"
VARIABLE="X"
CONSTRAINTS="J15,J16"

Solver reset
SolverOk SetCell:=Range("OBJECTIVE"), MaxMinVal:=1,ByChange:=Range("VARIABLES")

SolverAdd CellRef:=("CONSTRAINTS"), Relation:=3,FormulaText:=0#

SolverSolve UserFinish:=True

End Sub

这是我的代码。我添加了一个滚动条并将其链接到变量X也链接到的单元格。

我将如何处理由优化期间求解程序处理的变量X，以便解算器引用编码值而不是实际值？

简而言之，我应该做哪些修改来保证优化和滚动条的正确性能？请帮忙。它是我在编程课中的输出。