VBA代码基础上寻求价值

Question

我想写一段VBA代码，将目标寻求变量值到基于输入值

静态价值发现价值！

即。沿着这些线，但我手动做这些，

！

Answer 1

好的，这是你必须要做的。首先，您可以设置您的工作表的布局是这样的：

这里我用工作表Sheet1。请根据需要进行相应的更改。

为了使用Solver加载项，您必须首先确保加载项已安装。对于Office 2013及更高版本：

1. 点击文件选项卡，然后单击Excel选项卡下方选项。
2. 在Excel选项对话框中，单击加载项。
3. 在管理下拉框，选择的Excel加载项，然后单击转到。
4. 在加载项对话框中，选择规划求解加载，然后单击OK 。

之后，您必须在包含调用加载项过程的代码Visual Basic编辑器（VBE）的工作簿中设置对加载项的引用。点击参考上工具菜单（见下图），然后选择求解器在可用的参考文献。

现在，到工作表1个的代码模块中VBE。只需点击表Sheet1两次VBE和下面的代码粘贴到其中：通过点击运行图标下方调试菜单或按F5

Sub VBASolver() 
SolverReset 
SolverOk SetCell:="$F$2", MaxMinVal:=3, ValueOf:=0, ByChange:="$B$2:$B$4" 
SolverSolve True 
End Sub 

您可以运行加载VBA程序键盘上的键。