如何通过VBA函数调用Excel Solver规划求解（非子过程/宏）

该问题的核心诱因是Excel VBA的运行上下文权限限制，并非代码逻辑错误：

• 直接在工作表单元格中输入调用的自定义函数（UDF），运行在Excel的工作表重算沙箱环境中，该环境禁止执行任何会修改工作表状态、触发宏级别操作的指令，仅允许函数执行计算、返回值、读取单元格值这类无副作用的操作。Solver作为独立加载项，其求解流程需要修改可变单元格、触发全局计算，属于被沙箱拦截的操作。
• 老版本Excel对这类越权操作的容错逻辑不完善，会抛出"Solver: An unexpected internal error occurred, or available memory was exhausted"的误导性报错；新版本Excel做了静默拦截，会直接跳过函数中不被允许的Solver调用逻辑，仅执行合法的读单元格值操作，所以只会返回C3的当前值，不会触发求解。
• 编写的mySolverF在Sub过程中可以正常运行，是因为Sub属于宏上下文，没有UDF沙箱的权限限制，可以正常调用Solver的所有官方接口。

不需要手动点击按钮，也不需要自行实现求解算法，通过「易失性UDF+工作表Calculate事件」的组合，就能实现和在单元格直接输入普通UDF完全一致的使用体验，全程调用Solver官方接口。

前置准备 #

• 按Alt+F11打开VBA编辑器，点击顶部菜单「工具」-「引用」，在列表中找到并勾选Solver，点击确定完成引用配置。

步骤1：编写核心求解逻辑 #

在VBA工程中插入一个标准模块，写入通用的Solver调用逻辑：

' 标准模块 Module1 内的代码
Function RunSolver() As Variant
    SolverReset
    SolverOk SetCell:="C4", MaxMinVal:=3, ValueOf:=2, ByChange:="C3"
    SolverSolve True ' 静默执行求解，不弹出Solver结果对话框
    RunSolver = Range("C3").Value
End Function

' 供单元格直接输入的UDF，仅做重算触发用
Function MySolver() As Variant
    Application.Volatile True ' 标记为易失性函数，工作表任意重算都会触发该函数更新
    MySolver = Range("C3").Value
End Function

步骤2：编写事件触发逻辑 #

在VBA工程左侧的资源管理器中，双击需要使用该功能的工作表名称，打开工作表的代码模块，写入以下重算事件代码：

' 工作表代码模块内的代码
Private Sub Worksheet_Calculate()
    Static isSolving As Boolean ' 静态变量标记求解状态，防止递归触发死循环
    If isSolving Then Exit Sub
    
    isSolving = True
    Call RunSolver ' 调用官方Solver接口执行求解
    isSolving = False
End Sub

使用方式 #

直接在目标单元格（比如示例中的C5）输入=MySolver()即可。后续只要工作表触发重算（修改任意单元格、按F9刷新、打开文件自动重算），就会自动触发Solver求解，求解完成后单元格会自动返回C3的正确计算结果，不需要点击任何按钮。

扩展说明 #

• 静态变量isSolving是必须的防错逻辑：Solver修改C3单元格时会触发工作表重算，如果没有状态标记，会反复触发Solver进入死循环。
• 如果需要适配多组求解场景，可以给MySolver函数增加参数，传入目标单元格、可变单元格、目标值等信息，在RunSolver中读取参数动态配置Solver的入参即可，扩展性和普通自定义函数完全一致。
• 该方案全程调用Solver官方接口，没有自行实现数值计算逻辑，符合需求。

内容的提问来源于stack exchange，提问作者forall