使用VBA時Excel求解器錯誤

Question

我有以下代碼，基本上是錄制的宏。 記錄宏后，我清除了一些重復的代碼行。 當我再次嘗試運行此代碼時，出現Sub或Function not defined錯誤。 我檢查了有關Stackoverflow的其他Solver VBA問題，但似乎沒有做錯任何事情。 誰能幫忙嗎？ 提前致謝。

Sub Macro2()

SolverOk SetCell:="$BF$7", MaxMinVal:=2, ValueOf:=0, ByChange:="$BA$7:$BC$7", Engine:=2, EngineDesc:="Simplex LP"

SolverAdd CellRef:="$BA$7", Relation:=4, FormulaText:="integer"
SolverAdd CellRef:="$BA$7", Relation:=3, FormulaText:="0"

SolverAdd CellRef:="$BB$7", Relation:=4, FormulaText:="integer"
SolverAdd CellRef:="$BB$7", Relation:=3, FormulaText:="0"

SolverAdd CellRef:="$BC$7", Relation:=3, FormulaText:="0"
SolverAdd CellRef:="$BC$7", Relation:=4, FormulaText:="integer"

SolverAdd CellRef:="$BE$7", Relation:=3, FormulaText:="0"

SolverOk SetCell:="$BF$7", MaxMinVal:=2, ValueOf:=0, ByChange:="$BA$7:$BC$7", Engine:=2, EngineDesc:="Simplex LP"

SolverSolve
End Sub

Answer 1

Solver是一個插件，因此在啟用它之前，它不會在您的vba代碼中起作用。 我使用07，所以您單擊Office按鈕->選項->加載項->管理加載項以啟用它。 不確定其他版本。

啟用外接程序后，必須將外接程序連接到vba編輯器。 打開VBA編輯器（Alt + F11），然后轉到“工具”->“引用”，然后選中“求解器”並單擊“確定”。

看到這個MSDN

http://msdn.microsoft.com/en-us/library/office/ff196600%28v=office.15%29.aspx