将Solver用于多个单元格

Question

正如您所看到的，我真的很喜欢VBA编程。我想为细胞AE3：AE54执行52次求解器。求解器输出应在“0”和“1”之间。

我创建了以下代码来执行单元格的求解器：

Sub Solver()

Dim i As Integer

For i = 3 To 54
SolverReset
    SolverAdd CellRef:="$AE$i", Relation:=1, FormulaText:="1"
    SolverAdd CellRef:="$AE$i", Relation:=3, FormulaText:="0"
    SolverOk SetCell:="$AN$i", MaxMinVal:=2, ValueOf:="0", ByChange:="$AE$i"
SolverSolve True
Next i

End Sub

我没有必要以正确的方式做到这一点。有人可以帮忙吗？

Answer 1

您的CellRef是错误的。而不是“$ AE $ i”，它需要是“$ AE $”＆amp;岛

这将为你的第一个i评估$ AE $。