[已解决]规划求解，录制宏，无法运行？？求解！

雨雪霏

我录制了一个规划求解的宏，打开VBE后显示红色代码，调试时弹出语法错误，怎么解决呢？？请老师指教！谢谢

1. Sub Macro1()
   
2.     SolverOk SetCell,:="$B$3", MaxMinVal:=3, ValueOf:="960", yChange:="$A$1:$A$3"
   
3.     SolverDelete CellRef,:="$B$1", Relation:=2, ormulaText:="$C$1"
   
4.     SolverAdd CellRef,:="$B$1", Relation:=2, ormulaText:="$C$1"
   
5.     SolverOk SetCell,:="$B$3", MaxMinVal:=3, ValueOf:="960", yChange:="$A$1:$A$3"
   
6.     SolverSolve
   
7. End Sub
   

复制代码

最佳答案

月排行榜 / 总排行榜

hhzjxss

2011-4-20 13:11

1. 
   
2. Sub Macro1()
   
3.     Range("A1:A3").ClearContents
   
4.     Application.ScreenUpdating = False
   
5.     Application.EnableEvents = False
   
6.     SolverOk SetCell:="$B$3", MaxMinVal:=3, ValueOf:="960", ByChange:="$A$1:$A$3"
   
7.     SolverOk SetCell:="$B$3", MaxMinVal:=3, ValueOf:="960", ByChange:="$A$1:$A$3"
   
8.     SolverSolve Userfinish:=True
   
9.     Application.ScreenUpdating = True
   
10.     Application.EnableEvents = True
    
11. End Sub
    
12. 
    
13. ''记得在VBE界面“引用”中勾选“SOLVER”
    
14. 
    
15. 
    

复制代码

跳转到最佳答案楼层

hhzjxss

1. 
   
2. Sub Macro1()
   
3.     Range("A1:A3").ClearContents
   
4.     Application.ScreenUpdating = False
   
5.     Application.EnableEvents = False
   
6.     SolverOk SetCell:="$B$3", MaxMinVal:=3, ValueOf:="960", ByChange:="$A$1:$A$3"
   
7.     SolverOk SetCell:="$B$3", MaxMinVal:=3, ValueOf:="960", ByChange:="$A$1:$A$3"
   
8.     SolverSolve Userfinish:=True
   
9.     Application.ScreenUpdating = True
   
10.     Application.EnableEvents = True
    
11. End Sub
    
12. 
    
13. ''记得在VBE界面“引用”中勾选“SOLVER”
    
14. 
    
15. 
    

复制代码

hhzjxss

1. Sub Macro1()
   
2.     SolverOk SetCell:="$B$3", MaxMinVal:=3, ValueOf:="960", ByChange:="$A$1:$A$3"
   
3.     SolverDelete CellRef:="$B$1", Relation:=2, ormulaText:="$C$1"
   
4.     SolverAdd CellRef:="$B$1", Relation:=2, ormulaText:="$C$1"
   
5.     SolverOk SetCell:="$B$3", MaxMinVal:=3, ValueOf:="960", ByChange:="$A$1:$A$3"
   
6.     SolverSolve
   
7. End Sub

复制代码

蓝桥玄霜

请见那么的帅的帖子。

雨雪霏

回复 蓝桥玄霜 的帖子

哪个？？老师给个链接不？？谢谢老师

雨雪霏

回复 hhzjxss 的帖子

谢谢老师！我这个里面加载slover过程中出现了以下错误，如图：



请问老师，怎么解决？？？？谢谢老师

雨雪霏

回复 hhzjxss 的帖子

谢谢老师，已经解决！老师，能不能解释一下各行的意思？？谢谢

hhzjxss

已经在你又提问的帖子上回复！

雨雪霏

hhzjxss 发表于 2011-4-20 13:11

excel2003的vba的引用界面没有加载slover过程怎么办？