[交流] 【转帖】一个蒙特卡罗模拟的VBA for Excel 程序 已有1人参与

Sub MC()

For j = 1 To 10000        '重复次数
For i = 1 To 2         '样本量N
Cells(i, 1) = Application.WorksheetFunction.NormSInv(VBA.Rnd)       '生成随机数
Next i

Cells(1, 2).Formula = "=average($a$1:$a$10000)"
Cells(2, 2).Formula = "=MAX($A$1:$A$10000)-MIN($A$1:$A$10000)"
Cells(1, 3).Formula = "=$B$1*sqrt(i)/$B$2"

Cells(1, 3).Copy
Cells(j, 4).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False

Next j

End Sub

Originally posted by zyj8119 at 2010-09-17 09:35:09:
[code]Sub MC()

For j = 1 To 10000        '重复次数
For i = 1 To 2         '样本量N
Cells(i, 1) = Application.WorksheetFunction.NormSInv(VBA.Rnd)       '生成随机数
Next i

Cells(1, 2).Formul ...