Sub CreateRND()
Dim arr() As Integer 'Array definieren
ReDim arr(range("d3").Value) 'Array-Größe ändern
Dim min As Integer 'Definieren Sie den Mindestwert einer Zufallszahl
Dim max As Integer 'Definieren Sie den Maximalwert von Zufallszahlen
Flag dimmen As Boolean 'Flag-Variable definieren, um zu bestimmen, ob doppelte Werte vorhanden sind
max = range("d2").Value 'Weisen Sie den Wert von Zelle d2 dem Maximalwert zu
min = range("d1").Value 'Weisen Sie den Wert der Zelle d1 dem Mindestwert zu
If (max - min + 1
Exit Sub
Ende wenn
Randomize (Now()) 'Erzeuge einen Zufallszahlen-Seed unter Verwendung der aktuellen Zeit
Für i = 0 To range("d3").Value 'Schleife zur Generierung von Zufallszahlen
Tu
arr(i) = Rnd() * (max - min) + min 'Zufallszahlen generieren
Flag = Falsch
For j = 0 To (i - 1) 'Schleife, um zu bestimmen, ob die aktuelle Zufallszahl mit der zuvor generierten Zufallszahl übereinstimmt, und wenn sie identisch ist, wird sie neu generiert
Wenn (arr(i) = arr(j)) Dann
Flag = True
Ende wenn
Weiter
Loop While-Flagge
Weiter
Spalten("A:A").ClearContents
range("a1").Resize(range("d3").Value) = Application.Transpose(arr) 'Ausgabeergebnis
End Sub
1. Berechnen Sie zunächst die Differenz in diesem Bereich. Hier wird davon ausgegangen, dass der Bereichswert eine Zufallszahl im Bereich von 50 bis 100 ist
Das obige ist der detaillierte Inhalt vonSo generieren Sie Zufallszahlen für Mitbewohner mit Excel. Für weitere Informationen folgen Sie bitte anderen verwandten Artikeln auf der PHP chinesischen Website!