无法使用VBA在解算器中设置整数约束

像这样的问题似乎有很多没有解决。我已确保其他问题中给出的答复/答案都不能解决我的问题

目标： 使用VBA设置并激活解算器的步骤

问题： 除了不考虑整数约束外，其他一切似乎都正常。运行VBA后，可以通过手动查看“解算器”对话框来确认这一点

我的代码如下所示：

SolverReset    

'Set constraints    

SolverAdd cellRef:=Range("$L$2:$L$99"), relation:=4, FormulaText:="integer"     

SolverAdd cellRef:=Range("$N$1"), relation:=2, FormulaText:=0     

SolverAdd cellRef:=Range("$N$2:$N$99"), relation:=3, FormulaText:=0    

'Set Objective    

SolverOk SetCell:="$T$1", MaxMinVal:=2, ValueOf:="0",_
    ByChange:="$L$2:$L$99", Engine:=1, EngineDesc:="GRG Nonlinear"    

'Run Solver    

SolverSolve UserFinish:=True 

打开“解算器”对话框显示除整数约束外的所有约束均已成功设置：

请注意，我已经尝试过：

-排除

FormulaText:=“整数”

-我的

FormulaText

值周围的双引号

-重置我的电脑

哇哦

不知怎的，我无意中找到了我的答案！或者至少是一个答案（我仍然不知道为什么原始代码不起作用）

替换

SolverAdd cellRef:=范围（$L$2:$L$99），关系：=4，公式文本：=“整数”

使用

SolverAdd CellRef:=“$L$2:$L$99”，关系：=4，公式文本：=“整数”

似乎是他们干的

我还在用

SolverAdd CellRef:=范围（“N1”），关系：=2，公式文本：=0

及

SolverAdd CellRef:=范围（$N$2:$N$40），关系：=3，公式文本：=0

因为他们工作。。。那么为什么要改变它们呢

如果有人能解释为什么原始代码不起作用，我将非常感激

呼呼

不知怎的，我无意中找到了我的答案！或者至少是一个答案（我仍然不知道为什么原始代码不起作用）

替换

SolverAdd cellRef:=范围（$L$2:$L$99），关系：=4，公式文本：=“整数”

使用

SolverAdd CellRef:=“$L$2:$L$99”，关系：=4，公式文本：=“整数”

似乎是他们干的

我还在用

SolverAdd CellRef:=范围（“N1”），关系：=2，公式文本：=0

及

SolverAdd CellRef:=范围（$N$2:$N$40），关系：=3，公式文本：=0

因为他们工作。。。那么为什么要改变它们呢

如果有人能解释为什么原始代码不起作用，我将非常感激