达到最大时间限制后自动选择“停止”按钮

编程问答 2022-05-31

问题描述

我正在使用现代 API 在循环中运行多项优化，并希望在达到优化的最大时间限制后自动单击消息框中的“停止”按钮并开始下一次优化。

Dim prob As New Problem
Dim obj As New RSP.Function

prob.Init ThisWorkbook.Worksheets("Constraints")
prob.Engine.Params("MaxTime") = 100
Constraints.Activate
obj.Init "G6"
prob.solver.solverType = Solver_Type_Maximize
obj.FunctionType = Function_Type_Objective
prob.Functions.Add obj
prob.solver.Optimize

我的代码有效，所以我能够启动求解器并获得结果，但是一旦达到时间限制，我总是必须手动单击停止按钮按钮，并且希望它自动单击“停止”，因为我是连续运行 10 多项优化。

enter image description here

感谢您的帮助！

解决方法

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

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

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

messageboxmessageboxobjectobjectobjectoptimizationoptimizationsolvervba