38、自动化求解器及其他应用指南

自动化求解器及其他应用指南

在使用VBA与求解器（Solver）结合进行编程时，会涉及多个方面的内容，包括结果存储、可能出现的问题以及其他相关求解平台和插件的使用。下面将详细介绍这些内容。

1. 结果存储与恢复

• StoreResults子过程 ：该子过程用于将求解器在“Produced”和“Profit”范围的结果转移到灵敏度表中。它接受一个参数 iModel ，用于指定将结果放置在表中的位置。 iModel 在“Sensitivity”子过程的 For Each 循环中每次递增1。以下是代码示例：

Sub StoreResults(iModel As Integer)
    Dim i As Integer
    With wsModel.Range("G4")
        For i = 1 To 4
           .Offset(iModel, i) = wsModel.Range("Produced").Cells(i)
        Next
       .Offset(iModel, 5) = wsModel.Range("Profit")
    End With
End Sub

• RestoreOriginalValues子过程 ：此子过程将原始的最大销售值放回“MaxSales”范围，并最后运行一次求解器。虽然这不是绝对必要的，但可以让用户最后看到