ソルバーを複数に適用する

Question

私はVBAが新しく、複数のセルにソルバーを適用しようとしています。 しかし、SubまたはFunctionが定義されていないというエラーが表示されます。あなたはVBAプロジェクトへの参照を追加していないほとんどの

Sub SolverRepeat() 
Dim i As Integer 
For i = 4 To 8763 
    SolverReset 
     SolverOk SetCell:="$BQ$" & i, MaxMinVal:=2, ValueOf:="0", ByChange:="$BI$" & i, Engine:=1, EngineDesc:="GRG Nonlinear" 
    SolverSolve True 
    Next i 
End Sub 

Answer 1

：ここ

はコードです。 、Visual Basicエディターで アクティブモジュールと、 Toolsメニューで Referencesをクリックし、 Available References下 Solverを選択：このを行うには

。 SolverがAvailable Referencesに表示されない場合は、Browseをクリックし、\Program Files\Microsoft Office\Office14\Library\SOLVER subfolderにSolver.xlamを開きます。

出典：Using the Solver VBA Functions