Question

执行此VBA解算器代码时出现编译错误（未定义函数的子代码）：

Sub Macro1()
SolverReset
SolverOk SetCell:="$H$6", _
MaxMinVal:=2, _
ValueOf:="0", _
ByChange:="$H$15:$H$20"
SolverAdd CellRef:="$H$15:$H$20", Relation:=4, FormulaText:="integer"
SolverAdd CellRef:="$H$15:$H$20", Relation:=3, FormulaText:="0"
SolverAdd CellRef:="$H$9", Relation:=3, FormulaText:="$I$9"
SolverAdd CellRef:="$H$10", Relation:=3, FormulaText:="$I$10"
SolverAdd CellRef:="$H$24", Relation:=2, FormulaText:="$I$24"
SolverAdd CellRef:="$H$25", Relation:=2, FormulaText:="$I$25"
SolverSolve userFinish:=True
End Sub

我在代码中遗漏了什么吗？

Answer 1

您必须激活解算器加载项。

看这里：

https://msdn.microsoft.com/en-us/vba/excel-vba/articles/using-the-solver-vba-functions

VBA解算器编译错误

1 个答案: