excel规划求解结合vba宏笔记

概念与配置

规划求解定义

excel%E8%AE%BE%E7%BD%AE%E8%A7%84%E5%88%92%E6%B1%82%E8%A7%A3-toc" style="margin-left:40px;">excel设置规划求解

宏的基本操作

excel%E6%89%B9%E9%87%8F%E8%BF%9B%E8%A1%8C%E8%A7%84%E5%88%92%E6%B1%82%E8%A7%A3%E6%A1%88%E4%BE%8B-toc" style="margin-left:0px;">excel批量进行规划求解案例

加载规划求解模块

宏的设置

宏录制vba

其他案例

概念与配置

规划求解定义

运用“规划求解”定义并求解问题 - Microsoft 支持

excel%E8%AE%BE%E7%BD%AE%E8%A7%84%E5%88%92%E6%B1%82%E8%A7%A3">excel设置规划求解

EXCEL规划求解的简明教程 - 知乎 (zhihu.com)

excel中的批量操作可以使用vba宏来进行操作

宏的基本操作

Excel-VBA 快速上手（一、宏、VBA、过程、类型与变量、函数）_excel vba-CSDN博客

复杂的宏可以使用宏录制

Excel 宏教程：录制宏基础 - 懒人Excel (lanrenexcel.com)

使用宏录制器自动执行任务 - Microsoft 支持

excel%E6%89%B9%E9%87%8F%E8%BF%9B%E8%A1%8C%E8%A7%84%E5%88%92%E6%B1%82%E8%A7%A3%E6%A1%88%E4%BE%8B">excel批量进行规划求解案例

批量处理通常可以使用vba进行编写来实现，通过宏录制结合gpt可以实现零基础实现复杂的批处理。

加载规划求解模块

通过设置进行规划求解

宏的设置

然后就可以编写了

宏录制vba

自行设置

然后进行规划求解

输入你的约束函数等信息

完成后点击停止录制

就可以看到我们宏录制的vba了

运行代码前需要引入

然后通过gpt进行修改完善

例如我的vba

先随机初始化

Sub FillRandomNumbers()Dim rng As RangeDim cell As RangeDim minValue As DoubleDim maxValue As Double' 设置随机数的最小值和最大值minValue = 0#maxValue = 120#' 设置要填充随机数的范围Set rng = Range("B2:E89")' 遍历每个单元格并填充随机数For Each cell In rngcell.Value = minValue + (maxValue - minValue) * RndNext cell
End Sub

Sub OptimizeRows()Dim i As IntegerFor i = 223 To 224' 设置 Solver 参数SolverOk SetCell:="$I$" & i, MaxMinVal:=3, ValueOf:=0, ByChange:="$B$" & i & ":$E$" & i, _Engine:=1, EngineDesc:="GRG Nonlinear"' 添加 Solver 约束SolverAdd CellRef:="$B$" & i & ":$E$" & i, Relation:=1, FormulaText:="100"SolverAdd CellRef:="$H$" & i, Relation:=1, FormulaText:="8"SolverAdd CellRef:="$H$" & i, Relation:=3, FormulaText:="4"' 求解SolverSolve' 重置 SolverSolverResetNext i
End Sub

' 重置 Solver
SolverReset

重点注意这个，会重置规划求解。不然每次都会添加你的约束条件

相当于下图的全部重置

这段VBA代码用于在Excel中利用求解器（Solver）解决优化问题。以下是每部分的解释：

Dim i As Integer: 声明一个整型变量 i，用于循环控制。
For i = 27 To 224: 启动一个循环，从第27行到第224行逐行处理。
SolverOk SetCell:="$I$" & i, MaxMinVal:=3, ValueOf:=0, ByChange:="$B$" & i & ":$E$" & i, Engine:=1, EngineDesc:="GRG Nonlinear": 设置求解器的目标单元格为第i行的I列，优化目标为该单元格的值为0，允许更改B列到E列的单元格，使用“GRG Nonlinear”求解引擎。
SolverAdd CellRef:="$B$" & i & ":$E$" & i, Relation:=1, FormulaText:="100": 为第i行的B列到E列单元格设置一个约束条件，要求这些单元格的值不超过100。
SolverAdd CellRef:="$H$" & i, Relation:=1, FormulaText:="8": 为第i行的H列单元格设置一个约束条件，要求该单元格的值不超过8。
SolverAdd CellRef:="$H$" & i, Relation:=3, FormulaText:="4": 为第i行的H列单元格设置另一个约束条件，要求该单元格的值至少为4。
SolverSolve: 执行求解器计算以找到满足所有约束条件的最优解。
Next i: 结束当前循环，继续到下一行。