EXCEL VBA忽略解算器更改值_Excel_Vba

EXCEL VBA忽略解算器更改值

excel vba

EXCEL VBA忽略解算器更改值,excel,vba,Excel,Vba,我有以下Excel VBA代码片段来解决最小化问题： SolverOk SetCell:="$AP$13", MaxMinVal:=2, ValueOf:=0, ByChange:="$AP$9:$AP$11", Engine:=1 SolverSolve UserFinish:=True 这是使用Excel中的“记录宏”菜单命令创建的。如果我使用Data | Solver从菜单栏运行问题，那么Solver会很高兴地更改所有三个单元格并完成问题。如果从EXCEL运行宏（使用Alt-F8），也会

我有以下Excel VBA代码片段来解决最小化问题：

SolverOk SetCell:="$AP$13", MaxMinVal:=2, ValueOf:=0, ByChange:="$AP$9:$AP$11", Engine:=1
SolverSolve UserFinish:=True

这是使用Excel中的“记录宏”菜单命令创建的。如果我使用Data | Solver从菜单栏运行问题，那么Solver会很高兴地更改所有三个单元格并完成问题。如果从EXCEL运行宏（使用Alt-F8），也会发生同样的情况。但是，我已将同一宏指定给VBA按钮，当我按下此Excel时，仅更改单元格A9。如果我将代码更改为

SolverOk SetCell:="$AP$13", MaxMinVal:=2, ValueOf:=0, ByChange:="$AP$10:$AP$11", Engine:=1

我尝试使用SolverReset重置问题，但这会产生一个错误，表示Excel已用尽

如果您对如何强制Excel更改所有三个单元格（而不仅仅是A9单元格）有任何建议，我们将不胜感激

谢谢

此问题已在此处修改和更新：

避免变色龙问题