excel 尝试对宏应用规划求解

oogrdqng  于 2023-01-10  发布在  其他
关注(0)|答案(1)|浏览(123)

所以我已经在我的活动模块上添加了求解器引用。
我用这个代码来熟悉宏求解器,但dosent工作,dosent甚至给予我一个错误.你能给我提示吗?

Sub SolverMacro()
    
    SolverReset
    SolverOk SetCell:="$R$2", MaxMinVal:=0, ValueOf:=0.1, ByChange:="$I$2", Engine:=1, EngineDesc:="GRG Nonlinear"
    SolverSolve True
    
End Sub

我的目标是通过改变单元格I2使单元格R2达到10%。没有宏,它工作得很好。

c3frrgcw

c3frrgcw1#

答:所以我以为MaxMinVal是当你想插入一个最大值或最小值时,但实际上它是用来选择一个参数的,像这样:
MaxMinVal:这是一个可选参数。下面是数字和说明符:

  • 1 =最大化
  • 2 =最小化
  • 3 =用于匹配特定值

来源:https://www.wallstreetmojo.com/vba-solver/
所以我的代码是这样的:

Sub SolverMacro()
    
    SolverReset
    SolverOk SetCell:="$R$2", MaxMinVal:="3", ValueOf:="0.1", ByChange:="$I$2", Engine:=1, EngineDesc:="GRG Nonlinear"
    SolverSolve True
    
End Sub

相关问题