セル参照、隣接する列を変更するソルバーループを設定する

Question

私は二次最適化のためのマクロを書こうとしています。私は非常に限られたVBAのスキルを持っているが、私は手動でソルバーを使用してマクロを記録し、私のコードは、現在、次のようになります。

Sub Macro2() 
' 
' Macro2 Macro 
' 

' 
    SolverReset 
    SolverAdd CellRef:="$C$179:$C$185", Relation:=3, FormulaText:="0" 
    SolverAdd CellRef:="$C$186", Relation:=2, FormulaText:="1" 
    SolverOk SetCell:="$C$174", MaxMinVal:=2, ValueOf:=0, ByChange:="$C$179:$C$185" _ 
    , Engine:=1, EngineDesc:="GRG Nonlinear" 
    SolverSolve UserFinish:=True 
    SolverFinish KeepFinal:=1 

End Sub 

私は何をしようとしていますが、ソルバのループを作るです次回ようにC列セルの参照とターゲットセルがDに変わりますが、それ以外のものはそのままです。私はCからVへの20の隣接する列のためにこれをしたいと思います。どんな助けも大いに評価されるでしょう！

Answer 1

上記の私の前提を正しければ、次のコードはあなたが探していることを行うでしょう。しかし、私はソルバー用のコードを持っていないので、機能...以下を参照：このことができます

Public Sub sampleCode() 
Dim targetWS As Worksheet 
Dim colCounter As Long 
Dim colAddress As String 
Dim colLetter As String 

Set targetWS = ThisWorkbook.Sheets(1) 'Make sure to replace sheet(1) with sheet(<your sheet name>) 
For colCounter = 3 To 22 'Loop through columns C through V 
    'Get the column letter you want to run solver on 
    colAddress = Replace(targetWS.Range("A1")(1, colCounter).address, "$", "") 
    colLetter = Left(colAddress, InStr(1, colAddress, "1") - 1) 
    SolverReset 
    'Run solver but with the references being set by using colLetter 
    SolverAdd CellRef:=colLetter & "179:" & colLetter & "185", Relation:=3, FormulaText:="0" 
    SolverAdd CellRef:=colLetter & "186", Relation:=2, FormulaText:="1" 
    SolverOk SetCell:=colLetter & "174", MaxMinVal:=2, ValueOf:=0, ByChange:=colLetter & "179:" & colLetter & "185", Engine:=1, EngineDesc:="GRG Nonlinear" 
    SolverSolve UserFinish:=True 
    SolverFinish KeepFinal:=1 
Next 
End Sub 

希望、 TheSilkCode