VBA解算器不复位

• Z时代
• 2024-01-10
• 分类：问答

我遇到了问题，而我的解算器脚本实际上并没有解决当我在工作表之间移动时。求解器应该通过每列更改一列10个单元中的5个单元使参考单元最大为1。VBA解算器不复位

wslist = Array("A", "B", "C") 
For j = LBound(wslist) To UBound(wslist) 
Worksheets(wslist(j)).Activate 
For i = 0 To 9 
    SolverReset 
    SolverOptions Precision:=0.1 
    SolverOk SetCell:=Cells(7 + i * 4, 49), MaxMinVal:=1, ValueOf:=0, ByChange:=Range(Cells(6, 18 + i), Cells(10, 18 + i)), _ 
    Engine:=1, EngineDesc:="GRG Nonlinear" 
SolverAdd CellRef:=Cells(7 + i * 4, 49), Relation:=1, FormulaText:="1" 
*Constraints Omitted* 
    Next i 
Next j 
Application.ScreenUpdating = True 

求解似乎并不当我从工作表A移动到B，先运行IE脚本运行的表的罚款，但是当它想移动到表B中的脚本“运行”，但是求解并不能改变什么。如果我经历并手动输入完全相同的参数进入解算器，它会运行。

任何帮助非常感谢，谢谢。

回答：

以上是 VBA解算器不复位 的全部内容， 来源链接： utcz.com/qa/265252.html