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程序鍵盤上的鍵。