Supponendo di scrivere questi numeri in a1:a5 ti può essere utile una
routine del genere:
Public Sub estrazioni()
Set area = Range("a1:a5")
For Each c In area
c = ""
Next
Randomize
For Each c In area
nuova:
estratto = Int((90) * Rnd + 1)
For Each j In area
If j = estratto Then GoTo nuova
Next
c.Value = estratto
Next
End Sub
Mi pare che sia ok!
Cesare
dovresti trovare le soluzioni che ti interessano
Noblues[ITA]
In B1 metti:
=INT(CASUALE()*90) ....e non 90+1 come scrivi tu!
casuale()*(max-min)+1 mi pare di ricordare..!
in B2:
=INDICE(GRANDE(VAL.ERRORE(CONFRONTA(RIF.RIGA($A$1:$A$90);$B$1:B1;0))*RIF.RIG
A($A$1:$A$90);RIF.RIGA(INDIRETTO("1:"&90-RIF.RIGA()+1)));CASUALE()*(90-RIF.R
IGA()+1))
e trascinala in basso
Molto delicato e bisognoso di attenzioni $B$1:B1 che deve riferire
all'intervallo immediatamente superiore.
.i
**************************************
E chi l'ha detto che il gioco del Lotto non comporta la
possibilità di avere ripetizioni?
Guarda che il tuo ragionamento è errato, in quanto tutti i
90 numeri sono equiprobabili, motivo per cui i numeri
sortiti nell'estrazione precedente hanno la stessa
probabilità di sortire ugualmente nell'estrazione
successiva.
Il fatto che questa eventualità non sia mai accaduta in
decenni del gioco non depone ugualmente a favore della tua
tesi.
Seguendo il tuo ragionamento, sarebbe più corretto parlare
di PROBABILITA' STATISTICA, che trae fondamento sulle
sortite effettive del gioco, ma non di PROBABILITA'
MATEMATICA.
************************************************************
******
Esiste un metodo più semplice per avere una estrazione
casuale senza ripetizione? MAGARI UNA MACROFUNZIONE per
l'estrazione senza ripetizione?
Grazie
***************************************************
Ci sono diversi thread per l'argomento in questione:
21/6/03 dal titolo Casualità e dintorni
17/9/03 dal titolo Casuale.tra
Ci sono diverse soluzioni che ti potrebbero andar bene, ok?
--
Facci sapere se risolvi il problema, perché la tua risposta
può essere d'aiuto ad altri:-)
Ciao
Alfonso Spagnuolo
Scusa se mi intrometto, ma non penso che claudio intendesse questo, ma
semplicemente che se il 46 l'hai estratto come primo numero non pui farlo
uscire di nuovo nella STESSA estrazione, mentre usando la formula random,
proprio per i motivi che hai spiegato tu potrebbe uscire di nuovo, ma se è
lecito e teoricamente possibile che 5 numeri random siano 46 46 46 46 46
L'estrazione del lotto, mi sembra si dica tecnicamente, "estrazione senza
reinsermento"
Ciaus!
Sergio
"Alfonso Spagnuolo" <alfocentauriTOGL...@tiscali.it> ha scritto
nel messaggio news:eILLu8h1...@TK2MSFTNGP09.phx.gbl...
**************************
Se questa è la giusta interpretazione, allora sono io che ho
capito male.
Mi scuso naturalmente, ok?
Alla prossima.
Alfonso Spagnuolo
>Esiste un metodo più semplice per avere una estrazione
>casuale senza ripetizione? MAGARI UNA MACROFUNZIONE per
>l'estrazione senza ripetizione?
eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee
in A1:A90 inserisci la serie numerica 1:90
attenzione ai simboli del dollaro:
da trascinare fino a B89, in B1 inserisci
=PICCOLO($A$1:$A$90;$A1+CONTA.SE(A$1:A1;H$1))
da trascinare fino a C88, in C1 inserisci
=PICCOLO(B$1:B$89;$A1+CONTA.SE(B$1:B1;I$1))
da trascinare fino a D87, in D1 inserisci
=PICCOLO(C$1:C$88;$A1+CONTA.SE(C$1:C1;J$1))
da trascinare fino a E86, in E1 inserisci
=PICCOLO(D$1:D$87;$A1+CONTA.SE(D$1:D1;K$1))
poi: in
H1=INDICE(A$1:A$90;CASUALE()*90) avrai il 1° estratto
I1 =INDICE(B$1:B$89;CASUALE()*89) avrai il 2° estratto
J1 =INDICE(C$1:C$88;CASUALE()*88) avrai il 3° estratto
K1=INDICE(D$1:D$87;CASUALE()*87) avrai il 4° estratto
L1=INDICE(E$1:E$86;CASUALE()*86) avrai il 5° estratto
sicuramente unici
enzo
eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee