Excel VBA：編譯錯誤：函數的子集未定義

我試圖解決下面的代碼的問題，但我無法找到解決方法。每當我嘗試宏時，都會收到錯誤「Sub or Function not defined」。和黃調試亮點「子Solver_Overtime（）和特色的藍色‘SolverRest’Excel VBA：編譯錯誤：函數的子集未定義

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

我不能確定是什麼問題，因爲它運行在另一臺計算機上就好了。

在此先感謝。

來源

2014-02-20 BlueSun3k1

你添加一個引用到求解庫？*（工具>參考>求解器）* –

@pnuts是一個錯字，它是SolverReset。 – BlueSun3k1

@蒂姆威廉斯：我沒有，但現在我做了，它的工作原理。謝謝，這會照顧到這個問題。 – BlueSun3k1

我跟進蒂姆·威廉的指示通過Tools>引用添加引用規劃求解庫>解算器，它做的工作，它按預期工作。

來源

2014-09-23 03:41:48 BlueSun3k1

Excel VBA：編譯錯誤：函數的子集未定義

回答

相關問題