Question

vba调用规划求解出错

用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不是被定义的变量
是重置规划求解的函数

Answer 2

这个功能倒是还没用过，但是把代码复制过去执行，很正常啊。只是你的bychange后面要加冒号。
是不是引用没开？也不会呀。会不会是office的问题，你的同事可能和你一样装的。要不就是没有打开规划求解？

追问

因为工作用的电脑不能连接外网，没法把代码全部复制过来
就选了跟规划求解有关的敲了过来
我的电脑是用了半年的，同事那个是刚配的，因为是银行，软件都是正版的，应该不会有问题
加载项的话是有启用的
vba里引用也是打钩的
msdn里的信息没有帮助T.T

追答

哪会不会是你求解的公式里有太大的计算量，或者是让规划求解认不了的。造成数据计算太大，系统内存崩溃？有的时候会不是这里的问题，而是其他部分与这部分不协调，再看看你的代码的其他部分分析一下。

追问

计算量的话不会大的，但用工具里的规划求解对话框可以直接求解出
手动打开再关闭规划求解对话框后VBA代码执行无错误，结果也是正确的