程序是从别人那弄来的
Sub DEA()
Dim NDMUs As Integer, NInputs As Integer, NOutputs As Integer
Dim i As Integer
For i = 1 To 60
'set the value of cell E18 equal to i (=1, 2,..., 15)
Range("E63") = i
'Run the Slack Solver model
SolverSolve UserFinish:=True
Range("J" & i + 1) = Range("F64")
'Select the cells containing the slacks
Range("E65:E70").Select
'record optimal slacks in cells K2:O16
Selection.Copy
Range("L" & i + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Transpose:=True
Next
End Sub
原因:VBA设置的问题。
1、首先打开需要编辑的Excel表格,进入到编辑页面中。
2、然后鼠标右键单击工作表,选择打开“查看代码”选项。
3、然后在弹出来的窗口中点击打开主菜单栏工具中的“引用”选项。
4、然后在弹出来的窗口中点击取消所有或尽可能多的对勾,回车确定。
5、然后在弹出来的窗口中,提示有些对勾提示不能取消,不用理会,点击确定。
6、然后就可以正常运行宏了。
以 2003 为例,在excel 中加载宏(插件),方法是工具-〉 加载宏
中文名为 “规划求解” 英文名 为 Solver ,可能会提示安装,如果是完全版 office 直接下一步,安装完成。后选择 “规划求解”。
然后是 vba 中建立模块,引用 SOLVER 库
再运行代码时,就一切正常了。请采纳。
追问已经加载规划求解,但还是丢失solver.xla.奇怪的是,我的office 07版本安装位于C:\Program Files(x86)\Microsoft Office\Office12目录下,07版本的自动安装生成Office12文件目录,丢失:solver.xla位于上图,已经按其路径建立文件,将solver.xla置于其中Library以及solver文件中 ,还是不行
regsvr32 SOLVER32.DLL试试
追问文件里有,但是regsvr32 SOLVER32.DLL现实加载失败
你是不是 64系统?
我在 xp sp3
office 2003 情况下运行一切正常。
这个方法也无效,可能就只有换电脑,或者换系统,换 office 了。
系统问题我不知道怎么解决,但是,如果你加载正常的,这段代码应该就不会报错了。