- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]excel规划求解 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=191432)
-- 发布时间：2024/4/16 18:02:00
-- [求助]excel规划求解
能通过系统实现象excel这样的规划求解吗
此主题相关图片如下：83e7b3e6-7789-4200-897e-e45844a11910.png
-- 发布时间：2024/4/16 20:18:00
--
可以写代码编程实现
-- 发布时间：2024/4/17 9:14:00
--
不会，有可参考的吗
-- 发布时间：2024/4/17 9:58:00
--
没有案例。具体请上传实例说明，详细描述要按什么规则和逻辑处理，得到什么结果
-- 发布时间：2024/4/17 17:18:00
--
以下是excel中使用VBA进行规划求解的代码，结果提示“编译错误：子过程或函数未定义”，哪位大能帮忙看看
Sub test()
Dim MaxRow As Integer, i As Integer
Dim iA As Integer, iB As Integer
Dim StrFormula1 As String, StrFormula2 As String
Worksheets("Sheet1").Activate
iRows = 20
For i = 2 To iRows
SolverReset
SolverOk SetCell:=Replace("$AI$2", "2", i), MaxMinVal:=2, byChange:=Replace("$AA$2", "2", i)
SolverSolve UserFinish:=True
Next
End Sub
Dim MaxRow As Integer, i As Integer
Dim iA As Integer, iB As Integer
Dim StrFormula1 As String, StrFormula2 As String
Worksheets("Sheet1").Activate
iRows = 20
For i = 2 To iRows
SolverReset
SolverOk SetCell:=Replace("$AI$2", "2", i), MaxMinVal:=2, byChange:=Replace("$AA$2", "2", i)
SolverSolve UserFinish:=True
Next
End Sub
-- 发布时间：2024/4/17 17:31:00
--
foxtable使用vba参考：http://www.foxtable.com/webhelp/topics/2121.htm
-- 发布时间：2024/4/17 17:34:00
--
目前在excel里直接操作存在这个问题，希望哪位高手帮忙看下
-- 发布时间：2024/4/17 18:49:00
--
已解决