EXCEL VBA忽略規划求解更改值

Question

我有以下Excel VBA代碼片段來解決最小化問題：

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

這是使用Excel中的“記錄宏”菜單命令創建的。 如果我使用數據|從菜單欄運行問題， 求解器然后求解器很高興地更改了所有三個單元並完成了問題。 如果我從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不在從圖表按鈕調用的宏中運行SOLVER

避免變色龍問題的問題