Generazione casuale |
|
| Storico
discussioni |
|
| Numeri e lettere casuali di
Enzo |
Ciao ragazzi e scusate l'ora ma ho un rompicapo da
risolvere
qualcuno sa dirmi come creare o con una macro o con
una formula, delle combinazioni casuali di numeri elettere
mi
spiego meglio dovrei creare un database che contenga stringhe di tre
lunghezze composta da numeri e lettere o entrambi (ogni cella una
stringa da tre)
qualcuno sa da dove partire
ho provato con
la funzione casuale ma genera solo numeri
grazie per l'aiuto |
|
| di Apoben64 |
Ciao enzo, č un tipo di lavoro che non ho mai
affrontato, perņ ti indico dove puoi trovare degli studi ed esempi
in materia.
spero ti siano utili :
http://www.ennius.altervista.org/mike/procedure/mikevba067.htm
http://ennius.interfree.it/vba/vba83.htm
http://www.ennius.altervista.org/mike/procedure/mikevba082.htm
http://ennius.interfree.it/vba/vba137.htm |
|
| Numeri e lettere casuali di Big
ronnie |
Spero che questa macro possa
servirti.ciao
Sub a()
Dim NumeroTerzine As Integer, Riga As Integer
Dim Lettera As Integer, Casuale As Integer
NumeroTerzine = 1 'Numero di Terzine casuali necessarie
Riga = 1 'Avanzamento nella colonna A
Worksheets(1).Columns("A").Clear 'Pulisco la colonna
Do While NumeroTerzine <> 11 'Genero 10 Terzine
inizio:
Lettera = Int((90 * Rnd) + 1) 'Num. per codice ASCII che genera una lettera
'Ho scelto solo le lettere Maiuscole(ASCII tra 65 e 90)
If Lettera < 65 Then GoTo inizio
For i = 1 To 3
'Casuale č per avere una terzina con 1 o 2 o 3 Numeri o Lettere o Misti
Casuale = Int((9 * Rnd) + 1)
If Casuale Mod 2 = 0 Then
Worksheets(1).Range("a" & Riga) = Worksheets(1).Range("a" & Riga) & Int((9 * Rnd) + 1)
Else
Worksheets(1).Range("a" & Riga) = Worksheets(1).Range("a" & Riga) & Chr(Lettera)
End If
secondoinizio:
Lettera = Int((90 * Rnd) + 1)
If Lettera < 65 Then GoTo secondoinizio
Next i
NumeroTerzine = NumeroTerzine + 1
Riga = Riga + 1
Loop
NumeroTerzine = 0
Riga = 0
End Sub
| |
|
|