マクロを使用したExcelソルバー

Question

私は300行のデータを持つExcelファイルを持っており、各行にソルバーを使用する必要があります。列Hの各セルには、セルH9を変更することによってゼロに等しくなければならない式があります。

ソルバー：

• 標的細胞：K9（ "0" に等しくなければならない）
• セルを変更することにより：H9
• 出力セル：H9

ソルバーが行から動作するはず9から309まで。

私はインターネット上で同様の問題がたくさんありますが、プログラミングのコードを変更できません私の場合にe。

*Sub Macro2() 
' Macro2 Macro 
' 
Sneltoets: Ctrl+v 
' 
Dim c As Range 
Dim nRows As Integral 
nRows = 300 
For Each c In Range("$H$9:$H$309") 
     SolverOk SetCell:=c.Offset(0, 3), MaxMinVal:=3, ValueOf:=0, ByChange:=c.Address, _ 
      Engine:=1, EngineDesc:=" GRG Nonlinear " 
     SolverSolve userfinish:=True 
     SolverFinish keepfinal:=1 
Next 
End Sub* 

初めてExcelで何かをプログラムする必要があります。

誰かが私を助けてくれたら、本当にありがとう！

Answer 1

私は以下のスクリプトを試してみました。あなたはあなたが望むものを理解することに基づいて、あなたが必要とするものに非常に近いはずです。

Sub Macro2() 

Dim c As Range 
Dim nRows As Integer 
Dim i As Integer 
nRows = 300 

i = 9 
For Each c In Range("$H$9:$H$309") 

    c.Select 
    SolverOk SetCell:=Range("H" & i), MaxMinVal:=3, ValueOf:=0, ByChange:=Range("K" & i), Engine:=1 _ 
     , EngineDesc:="GRG Nonlinear" 
    SolverSolve True 
    i = i + 1 

Next c 
End Sub 

Answer 2

私はこのコードを発見し、それが働いた：

Sub example() 

Dim oRng As Range 
Dim c  As Range 

Set oRng = Range("K9:K309") 
For Each c In oRng 
    c.GoalSeek _ 
     Goal:=0, _ 
     ChangingCell:=c.Offset(0, -3) 
Next c 

End Sub 

をより良い仕事をしたqueens_livingによって書かれたコード。

ありがとうございます！