作者：乔山办公网日期：
返回目录：excel表格制作
分再多，也没实际意义，要是你花得起时间，还不如自己去百度代码
请补充完整提问，或截图示例，以方便大家理解支招！
下载solver.xla，安装就是了，哈哈，复制你的，选我吧！
#If VBA7 Then
Private Declare PtrSafe Function Solv Lib "Solver32.dll" (ByVal object, ByVal app, ByVal wkb, ByVal x As Long) As Long
#Else
Private Declare Function Solv Lib "Solver32.dll" (ByVal object, ByVal app, ByVal wkb, ByVal x As Long) As Long
#End If