ambi possibili

Hai un problema con Excel?

Nuova discussione

ambi possibili
di stefanmi data: 10/04/2015 21:05:56
salve, vorrei se possibile una formula o macro che mi calcoli tutti gli ambi possibili dal numero 1 al numero 90, grazie

di linus (utente non iscritto) data: 11/04/2015 09:20:33
Eccolo bello è pronto...
bye

Option Explicit
Sub Pulsante1_Click()
Randomize Timer
Dim Valmax
 Dim CL As Object
 Dim Miamatrice As Range
 Set Miamatrice = Range("A3:B3")
 Valmax = 90
 For Each CL In Miamatrice
 CL.Value = Int(Rnd() * Valmax + 1)
 Next
End Sub

di linus (utente non iscritto) data: 11/04/2015 09:29:53
Pardon....... Vuoi tutti gli Ambi possibili!!!!
Se ricordo bene su 90 numeri ci sono 4005 combinazioni di Ambi.

Dal codice scritto in precedenza, devi cambià da:
Set Miamatrice = Range("A3:B3")
in

Set Miamatrice = Range("A3:B4005")

Spero di esserti stato utile...
Bye
di stefanmi data: 11/04/2015 12:55:25
ciao, ho provato però mi crea ambi anche doppi, probabilmente sbaglio qualcosa, ho allegato il file, grazie

di linus (utente non iscritto) data: 11/04/2015 13:17:21
Prova questo codice. Con Excel mi sa che non è proprio cosa facile. Non demordere!
Vedrai che altri più bravi di me verranno in tuo aiuto....
Abbi fede...
P.s. fai sapè se funziona.....
Bye

Randomize (Timer)
Dim Valmax
 Dim CL As Object
 Dim Miamatrice As Range
 'Sheets("Foglio1").Select
 Set Miamatrice = ActiveSheet.Range("A3:B4005")
 Valmax = 90
 For Each CL In Miamatrice
 CL.Value = Int(Rnd() * Valmax + 1)
 Next

di stefanmi data: 11/04/2015 13:29:30
purtroppo non è quello che volevo, comunque grazie, speriamo che qualcuno risolva, sono sicuro che qui qualcuno c'e'

di linus (utente non iscritto) data: 11/04/2015 13:39:39
Prova questo....
Bye

Randomize (Timer)
Dim Valmax
 Dim CL As Object
 Dim Miamatrice As Range
 Set Miamatrice = ActiveSheet.Range("A3:B4005")
 Valmax = 90
 For Each CL In Miamatrice
 'CL.Value = Int(Rnd() * Valmax + 1)
 CL.Value = Int((Rnd - Valmax + 1) * Rnd + Valmax)
Next

di stefanmi data: 11/04/2015 14:23:07
niente da fare crea sempre ambi doppio io li vorrei unici
di linus (utente non iscritto) data: 11/04/2015 20:21:58
Prova con qualcosa di più facile.... Da verificare doppioni!

Sub Pulsante3_Click()
Sheets("Foglio1").Select
Range("a3:b4007") = "=INT(RAND()*90+1)"
End Sub
di Walter Lagnocca (utente non iscritto) data: 12/04/2015 11:54:57
Proverei senza VBA.
In A1 digiti 1 in B1 digiti 2
in A2
=SE($B1=90;$A1+1;$A1)
in B2
=SE($B1=90;$A2+1;$B1+1)
poi, copia/incolla A2:B2 fino alla cella A4005

W Lagnocca
di stefanmi data: 12/04/2015 13:47:30
grazie Walter, non sai quanto ci ho pensato, lo sapevo che qui sarei riuscito a risolvere, W lagnocca
di stefanmi data: 12/04/2015 13:53:51
Grazie

Vuoi Approfondire?