在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）。地址

“错误”应为零。