VBA：乱数シートがループ内で変化し続ける

Question

私は乱数とループを持つシートを持っています。問題は次のとおりです。シートを更新して、シート内のすべての数値を再計算する必要があります。ただし、乱数はループ内で1回だけ変更する必要があります。今、彼らは常に変化し続けており、コードは終わらない。誰も知っている、どのようにループごとに一度だけ乱数を更新することができますか？ 何か助けていただければ幸いです。

Sub MonteCarlo() 
    Application.ScreenUpdating = False 
    Dim x As Integer 

Application.Calculation = xlManual 

     For x = 1 To 1 
     Do 
     Worksheets("Ex-Ante TE").Calculate 

     DoEvents 
     Loop While Not Application.CalculationState = xlDone 

    Worksheets("Monte Carlo").Range("A" & x).Value = Worksheets("Ex-Ante Te").Range("B2").Value 
    Worksheets("Monte Carlo").Range("B" & x).Value = Worksheets("Ex-Ante Te").Range("B3").Value 
    Worksheets("Monte Carlo").Range("C" & x).Value = Worksheets("Ex-Ante Te").Range("B4").Value 

     Next 

Application.ScreenUpdating = True 
    Application.Calculation = xlAutomatic 

End Sub 

Answer 1

は、たぶん私はあなたの問題についての誤解が、私が集まる何から私はあなたが一度For xあたり-loopを計算したい

• =RAND()数式を含むシートを持っていると思います。
• For x -Loopごとに1回以上計算したい他の式Do -Loopは、For x -Loopの内部にネストされています。

可能な解決策は、あなたのDo -loopで

Worksheets("Ex-Ante Te").Range("A" & x).Calculateまたは

Worksheets("Ex-Ante Te").Range("myNamedRange").Calculate

のようなものとは別に、特定の範囲（または名前付き範囲）を計算することであるかもしれません。

EDIT：z32a7ulが指摘されているため、計算が完了するのを待っていないので、Loop While Not Application.CalculationState = xlDoneは必要ありません。