Excel VBA:编译错误：未定义函数的子项

我试图用下面的代码解决一个问题，但我就是找不到解决的办法。每当我尝试宏时，就会出现一个错误“Sub或Function not defined”。调试器以黄色突出显示“Sub Solver_超时（），以蓝色突出显示“SolverRest”

我不确定问题出在哪里，因为它在另一台计算机上运行得很好

---

提前感谢。

我按照Tim William的指示，进入工具>引用>解算器，向解算器库添加引用。它完成了任务，并按预期工作。

是否向解算器库添加引用？（工具>引用>解算器）@pnuts这是一个拼写错误，是SolverReset。@蒂姆·威廉姆斯：我没有，但现在我做到了，它可以工作了。谢谢，这就解决了这个问题。@user1582396请回答并接受它。

Sub Solver_OverTime()
Application.ScreenUpdating = False
Sheets("OverTime").Activate
SolverReset
SolverOptions MaxTime:=100, _
    Iterations:=100, _
    Precision:=0.000001, _
    AssumeLinear:=True, _
    StepThru:=False, _
    Estimates:=1, _
    Derivatives:=1, _
    SearchOption:=1, _
    IntTolerance:=5, _
    Scaling:=False, _
    Convergence:=0.0001, _
    AssumeNonNeg:=True
SolverAdd CellRef:="NET", Relation:=3, FormulaText:="NET_LIMIT"
SolverAdd CellRef:="shftCount", Relation:=1, FormulaText:="shftCountLimit"
SolverAdd CellRef:="schTemplate", Relation:=4, FormulaText:="integer"

SolverOk setcell:=Sheets("OverTime").Range("Intervals[[#Totals],[OT]]"), MaxMinVal:=2, ValueOf:="0", ByChange:=Sheets("OverTime").Range("Template_Schedule[COUNT]")
'SolverOk SetCell:="TargetCell", MaxMinVal:=2, ValueOf:="0", ByChange:="schTemplate"
SolverSolve True
End Sub