Re: [算表] 想錄製「規劃求解」的巨集...

看板Office作者A1pha ([αλφα])時間16年前 (2010/02/19 01:05)推噓0(0推 0噓 3→)

留言3則, 2人參與討論串3/4 (看更多)

大大，好像不行也，後來我改寫成如下，但是他還是顯示，沒有定義這個SUB或Function。根據他標示的來看，他好像完全不知到SolverOK是什麼東西...囧還沒讀到限制式就掛點了....QQ Sub Macro4() ' SolverOk SetCell:="$AH$2", MaxMinVal:=1, ValueOf:="0", ByChange:="$AF$4:$AF$30" SolverAdd CellRef:="$AA$2", Relation:=2, formulaText:="$U$2" SolverAdd CellRef:="$AE$2", Relation:=2, formulaText:="$B$2" SolverAdd CellRef:="$AF$4:$AF$30", Relation:=4, formulaText:="=integer" SolverAdd CellRef:="$AF$4:$AF$30", Relation:=2, formulaText:="$AA$4:$AA$30" SolverAdd CellRef:="$AF$4:$AF$30", Relation:=1, formulaText:="0" SolverAdd CellRef:="$V$2", Relation:=2, formulaText:="$R$2" SolverAdd CellRef:="$W$2", Relation:=2, formulaText:="$S$2" SolverOptions MaxTime:=100, Iterations:=100, Precision:=0.000001, AssumeLinear:=False, StepThru:=False, Estimates:=1, Derivatives:=1, SearchOption:=1, _ IntTolerance:=0.005, scaling:=False, Convergence:=0.0001, AssumeNonNeg:=True SolverSolve UserFinish:=True SolverFinish keepFinal:=1 SolverReset End Sub ※ 引述《kimutaka (沒有耶)》之銘言： : 因為你少了限制式..... : SolverOk SetCell:=Cells(2, 4), MaxMinVal:=2, ValueOf:="0", : byChange:="$G$8:$L$8" : 先說明一下 : sign = 1 是 >= : sign = 2 是<= : 以下類推 : sign = 3 , = : sign = 4 , int : sign = 5 , boolean : 加上限制式 : i,j,k就看你的位置而定了 : SolverAdd CellRef:=Cells(i, j), Relation:=sign, formulaText:=Cells(i, k) : SolverOptions MaxTime:=100, Iterations:=100, Precision:=0.000001, : AssumeLinear:=False, StepThru:=False, Estimates:=1, Derivatives:=1, : SearchOption:=1, _ : IntTolerance:=0.005, scaling:=False, Convergence:=0.0001, : AssumeNonNeg:=True : SolverSolve UserFinish:=True : SolverFinish keepFinal:=1 : SolverReset -- 伊蝶爾：「接受命運的人，可以得到幸福違抗命運的人，可以得到榮耀」你的選擇呢.....？ -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 123.194.88.67