Question

我正在尝试用以下代码解决问题，但我找不到解决方法。每当我尝试宏时，我都会收到错误“Sub或Function not defined”。并且调试器以黄色突出显示“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

我不确定问题是什么，因为它在另一台计算机上运行得很好。

提前致谢。

Answer 1

我按照Tim William的说明，通过转到工具＆gt;添加对求解器库的参考。参考文献＆gt;求解。它完成了这项工作，并按预期工作。

Excel VBA：编译错误：子或函数未定义

1 个答案: