E作者XXXavier (驱魔神探)
看板Visual_Basic
标题[VBA ] 规划求解函数(SolverOK)问题
时间Tue Apr 24 23:05:56 2007
我有两个目标式1和2
想写一个程式可以先用规划求解求取目标1的值，然後再求取目标2的值
我用录制巨集的方式得知规划求解可以用函数SolverOK来设定
但是执行程式时却出现"未定义SolverOK这个函数"(应该有此函数才对啊 @ @)
请问是哪里出错了？
p.s 增益集已勾选规划求解
--以下为程式码-----------------------------------------------------------
'计算目标分别为目标值1或2之解
'目标为目标值1
SolverOk SetCell:="$F$14", MaxMinVal:=1, ValueOf:="0", ByChange:="$C$13:$D$13"
SolverSolve
Sheet2.Cells(14, 11) = Sheet2.Cells(14, 6)
Sheet2.Cells(14, 12) = Sheet2.Cells(15, 6)
'调整目标为目标值2
SolverOk SetCell:="$F$15", MaxMinVal:=1, ValueOf:="0", ByChange:="$C$13:$D$13"
SolverSolve
Sheet2.Cells(15, 11) = Sheet2.Cells(14, 6)
Sheet2.Cells(15, 12) = Sheet2.Cells(15, 6)
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.114.202.118
※ 编辑: XXXavier 来自: 140.114.202.118 (04/24 23:16)
※ 编辑: XXXavier 来自: 140.114.202.118 (04/24 23:27)
1F：→ XXXavier:不好意思打扰罗！问题已解决！ 04/24 23:33
2F：→ XXXavier:在VB编辑器中 工具>设定引用项目 勾选Solver即可 04/24 23:34