Wie generiere ich normale Zufallszahlen in VBA?

1329
Johnny

Ich versuche, 5.000 Zufallsvariablen zu erzeugen, indem diese Funktionen auszeichnen: normsinv(rand()). Dies ist der Code, den ich geschrieben habe:

Dim r As Integer r = 1 For r = 1 To 5001  .Cells(r + 1, 1) = Application.WorksheetFunction.NormSInv(Rnd())  r = r + 1  Next

Wenn ich jedoch nichts ausführe, passiert nichts (aber es wird auch kein Fehler vorgeworfen) ... Könnten Sie mir bitte sagen, was mit dem Code nicht stimmt?

0
Sollte es Rand () sein, nicht Rnd ()? DavidPostill vor 9 Jahren 0
[VBA-Code statt NORMSINV (RAND ())]] (http://answers.microsoft.com/de-de/office/forum/office_2007-excel/vba-code-instead-of-normsinvrand/219e3d66-231a-413f -a0ff-f0bd60dfec26) könnte Ihnen auch helfen ... DavidPostill vor 9 Jahren 0
[Zufallszahlen mit Excel generieren] (http://www.graphpad.com/support/faqid/966/) DavidPostill vor 9 Jahren 0

1 Antwort auf die Frage

0
Gary's Student

Sie brauchen keine Schleife:

Sub dural() Dim r As Range Set r = Range("A1:A5001") r.Formula = "=normsinv(rand())" r.Copy r.PasteSpecial (xlPasteValues) End Sub

Verwandte Probleme