VBA - 具有相对引用的求解器宏

Question

我需要在工作表中多次使用 Excel Solver。我需要使用求解器的每个场景都具有相同的格式，因此我想使用具有相对引用的宏来允许我运行求解器而无需每次都设置问题。我有以下代码，但 SolverOk 函数的 ByChange 参数给了我一个错误。

Sub solverMacro()

SolverReset
SolverOk SetCell:=ActiveCell.Offset(0, 0), MaxMinVal:=2, ValueOf:=0, ByChange:= _
        Range(ActiveCell.Offset(-3, 0), ActiveCell.Offset(-5, 0), ActiveCell.Offset(-7, 0)), _
        Engine:=1, EngineDesc:="GRG Nonlinear"
    SolverAdd CellRef:=ActiveCell.Offset(-7, 0), Relation:=3, FormulaText:="1"
    SolverAdd CellRef:=ActiveCell.Offset(-7, 0), Relation:=4, FormulaText:="integer"
    SolverAdd CellRef:=ActiveCell.Offset(-5, 0), Relation:=3, FormulaText:="1"
    SolverAdd CellRef:=ActiveCell.Offset(-5, 0), Relation:=4, FormulaText:="integer"
    SolverAdd CellRef:=ActiveCell.Offset(-3, 0), Relation:=3, FormulaText:="1"
    SolverAdd CellRef:=ActiveCell.Offset(-3, 0), Relation:=4, FormulaText:="integer"
    SolverAdd CellRef:=ActiveCell.Offset(3, 0), Relation:=3, FormulaText:=ActiveCell.Offset(-9, 0)
    SolverAdd CellRef:=ActiveCell.Offset(4, 0), Relation:=3, FormulaText:=ActiveCell.Offset(-9, 0)
    SolverAdd CellRef:=ActiveCell.Offset(5, 0), Relation:=3, FormulaText:=ActiveCell.Offset(-9, 0)
    SolverAdd CellRef:=ActiveCell.Offset(6, 0), Relation:=3, FormulaText:=ActiveCell.Offset(-9, 0)
    SolverOk SetCell:=ActiveCell.Offset(0, 0), MaxMinVal:=2, ValueOf:=0, ByChange:= _
        Range(ActiveCell.Offset(-3, 0), ActiveCell.Offset(-5, 0), ActiveCell.Offset(-7, 0)),     _
        Engine:=1, EngineDesc:="GRG Nonlinear"
    SolverOk SetCell:=ActiveCell.Offset(0, 0), MaxMinVal:=2, ValueOf:=0, ByChange:= _
        Range(ActiveCell.Offset(-3, 0), ActiveCell.Offset(-5, 0), ActiveCell.Offset(-7, 0)),     _
        Engine:=1, EngineDesc:="GRG Nonlinear"
    SolverSolve

End Sub

我在各种网站上看到了很多类似的例子，但它们都使用绝对引用，至少对于 ByChange 参数。是否有正确的方法让 ByChange 参数接受相对引用？

Answer 1

“我想使用带有相对引用的宏来允许我运行求解器而无需每次都设置问题”-您不需要仅出于该目的使用相对引用。这段代码是你录的还是打的？