Kod: Tümünü seç
Function choosenumbers(ByVal limitmax As Integer, repetition As Integer) As String
Dim choosen(repetition -1), selector, dontrepeat, NewChoosenNumber As Integer
Dim seperator As String : seperator = ""
Dim i As Long, j As Long
Dim Temp As Variant : choosenumbers = ""
For selector = 0 To repetition -1
Do
NewChoosenNumber = Int(Rnd * (limitmax + 1))
For dontrepeat = 0 to selector
If choosen(dontrepeat) = NewChoosenNumber Then NewChoosenNumber = 0
Next dontrepeat
Loop While NewChoosenNumber = 0
choosen(selector) = NewChoosenNumber
Next selector
For i = LBound(choosen) To UBound(choosen) - 1
For j = i + 1 To UBound(choosen)
If choosen(i) > choosen(j) Then
Temp = choosen(j)
choosen(j) = choosen(i)
choosen(i) = Temp
End If
Next j
Next i
For visible = 1 To repetition
If visible <> 1 Then seperator = ", "
choosenumbers = choosenumbers & seperator & choosen(visible - 1)
Next visible
End Function
=CHOOSENUMBERS(Seçilebilecek en büyük sayı; Seçilecek sayı adedi)
Örneğin "1-90 arası 7 tane sayı seç" :
Kod: Tümünü seç
=CHOOSENUMBERS(90;7)