si può usare la funzione CASUALE TRA con un range di numeri specifici non progressivi e non ripetitivi Se non è possibile ci sono alternative?
Sembra una tipica richiesta di numero casuale non ricorrente, tipico di estrazione senza reimbussulamento.
Un esempio è l'estrazione dei numeri del lotto. Puoi trovare esempi a bizzeffe con una semplice ricerca su internet. Ne riporto qui una per semplicità:
Function RandLotto(Bottom As Integer, Top As Integer, _ Amount As Integer) As String Dim iArr As Variant Dim i As Integer Dim r As Integer Dim temp As Integer Application.Volatile ReDim iArr(Bottom To Top) For i = Bottom To Top iArr(i) = i Next i For i = Top To Bottom + 1 Step -1 r = Int(Rnd() * (i - Bottom + 1)) + Bottom temp = iArr(r) iArr(r) = iArr(i) iArr(i) = temp Next i For i = Bottom To Bottom + Amount - 1 RandLotto = RandLotto & " " & iArr(i) Next i RandLotto = Trim(RandLotto) End Function
Scarica la Toolbar!
Post new comment