0

我正在使用求解器来寻找解决方案。我总是知道我的解决方案在特定范围内。我如何设置求解器(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 
4

1 回答 1

0

从您的范围中删除“.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")

有关更多信息,请参阅此链接

于 2013-09-30T13:38:02.737 回答