EXCEL VBA使用多行循环运行求解器 [英] EXCEL VBA Run Solver Using a Loop for Multiple Rows
本文介绍了EXCEL VBA使用多行循环运行求解器的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
我已经记录了一个宏来在excel上运行求解器,现在需要它循环以在具有必要参数的一系列行(54到288)上运行.
I've recorded a macro to run solver on excel, and now need it to loop to run on a range of rows (54 to 288) with the necessary parameters.
我正在尝试通过更改Cols来最小化Col CQ. CF:CJ(应设为负数) 并添加2个约束:
I'm trying to minimise Col. CQ, by changing Cols. CF:CJ (which SHOULD be allowed to be negative) and adding 2 constraints:
- Col CM必须为= 1
- Col CQ必须> = 0
非常感谢您的帮助!请在下面找到代码.
Help is much appreciated! Please find the code below.
SolverOk SetCell:="CQ54", MaxMinVal:=2, ValueOf:=0, ByChange:="CF54:CJ54" _
, Engine:=1, EngineDesc:="GRG Nonlinear"
SolverAdd CellRef:="CM54", Relation:=2, FormulaText:="1"
SolverAdd CellRef:="CQ54", Relation:=3, FormulaText:="0"
SolverOk SetCell:="CQ54", MaxMinVal:=2, ValueOf:=0, ByChange:="CF54:CJ54" _
, Engine:=1, EngineDesc:="GRG Nonlinear"
SolverOk SetCell:="CQ54", MaxMinVal:=2, ValueOf:=0, ByChange:="CF54:CJ54" _
, Engine:=1, EngineDesc:="GRG Nonlinear"
SolverSolve
推荐答案
未经测试:
For n = 54 to 288
SolverReset
SolverOk SetCell:="CQ" & n, MaxMinVal:=2, ValueOf:=0, _
ByChange:="CF" & n & ":CJ" & n , Engine:=1, EngineDesc:="GRG Nonlinear"
SolverAdd CellRef:="CM" & n, Relation:=2, FormulaText:="1"
SolverAdd CellRef:="CQ" & n, Relation:=3, FormulaText:="0"
SolverSolve
Next n
这篇关于EXCEL VBA使用多行循环运行求解器的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!
查看全文