使用 VBA 时出现 Excel 求解器错误

Question

我有以下代码，基本上是一个宏记录。录制宏后，我清理了一些发现重复的代码行。当我再次尝试运行此代码时，我得到一个未定义的子或函数错误。我在 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

求解器是一个插件，因此在您启用它之前，它不会在您的 vba 代码中工作。我用的是07，所以你点击office按钮->选项->加载项->管理加载项来启用它。不确定其他版本。

启用插件后，您必须将插件连接到 vba 编辑器。打开 VBA 编辑器 (Alt+F11)，然后转到 Tools -> References，然后勾选“SOLVER”并点击 OK。

查看此 MSDN

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