excel表格 中vba程序问题 10
PrivateSubsolve_Click()Application.Run"Solver.xla!Auto_Open"'<------------加上这一句Solver...
Private Sub solve_Click()
Application.Run "Solver.xla!Auto_Open" '<------------加上这一句
SolverOk SetCell:="$b$20:$b$21", MaxMinVal:=3, ValueOf:="0", ByChange:="$b$18:$b$19"
SolverSolve
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub
我有solver在c盘里，也加载了宏，并在工具栏可以打开，但是运行的时候总是提示找不到工程和库，工具里显示丢失 solver 程序里SolverOk标蓝 ，我不懂程序，大佬来解决下 展开
Application.Run "Solver.xla!Auto_Open" '<------------加上这一句
SolverOk SetCell:="$b$20:$b$21", MaxMinVal:=3, ValueOf:="0", ByChange:="$b$18:$b$19"
SolverSolve
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub
我有solver在c盘里，也加载了宏，并在工具栏可以打开，但是运行的时候总是提示找不到工程和库，工具里显示丢失 solver 程序里SolverOk标蓝 ，我不懂程序，大佬来解决下 展开
展开全部
估计你的Solver.xla并没有加载，如果加载了，VBA里面会显示你，比如我的EXCEL加载的宏 “常用代码复制.xla”，就能在VBA中看见 ：
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
