[VBA ] 重複模擬1000次
想請問各位好手
我要做蒙地卡羅模擬 需重複一千次
我需要的過程寫好如下
Sub macro1()
Sheets(Array("sheet1")).Select
With ActiveSheet
Randomize
Dim H, E As Double
For j = 1 To 10000
If Cells(j + 1, 5) < 0 Then
Cells(j + 1, 4).Value = 1
Else
Cells(j + 1, 4).Value = 0
End If
H = 2 * Exp(-7) + 0.03 * Cells(j + 1, 5).Value ^ 2
+ 0.9 * Cells(j + 1, 3).Value
+ 0.02 * Cells(j + 1, 4).Value * Cells(j + 1, 5).Value ^ 2
Cells(j + 2, 3).Value = H
Cells(j + 2, 5).Value = E
E = Application.TInv(Rnd, 6) * Sqr(Cells(j + 2, 3).Value)
Next j
想請問要怎麼寫一個迴圈讓上面的程式重複跑1000次
因為我才剛學VBA一個月 可能問的有點笨 很不好意思
先感激各位的幫忙
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 123.240.240.137
→
11/28 11:19, , 1F
11/28 11:19, 1F
→
11/28 11:42, , 2F
11/28 11:42, 2F
→
11/28 11:44, , 3F
11/28 11:44, 3F
→
11/28 12:17, , 4F
11/28 12:17, 4F
→
11/28 13:02, , 5F
11/28 13:02, 5F