Question

我的目标是在VBA中使用一个间接引用的变量变量Range：（＆＃34; J＆＃34;＆amp; RowNumber1），这是我使用for循环的一个值。如果然后声明迭代找到。 VBA可以单独在ByChange中声明这个变量：但不能正确地解释被间接引用的声明的单独单元格，而是将它们视为一个数组而不是两个单独的单元格，如下所示。在这种情况下，有没有办法在VBA中正确使用求解器功能？感谢

For J = 20 To 25
    If PC.Cells(J, 8).Value2 = EB Then
    RowNumber1 = J
    VK = PC.Cells(RowNumber1, 10).Value2



        With PC

        SolverReset


        SolverOK setCell:=Range("AF16"), _
        maxMinVal:=3, _
        ValueOf:=DPen, _
        **ByChange:=Range("J" & RowNumber1, "G16")**, _
        Engine:=1, _
        EngineDesc:="GRG Nonlinear"

        SolverAdd CellRef:=Range("AG16"), _
        Relation:=2, _
        FormulaText:=91.8



        SolverSolve UserFinish:=True

Answer 1

ByChange:=Range("J" & RowNumber1 & ",G16"), Engine:=1, _

如何使用＆＃34; ByChange运行求解器函数宏：＆＃34;多个间接引用但不是数组的变量？

1 个答案: