excel - 在 Excel 中使用宏自动求解

Question

使用计算两点之间的椭球距离的公式，我试图提取具有给定距离值的特定输入变量值。我已经要求一种方法来反转公式以隔离我要计算的变量，但不幸的是，在这种情况下，公式不允许封闭形式的解决方案。

然后我求助于 Excel 的 Solver 插件，幸运的是，它甚至适用于非常高的精度（15 位小数）。问题是要重复求解器数千次。

这是问题的屏幕截图。

距离（K 列）是该公式的结果，而小数（H 列）是确定公式所有其他项的唯一输入变量。

在求解器中，目标是距离（K 列），其设置值取决于距离基数（L 列），但我是手动插入的。最后，变量单元格是小数（H 列）。

我尝试使用我在网上找到的分步教程来构建这个过程的自动化，但是没有 VBA 的基本知识，我无法在我的案例中实施这些步骤。

我唯一能做的就是记录一个 Solver 操作的宏，如下：

Sub SolverLoop()
'
' SolverLoop Macro
'

'
    SolverOk SetCell:="$K$10", MaxMinVal:=3, ValueOf:=3.5, ByChange:="$H$10", _
        Engine:=1, EngineDesc:="GRG Nonlinear"
    SolverOk SetCell:="$K$10", MaxMinVal:=3, ValueOf:=3.5, ByChange:="$H$10", _
        Engine:=1, EngineDesc:="GRG Nonlinear"
    SolverSolve
End Sub

如何实现此代码以将“距离”列的求解器重复到 10000 的值？

标签： excelvbasolver