规划中为何有的约束加不进去，难倒是EXCEL的规划算法有误？

zhyj_88

大家可以看一下附件和图片，不知为何第二个约束没有加进去？难道是规划函数有问题？
附程序代码：

1. Option Explicit
   
2. Private Sub 清空规划原始数据_Click()
   
3.     Dim Rng As Range
   
4.     With ActiveSheet
   
5.         Set Rng = .Range("B6:K7")
   
6.         Set Rng = Union(Rng, .Range("L7"))
   
7.         Set Rng = Union(Rng, .Range("B9:M18"))
   
8.         Rng.ClearContents
   
9.     End With
   
10.     Set Rng = Nothing
    
11. End Sub
    
12. 
    
13. Private Sub 规划求解_Click()
    
14.     Dim i, ExistSolver, RelRng As Range
    
15.     ExistSolver = False
    
16.     For i = 1 To ThisWorkbook.Application.VBE.VBProjects.Count
    
17.         If ThisWorkbook.Application.VBE.VBProjects(i).Name = "SOLVER" Then ExistSolver = True: Exit For
    
18.     Next i
    
19.     If Not ExistSolver Then MsgBox "没有加载SOLVER.XLAM 程序退出!", 64: Exit Sub
    
20.     ExistSolver = False
    
21.     For i = 1 To ThisWorkbook.VBProject.References.Count
    
22.         If ThisWorkbook.VBProject.References(i).Name = "SOLVER" Then ExistSolver = True: Exit For
    
23.     Next i
    
24.     If Not ExistSolver Then MsgBox "没有引用SOLVER.XLAM 程序退出!", 64: Exit Sub
    
25.     With Worksheets("线性规划")
    
26.         SolverReset
    
27.         SolverOptions Precision:=0.00001, AssumeLinear:=True, AssumeNonNeg:=True
    
28.         For i = 1 To WorksheetFunction.CountA(.Range("L9:L18"))
    
29.             Set RelRng = .Range("L9").Offset(i - 1, 0)
    
30.             If RelRng.Value = "≤" Then
    
31.                 SolverAdd cellRef:=.Range("N9").Offset(i - 1, 0), relation:=1, formulaText:=.Range("M9").Offset(i - 1, 0).Value
    
32.             ElseIf RelRng.Value = "＝" Then
    
33.                 SolverAdd cellRef:=.Range("N9").Offset(i - 1, 0), relation:=2, formulaText:=.Range("M9").Offset(i - 1, 0).Value
    
34.             ElseIf RelRng.Value = "≥" Then
    
35.                 SolverAdd cellRef:=.Range("N9").Offset(i - 1, 0), relation:=3, formulaText:=.Range("M9").Offset(i - 1, 0).Value
    
36.             Else
    
37.                 MsgBox "第" & CStr(i) & "个约束条件发生错误 程序退出!", 64: Exit Sub
    
38.             End If
    
39.         Next i
    
40. '        SolverOKdialog setCell:=.Range("N7"), maxMinVal:=2, byChange:=.Range("B6:K6")
    
41.         SolverOKdialog setCell:=.Range("N7"), maxMinVal:=2, byChange:=.Range("B6:K6")
    
42.         SolverSolve userFinish:=True
    
43.         SolverFinish KeepFinal:=1
    
44.     End With
    
45.     Set RelRng = Nothing
    
46. End Sub
    
47. 
    

复制代码

zhyj_88

版主是否可以看一下这个问题呢？

zhyj_88

试了一下至少十个其他数据，均可得到正确解，唯独这个数据却无法将第二个约束加入到模型中去，太诡异了。请高手看一下。

灰袍法师

不是第二个约束加不进去，而是 N10 这个单元格加不进去
鬼才知道为什么
你用其它列就可以了
哎，我越来越感觉 规划求解 一无是处了。

zhyj_88

灰袍法师 发表于 2012-7-29 22:22
不是第二个约束加不进去，而是 N10 这个单元格加不进去
鬼才知道为什么
你用其它列就可以了

第二个约束是在N10中体现的，关键是用其他数据为何N10又能加进去呢？
迷惑中。。
在对话框中手动加入第二个约束后，仍能正确求解。但天知道规划模型为何掉了一个约束？

yaodaoguizhan

可以回帖吗？我发现是控件问题,很奇葩的一个现象  删除所有控件 运行OK 原理不清楚