CASUALE.TRA

[wardrome]

Salve a tutti, avevo una domanda riguardo questa funzione.

Se nella cella A1 inserisco il comando "=CASUALE.TRA(1;90)", nella medesima cella avrò un numero casuale tra 1 e 90 compreso.
Se faccio la stessa cosa nella cella B1 avrò la medesima possibilità (un numero tra 1 e 90 compreso) con la possibilità di generare lo stesso numero presente in A1.

Sapendo che può non essere molto frequente, da funzione, come posso fare per evitarlo sicuramente?
(avevo pensato di aggiungere o sottrarre un numero, ma vorrei generarlo nuovamente)

Grazie a tutti

[Anthony47]

Non puoi farlo direttamente, ma servono colonne di appoggio per farlo con formule; oppure si fa con macro.
Però dovresti spiegare se vuoi estrarre alcuni numeri (quanti?) o tutti.

Ciao

[wardrome]

vorrei che nelle prime x celle (ad esempio da A1 a F1) vengano generati numeri diversi tra loro e tutti compresi tra 1 e 90.

[Flash30005]

Con macro risolvi così

Codice: Seleziona tutto

Sub NumCas()
Ripeti:
Range("A1:F1").ClearContents
For NC = 1 To 6
Cas = Int(Rnd(90) * 90) + 1
If Evaluate("=COUNT(Foglio1!A1:F1)") = 6 Then
 Risp = MsgBox(Prompt:="Numeri terminati: Vuoi Resettare l'estrazione?", Buttons:=vbYesNo)
 If Risp = 6 Then GoTo Ripeti
Exit Sub
End If
If Evaluate("=COUNTIF(Foglio1!A1:F1," & Cas & ")") = 1 Then GoTo Ripeti
Cells(1, NC).Value = Cas
Next NC
End Sub


Ciao

Edit: E benvenuto nel Forum

[wardrome]

Provo, grazie.

Eventualmente, se incontro difficoltà o se ho altri dubbi posso disturbarvi ancora?

[Flash30005]

Siamo qui per questo e senza alcun disturbo se chiedi come hai fatto finora

[Flash30005]

Rivedendo la macro ho notato delle anomalie e situazioni illogiche ma è dovuto al fatto che sono codici presi da altre mie macro e assemblati
Questa macro è più corretta

Codice: Seleziona tutto

Sub NumCas()
Inizio:
For NC = 1 To 6
Ripeti:
Cas = Int(Rnd(90) * 90) + 1
If Evaluate("=COUNT(Foglio1!A1:F1)") = 6 Then
 Risp = MsgBox(Prompt:="Numeri terminati: Vuoi resettare l'estrazione precedente?", Buttons:=vbYesNo)
 If Risp = 6 Then GoTo Eccesso
Exit Sub
End If
If Evaluate("=COUNTIF(Foglio1!A1:F1," & Cas & ")") = 1 Then GoTo Ripeti
Cells(1, NC).Value = Cas
Next NC
Exit Sub
Eccesso:
Range("A1:F1").ClearContents
GoTo Inizio
End Sub

[wardrome]

Salve a tutti, e bentrovati.
Ho provato entrambi i codici, in allegato vi posto l'immagine in riferimento al secondo codice suggerito, ma la funzione si blocca e mi segnale un errore.

Il testo del codice è stato copiato e incollato paro paro.

Dove commetto errori?

Grazie ancora a tutti

[ricky53]

Ciao,
non dipende da te ... però potevi dirlo che NON utilizzavi MS-Office !

Non tutte le istruzioni VBA di MS-Office possono essere utilizzate in "O-O".

[wardrome]

ah ok. Provo su Office.
Credevo fosse la stessa cosa, perdonatemi.

[wardrome]

Ottimo!

funziona alla grande. Grazie infinite.
La discussione può anche essere chiusa.