Question

我正在使用求解器来寻找解决方案。我总是知道我的解决方案在特定范围内。如何设置求解器（VBA）以使用此范围。任何想法？

这是我的代码，我只想添加一些范围，如min =“A34”Max =“A45”，并希望求解器找到此范围之间的解。

SolverOk SetCell:=Range("massfr").Value, _
  MaxMinVal:=1, _
  ValueOf:="0", _
  ByChange:=Range("pdvary").Value 
SolverOptions AssumeNonNeg:=True 
SolverOk SetCell:=Range("massfr").Value, _
  MaxMinVal:=1, _
  ValueOf:="0", _
  ByChange:=Range("pdvary").Value

Answer 1

从您的范围中删除“.value”。我认为它应该是这样的：

ByChange:=Range("pdvary")

完整代码:(未经测试）

SolverOk SetCell:=Range("massfr"), _
  MaxMinVal:=1, _
  ValueOf:="0", _
  ByChange:=Range("pdvary") 
SolverOptions AssumeNonNeg:=True 
SolverOk SetCell:=Range("massfr"), _
  MaxMinVal:=1, _
  ValueOf:="0", _
  ByChange:=Range("pdvary")

有关详细信息，请参阅此link。

设置Excel求解器以查找范围内的解决方案？

1 个答案: