对多个单元格使用规划求解

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$" & i.

您的第一个 i 的计算结果为 $AE$3。

对多个单元格使用规划求解

Use Solver for multiple cells

excel

vba

solver