能通过系统实现象excel这样的规划求解吗

此主题相关图片如下:83e7b3e6-7789-4200-897e-e45844a11910.png

没有案例。具体请上传实例说明,详细描述要按什么规则和逻辑处理,得到什么结果
以下是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
目前在excel里直接操作存在这个问题,希望哪位高手帮忙看下