Generazione lettere e numeri casuali

  • 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
    


    NUOVA DISCUSSIONE AGGIORNATA SU GENERAZIONE CASUALE DI LETTERE E NUMERI:
    Generare numeri e lettere in modo casuale