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 (将#修改为@）

excel excel solver vba