vba调用规划求解出错

Question

用vba调用规划求解的时候总会出现错误，规划求解：产生意外的内部错误或无可用的内存，不会是计算机的问题，同事的也有这个错误。具体情况为加载项加载完后用vba调用solver都会有这个报错，如果在此之前先手动调出规划求解的对话框然后再关掉，便可以调用到
相关代码如下
sub Run()
solverreset
solverok setcell:="w17",maxminval:=2,valueof:="0",bychange="m17"
solveradd cellref:="o17",relation:=1,formulatext:="n17"
solverok setcell:="w17",maxminval:=2,valueof:="0",bychange="m17"

solversolve userfinish=false
end sub
手打，也许会有一些笔误……

Answer 1

solverok setcell:="w17",maxminval:=2,valueof:="0",bychange="m17"

这两句是一样的..把你的这些代码复制到VBA里..这两行是红色的..不知道是什么意思..

对VBA不熟悉...我按着VB的想法来说说...你的solverreset要定义一个变量,如果不知道类型,那就写成这样的,,比如写成 dim solverreset ..因为你没有声明变量,,所以不会在内存中规划出一个地方的..可能就会报这样的错...

追问

vba的话只要引用了solver.xla就可以了
solverreset不是被定义的变量
是重置规划求解的函数