VBA代码根据搜索值查找值

Question

我想编写一段VBA代码，目标是根据输入值将变量值转换为静态值

！

即。沿着这些方向的东西，但我手动做了这些，

！

Answer 1

好的，这是你必须要做的。首先，您将工作表的布局设置如下：

我在这里使用 Sheet1 。如有必要，请相应地进行更改。

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

1. 点击文件标签，然后点击Excel标签下方的选项。
2. 在 Excel选项对话框中，点击加载项。
3. 在管理下拉框中，选择 Excel加载项，然后点击转到。
4. 在加载项对话框中，选择求解器加载项，然后单击确定。

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



现在，转到VBE中的工作表1代码模块。只需在VBE中点击 Sheet1 两次，然后将以下代码粘贴到其中：



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

您可以通过点击调试菜单下方的运行图标或按键盘上的 F5 键来运行加载的VBA程序。