[VBA] Generare numero casuale di 10 cifre...

[Desperado]

Come posso fare a generare un numero intero casuale di 10 cifre con VBA?
Grazie mille per l'aiuto!

[Desperado]

Randomize
randomizer = Int(Rnd * 9999999999#) + 1

Risolto, scusate...

[Luciano79]

   Dim Numero
   Randomize Timer
   Numero = Fix(Rnd() * 10000000000#)

Rnd restiutuisce un numero decimale compreso tra 0 e 1
Randomize Timer consente a Rnd di estrarre questo numero con l'aiuto del timer, altrimenti ti restituisce sempre lo stesso numero.

[Desperado]

Originariamente inviato da Luciano79

   Dim Numero
   Randomize Timer
   Numero = Fix(Rnd() * 10000000000#)

Rnd restiutuisce un numero decimale compreso tra 0 e 1
Randomize Timer consente a Rnd di estrarre questo numero con l'aiuto del timer, altrimenti ti restituisce sempre lo stesso numero.

Grazie mille!

[Luciano79]

Scusa... in realtà ho toppato... manca uno zero!
Inoltre così non sempre viene un numero di 10 cifre, ma un numero di massimo 10 cifre. Cioè puoi ottenere 1.234.567.890, ma anche 12.345

O vedi il numero come stringa ( format(Numero,"0000000000") ) o, se il valore numerico deve avere perforza 10 cifre, fai così

  Dim Numero
  Randomize Timer
  Numero = 0
  While Numero < 10000000000#
     Numero = Numero * 10 + Fix( Rnd() * 10 )
  Wend

... cioè aggiungi sempre una cifra (quella dell'unità) fino a quando ne ottieni 10.

[Marcowa]

Ciao,
prova così:

Int(9999999999 * Rnd) + 1000000000

Bye Bye