以编程方式添加VBA求解器约束

Question

我正在编写一段代码，该代码将循环遍历一列，并为单元格值为0的每行向求解器模型添加约束。

到目前为止，我已经尝试了这个，它不工作。

For Each cell In Range("B11:B193").Cells
If cell.Value = 0 Then
SolverAdd CellRef:=(Cells.Address), Relation:=2, FormulaText:="0" 
End If
Next

Answer 1

试着改变这个:

SolverAdd CellRef:=(Cells.Address), Relation:=2, FormulaText:="0"

:

SolverAdd CellRef:=(cell.Address), Relation:=2, FormulaText:="0"

更新:

您可能会因为For行

而得到错误

尝试更新到以下内容:

For Each Cell In Range("B11:B193")
    If Cell.Value = 0 Then
        SolverAdd CellRef:=(Cell.Address), Relation:=2, FormulaText:="0"
    End If
Next