установка решателя для изменения ссылок на ячейки, смежные столбцы

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, все остальное останется неизменным. Я хочу сделать это для 20 соседних столбцов, от C до V. любая помощь будет очень признательна!

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