如何在VBA中使用求解器函数？

Question

我为快速使用Excel解算器制作了一个宏。但我不知道如何使用fomulatext函数。

我想在更改行时更改约束。（当更改行时，我想将其第34列用作右侧）。

这是我的代码，solveradd CellRef:=Range(Cells(i + 1, 27), Cells(i + 1, 29)), relation:=1, formulatext:="Cells(i + 1, 34)"是我的疑点（尤其是"Cells(i + 1, 34)"部分）。

For i = 1 To nrepeat

SolverReset
solveradd CellRef:=Range(Cells(i + 1, 21), Cells(i + 1, 23)), relation:=3, formulatext:=0
solveradd CellRef:=Range(Cells(i + 1, 24), Cells(i + 1, 26)), relation:=1, formulatext:=0
solveradd CellRef:=Range(Cells(i + 1, 31), Cells(i + 1, 33)), relation:=3, formulatext:=0.0001
solveradd CellRef:=Range(Cells(i + 1, 27), Cells(i + 1, 29)), relation:=1, formulatext:="Cells(i + 1, 34)"
solveradd CellRef:=Cells(i + 1, 30), relation:=2, formulatext:=1
SolverOk SetCell:=Cells(i + 1, 34), MaxMinVal:=2, ByChange:=Range(Cells(i + 1, 31), Cells(i + 1, 34)), Engine:=1
SolverSolve Userfinish:=True