vba - 在 vba 中调用求解器的值

Question

我应该如何调用 vba 中的单元格以使求解器工作？我想建立一个循环，其中行发生变化，但我似乎没有在单元格中得到任何应该改变的输出（通过让“a”增长）。为什么是这样？

我所做的是想在列中选择某些值并要求宏查找文本，然后查找它们下面的值。

 Sub CalculateValues() 
       SolverReset

       a = 1

       SolverOptions Precision:=0.00001, AssumeNonNeg:=False
       SolverOk SetCell:=Cells.Find("Total energy").Offset(1 + a, 0).Activate, MaxMinVal:=3, ValueOf:=Cells.Find("8 bar needed").Offset(1 + a, 0).Activate, ByChange:=Cells.Find("VO4VO5").Offset(1 + a, 0).Activate
       SolverSolve userFinish:=True

End Sub

Answer 1

现在有效的更改行是：

SolverOk setCell:=Cells.Find("Error").Offset(1 + a, 0).Address, MaxMinVal:=3, ByChange:=Cells.Find("VO4VO5").Offset(1 + a, 0)。地址

“错误”应该变为零的地方。