EXCEL VBA忽略求解器更改值

Question

我有以下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

谢谢！

Answer 1

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

EXCEL VBA does not run SOLVER inside a macro invoked from a chart button

避免变色龙问题的问题