VBA自定义函数内能否直接调用Solver规划求解无需引用单元格？

原生Excel Solver的VBA接口不支持直接传入内存变量完成求解，所有参数配置、目标值计算、约束校验逻辑都强绑定工作表单元格引用，无法完全脱离工作表在自定义函数的独立内存空间中运行。

你不需要受限于Solver的原生调用规则，有两种方式可以实现你伪代码描述的、运算逻辑封装在函数内部的效果：

• 临时单元格中转方案（无用户感知依赖）
  函数运行时自动调用工作表尾部的闲置空白单元格，临时写入变量值、目标公式、约束规则，调用Solver完成计算后读取结果，再清空临时单元格内容。整个过程耗时极短，调用函数的用户完全感知不到后台的单元格操作，对外表现和纯内存运算的自定义函数没有区别。
  该方案需要提前在VBA编辑器中开启Solver引用：按Alt+F11打开编辑器，依次点击「工具-引用」，勾选Solver.xlam即可。注意工作表单元格直接调用带Solver的自定义函数时，需要提前开启宏权限，避免Solver运行被拦截。
• 纯VBA内置优化算法方案（完全无工作表依赖）
  如果是你示例里的单变量带约束优化场景，根本不需要调用Solver，直接在VBA里写十几行的轻量优化算法（黄金分割法、牛顿迭代法等）即可，所有运算全在内存中完成，不需要操作任何单元格，运算速度比调用Solver快数个量级，也不存在加载项引用、权限拦截的问题。
  对应你伪代码逻辑的纯VBA实现示例如下：

Function find_maximum(x As Double) As Double
    ' 约束条件x+1 <=1 即x的可行域上界为0，可根据实际业务调整定义域上下界
    Const lb As Double = -10, ub As Double = 0, eps As Double = 0.0000001
    Dim gr As Double: gr = (Sqr(5) - 1) / 2
    Dim a As Double, b As Double, c As Double, d As Double
    a = lb: b = ub
    ' 黄金分割法迭代收敛到极值点
    Do While b - a > eps
        c = b - gr * (b - a)
        d = a + gr * (b - a)
        If target_func(c) > target_func(d) Then
            b = d
        Else
            a = c
        End If
    Loop
    find_maximum = target_func((a + b) / 2)
End Function

' 待最大化的目标函数，可按需修改逻辑
Private Function target_func(x As Double) As Double
    target_func = -(x - Exp(x))
End Function

如果是多变量约束优化场景，也可以在VBA中实现梯度下降、粒子群等通用优化算法，灵活度远高于绑定单元格的Solver，完全可以满足自定义函数封装的需求。

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