ExcelのForループとNextループを使用したソルバー結果の保存

Question

リピートソルバーを51回使用し、ソルバーの各計算結果をExcelの別のセルに保存します。以下は私のVBAスクリプトです。しかし、私はスクリプトに問題があります。保存された結果には、51番目の最後の計算結果のみが表示されます。それは簡単なスクリプトですが、私がどこで間違っていたのか分かりました。お手伝いありがとう！

Private Sub Button1_Click() 
Dim j As Integer 
For j = 1 To 51 
Range("m4") = j 
solversolve UserFinish:=True 
solversolve(UserFinish:=True) = Range("Q" & j + 3) 
Next j 
End Sub 

Answer 1

目的関数は、範囲（「M4」）であると仮定すると、あなたはレンジ（「Q4」）から始まるソリューションを解決したいその後、試してみてください。「あなたはドン、

Private Sub Button1_Click()` 
    Dim j As Integer 
    For j = 1 To 51 
    solversolve UserFinish:=True 
    Range("Q" & j + 3).value=Range("m4").value 
    Next j 
End Sub 

しかし、モデルを変更して再実行しますか？ランダムな値がありますか？