VBAを使用してソルバを繰り返します。

-2

私はいくつかの行でソルバを繰り返すループを作ろうとしていますが、私のコードを動作させることはできません。誰か私が逃していることを知っていますか？トリッキーな部分は、私は細胞の範囲（L3を変更することによって（T3）を最小化しようとしている：M3）。VBAを使用してソルバを繰り返します。

Dim count As Integer 
Set count = 3 
Do While count <= 100 
    SolverOk setcell:=Sheets("Sheet1").Cells(count, 19), MaxMinval:=2, valueof:=0, bychange:=Sheets("Sheet1").range(Cells(count, 11), Cells(count, 12)), _ 
     Engine:=1, EngineDesc:="GRG Nonlinear" 
    SolverSolve userfinish:=True 
    count = count + 1 
Loop

出典

2016-10-05 Lieke Vermunt

ようこそ！良い質問をするのを助けるために私たちの[SO Question Checklist]（http://meta.stackoverflow.com/questions/260648/stack-overflow-question-checklist）を見直して、良い答えを得てください。 –

コードを実行しようとすると、どのようなエラーが発生しますか？問題の1つが 'set count = 3'という文であると仮定できます。 'set'文は整数では使用できません。 'count = 3'を試してください。それでもまだ動作しない場合は、エラーメッセージを投稿してください。 –

これでコードが見つかりましたが、ループを作るために、ByChangeの後の部分の解決策を見つける必要があります。助言がありますか？

SolverReset SolverOk SetCell：=細胞（2、23）、MaxMinVal：= 2、VALUEOF：= 0、ByChange：= "$ M $ 2、$ N $ 2"、_ エンジン：= 1、EngineDesc ：スタックオーバーフローへ= "GRG非線形"
SolverSolve userfinish:=True 

出典

2016-10-20 11:16:45

VBAを使用してソルバを繰り返します。

答えて

関連する問題