Question

我试图制作一个循环来重复几行的求解器，但我无法让我的代码工作。有谁知道我错过了什么。棘手的部分是我试图通过改变细胞范围（L3：M3）来最小化细胞（T3）。

Dim count As Integer
Set count = 3
Do While count <= 100
    SolverOk setcell:=Sheets("Sheet1").Cells(count, 19), MaxMinval:=2, valueof:=0, bychange:=Sheets("Sheet1").range(Cells(count, 11), Cells(count, 12)), _
        Engine:=1, EngineDesc:="GRG Nonlinear"
    SolverSolve userfinish:=True
    count = count + 1
Loop

Answer 1

我现在发现了这段代码，但为了制作循环，我需要在ByChange之后找到该部分的解决方案。有什么建议吗？

SolverReset SolverOk SetCell：= Cells（2,23），MaxMinVal：= 2，ValueOf：= 0，ByChange：=＆＃34; $ M $ 2，$ N $ 2＆＃34;，_ 引擎：= 1，EngineDesc：=＆＃34; GRG Nonlinear＆＃34;
SolverSolve userfinish:=True

使用VBA重复求解器

1 个答案: