使用 Excel Solver 运行 do while 循环

编程问答 2022-05-31

问题描述

Sub TestSolver()
    '
    ' TestSolver Macro
    '

    '
    Worksheets("Q3").Activate
    do while Range("E10").Value = 0
        
        SolverReset
        
        Range("B7").Value = Range("B7").Value + 10
        SolverOk SetCell:="$B$16",MaxMinVal:=1,ValueOf:=0,ByChange:="$B$10:$F$10",_
            Engine:=2,EngineDesc:="Simplex LP"
        SolverOk SetCell:="$B$16",EngineDesc:="Simplex LP"
        SolverSolve
    Loop
End Sub

它说子或函数未定义！请指出问题

附言我是 VBA 新手，如果问题太少请见谅

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

excelexcelsolvervba