如何解决Excel VBA中的求解器循环
我有一个工作表,我们需要在每个工作表中求解“传入”值。
此处每个期间都有一个期初余额和一个预期支出,该期初余额从上一个期间的期末余额结转。我想解决收入问题,以便使期末余额保持在最低水平,同时保持在最低要求之上(基于未来期间的预期支出)。输入的内容也必须为非负数。
这是我编写的VBA代码,但是当我运行它时,花了很长时间解决了12个值。作为Excel VBA的新手,我不知所措,我不知道代码的结构方式或解决方案的执行方式是否有问题。谁能启发我?如果我有100个场景中的50个要解决的时段,这是运行求解器的最有效方法吗?
我的另一个问题是我拥有的网格是“长”格式的,因为每个时间段都相互堆叠。如果我将其转换为“宽”格式,是否可以优雅地引用该范围?
谢谢!
Dim i_ As Integer
Worksheets("sheet2").Activate
For i_ = 3 To 14
SolverReset
SolverOK SetCell:="$E" & i_,MaxMinVal:=2,ByChange:="$D" & i_
Solveradd CellRef:=Range("E" & i_),relation:=3,formulatext:=Range("F" & i_)
Solveradd CellRef:=Range("d" & i_),formulatext:=0
Solversolve True
Next i_
End Sub
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。