Excel VBA：编译错误：函数的子集没有定义
我试图解决下面的代码的问题，但我无法find解决方法。 每当我尝试macros，我得到一个错误“子或function未定义”。 debugging器将以黄色“Sub Solver_Overtime（）”突出显示，并以蓝色“SolverRest”
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 我不确定是什么问题，因为它在另一台计算机上运行得很好。
提前致谢。
我跟随了Tim William的指示，通过转到Tools> References> Solver来为Solver Library添加一个引用。 它做了这个工作，并按预期工作。