推 A1pha:感謝大大太神了＠＠ 我回去試試看！錄製巨集時不會連限制式 02/19 00:29
→ A1pha:一起錄進去嗎@@" 都要用手動填寫啊..囧 真是太慘烈了QQ 02/19 00:29
推 A1pha:當Relation:=4 formulaText要填什麼呀？ @@ 02/19 00:39
推 A1pha:我知道了～填integer就可以了～ 02/19 01:48
因為你少了限制式.....
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
※ 引述《A1pha ([αλφα])》之銘言：
: 軟體:
: Excel 2003 SP3
: 我想請問一下，
: 我錄製了一個規劃求解的巨集。
: 就是想用一個按鈕指定這一個巨集，
: 這樣的話，就能直接在表單上面按按鈕來規劃求解。
: 但是我發現，好像沒辦法這樣做，
: 按下去之後，
: 他會寫說，有個SUB沒有定義...
: 這該怎麼辦啊...囧
: 功能表的功能都沒辦法用巨集來製作嗎？
: Sub Macro4()
: '
: '
: SolverOk SetCell:="$AH$2", MaxMinVal:=1, ValueOf:="0",
: ByChange:="$AF$4:$AF$30"
: SolverSolve
: End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 220.131.80.69