excel 批量“规划求解”（其它方法也行）解四元一次方程组
如图所示，我需要根据I列的方程组解出每行对应的XYZ求各位excel高手帮忙写个宏代码，或者其它函数帮忙解决，非常感谢！！！更正，是三元一次方程。方程组最后$E$2*X+...
如图所示，我需要根据I列的方程组解出每行对应的XYZ
求各位excel高手帮忙写个宏代码，或者其它函数帮忙解决，非常感谢！！！
更正，是三元一次方程。
方程组最后
$E$2*X+$F$2*Y+$G$2*Z=A？
$E$3*X+$F$3*Y+$G$3*Z=B？
X+Y+Z+=1
这里的A 应该对应每行，例如A2，B2； A3， B3....... 展开
求各位excel高手帮忙写个宏代码，或者其它函数帮忙解决，非常感谢！！！
更正，是三元一次方程。
方程组最后
$E$2*X+$F$2*Y+$G$2*Z=A？
$E$3*X+$F$3*Y+$G$3*Z=B？
X+Y+Z+=1
这里的A 应该对应每行，例如A2，B2； A3， B3....... 展开
2个回答
展开全部
Sub test()
Dim MaxRow As Integer, i As Integer
Dim StrFormula1 As String, StrFormula2 As String
MaxRow = Range("A65536").End(xlUp).Row
For i = 2 To MaxRow
Range("I2") = "=SUMPRODUCT(E2:G2,OFFSET(J1:L1," & i - 1 & ",))"
Range("I3") = "=SUMPRODUCT(E3:G3,OFFSET(J1:L1," & i - 1 & ",))"
Range("I4") = "=SUM(OFFSET(J1:L1," & i - 1 & ",))"
SolverReset
SolverOk SetCell:="$I$4", MaxMinVal:=3, ValueOf:="1", byChange:=Replace("$J$2:$L$2", "2", i)
SolverAdd CellRef:="$I$2", Relation:=2, formulaText:="$A$" & i
SolverAdd CellRef:="$I$3", Relation:=2, formulaText:="$B$" & i
SolverSolve
Next
End Sub
先在模块中引用 规划求解 工具 引用 点选 SOLVER
更多追问追答
追问
不好意思啊大神，在下是个小白，看不懂你说的，可否烦请将具体操作步骤说下？不甚感激
追答
打开vba编辑器 （ALT+F11）
点工具 引用 点选 SOLVER
插入模块 然后把代码复制进去 然后按F5运行就行了
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
光点科技
2023-08-15 广告
通常情况下，我们会按照结构模型把系统产生的数据分为三种类型：结构化数据、半结构化数据和非结构化数据。结构化数据，即行数据，是存储在数据库里，可以用二维表结构来逻辑表达实现的数据。最常见的就是数字数据和文本数据，它们可以某种标准格式存在于文件...
点击进入详情页
本回答由光点科技提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
