德语版Excel下VBA Solver新代码失效问题及适配方案求助

旧代码能正常运行，新代码在德语版Excel失效的核心原因是Solver的VBA方法名称和参数字符串存在本地化差异：

• 旧代码使用Application.Run调用Solver的英文原生宏名称（如"SolverReset"），这类宏名称在所有语言版本的Excel中都是统一的英文标识，不受界面语言影响。
• 新代码直接调用的SolverReset、solverOptions等方法名，在德语版Excel中会被本地化（比如SolverReset可能变为SolverZurücksetzen），VBA无法识别这些英文方法名，导致逻辑执行异常；同时EngineDesc:="GRG Nonlinear"是英文描述，德语版Excel无法识别该字符串，会错误选择求解引擎，最终返回错误结果。

要让代码兼容多语言Excel，需遵循以下原则，无需修改用户的Excel语言设置：

• 统一用Application.Run调用Solver的英文宏名称，避免本地化方法名的识别问题
• 用数字参数替代本地化字符串（如求解引擎用数字1代替"GRG Nonlinear"）
• 保留新代码的优化点（命名区域、精度设置、自动完成无弹窗）

' 重置Solver
Application.Run "SolverReset"

' 设置求解选项：精度0.001、取消非负假设
Application.Run "SolverOptions", Precision:=0.001, AssumeNonNeg:=False

' 添加约束（使用命名区域）
Application.Run "SolverAdd", Range("rng_param1"), 3, Range("rng_param1_lowLimit").Value
Application.Run "SolverAdd", Range("rng_param2"), 3, Range("rng_param2_lowLimit").Value
Application.Run "SolverAdd", Range("rng_param2"), 1, Range("rng_param2_highLimit").Value

' 配置Solver目标与变量：使用命名区域，引擎用数字1（GRG Nonlinear）
Application.Run "SolverOk", Range("rng_maxValue"), 1, 0, Range("rng_ALL_parameters"), 1

' 执行求解，自动完成无弹窗
Application.Run "SolverSolve", True

• FormulaText参数直接传单元格的.Value，避免Range对象在不同语言下的格式解析问题；
• VBA中的数字（如0.001）是编译时的双精度值，不受系统小数点分隔符（德语用逗号）影响，无需担心格式问题；
• SolverSolve的True参数对应UserFinish:=True，会自动完成求解并关闭弹窗，符合你的优化需求。

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