Excel VBA 重新計算后獲取單元格值

Question

我有一個工作表，它根據隨機值計算各種值，並希望使用大數定律為每次計算收斂到平均值。

我正在考慮使用 VBA 執行 1000 次計算並將值存儲在列表中以在最后進行平均。 我當前的測試代碼僅在每次迭代后存儲原始值。 即，即使 R36 中的值發生變化，Safety1 也不會發生變化。

Dim Safety1(0 To 10) As Long


For i = 0 To 10

    Safety1(i) = Sheet34.Range("R36").Value
    Debug.Print Safety1(i)

Next i

myAverage = Application.WorksheetFunction.Average(Safety1)

myAverage 應該是收斂平均值。

R36 包含其他范圍的總和，其中包含基於rand()值

如果有更好的方法來做到這一點，我很樂意傾聽。

提前致謝。

Answer 1

這個帖子解決了這個問題。 我需要等到計算過程完成后才能存儲值

Answer 2

請像這樣計算表：

Dim Safety1(0 To 10) As Long

Application.ScreenUpdating = False    

For i = 0 To 10
    Worksheets("Sheet34").Calculate
    Safety1(i) = Sheet34.Range("R36").Value
    Debug.Print Safety1(i)

Next i
Application.ScreenUpdating = True
myAverage = Application.WorksheetFunction.Average(Safety1)