Option Explicit Sub mcSim() ' This sub will populate a 30x10 array with ' values according to the formula in the revision ' lecture Dim mcSim(1 To 30, 1 To 10) As Double, mu As Double Dim sd As Double, i As Integer, j As Integer ' Here you want to set the mean and stddev ' to whichever cell contains your inputs mu = 0.000238095 sd = 0.008819171 Randomize For j = 1 To 10 For i = 1 To 30 mcSim(i, j) = mu + sd * WorksheetFunction.Norm_S_Inv(Rnd) Next i Next j Range("I6").Resize(30, 10) = mcSim End Sub
Preview:
downloadDownload PNG
downloadDownload JPEG
downloadDownload SVG
Tip: You can change the style, width & colours of the snippet with the inspect tool before clicking Download!
Click to optimize width for Twitter