繰り返し、目標値をExcelファイルがあると、次のリンクを

Question

に到達するまで、このExcelで

https://www.dropbox.com/s/undic11wsq88dej/VBA%20Iteration.xlsm?dl=0

は、あなたが、私は繰り返しを含めるしたい計算を参照してくださいファイル。セルB22の値がセルB13/D23の値とまったく同じになるまで、セルB5の値はランダムな値で変化するはずです。

は、これまでのところ、私は次のコードこの反復を成し遂げるためにプログラムされています：

Sub test() 
Do Until Sheets("Tabelle1").Range("D22") = Sheets("Tabelle1").Range("D23") 
Sheets("Tabelle1").Range("B5") = Int((500 - (-500) + 1) * Rnd + (-500))/100 
Loop 
End Sub 

をしかし、問題は、コードは、セルB5 にランダムな値を挿入しますが、これらのかどうかを確認するために十分にスマートではないということですセルB13/D23の値 に近い値になります。代わりに、それは終了せずにループします。

この繰り返しをスマートにして、セルD23の値に近づくかどうかを知るにはどうすればいいですか？

ありがとうございました。

Answer 1

あなたはソルバーこんにちはAshtonic、ソルバーは私を解決するために私を助け