使用求解器来处理多个单元格

正如你所看到的，我真的是新的VBA编程。 我想为单元格AE3：AE54执行52次求解器。 求解器输出应该在“0”和“1”之间。

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

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 $我”它需要是“$ AE $”＆我。

这将评估为您的第一个我$ 3美元。