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)