代码之家 › 专栏 › 技术社区 › Aspiring Developer

创建不带零的命名范围VBA,以帮助解算器计算时间

solver vba excel

0

Aspiring Developer · 技术社区 · 6 年前

ByChange:=Range("cuts_range") 部分?(A1、A9和A10为切割范围)。

Dim cuts_range As Range
Set cuts_range = Range("A1:A" & findLastRow(Range("A1"))).SpecialCells(xlCellTypeFormulas, xlNumbers)

SolverOk SetCell:=Range("$T$4").Offset(0, offsetCol), MaxMinVal:=1, ByChange:=Range("cuts_range") _
, Engine:=1, EngineDesc:="GRG Nonlinear"

---编辑---

再考虑一下,也许我可以创建一个循环,将非空白范围内的每个单元格作为单独的约束添加。如果有效的话会报告的。

0 回复 | 直到 6 年前