Generare codce alfanumerico casuale

[ivanisevic82]

Ciao ragazzi, mi servirebbe un generatore di codici alfanumerici (basta che abbiano tutti il medesimo numero di caratteri).

Con cosa posso farlo?? Excell? Software appositi?

Grazie!

[bobbytre]

puoi farlo con un qualsiasi linguaggio di programmazione , percio' io direi di farlo in C

[cionci]

Se non conosci un po' di VBA potresti farlo anche in Excel.
Devono avere altre caratteristiche questi codici oltre alla lunghezza ? Devi generarne uno solo o tutti ?

[MarcoGG]

Originariamente inviato da ivanisevic82

Ciao ragazzi, mi servirebbe un generatore di codici alfanumerici (basta che abbiano tutti il medesimo numero di caratteri).

Con cosa posso farlo?? Excell? Software appositi?

Grazie!

Excel VBA.
Direi che è quello più a portata di mano.
Ma descrivi meglio il problema. Soprattutto se deve generare uno o più codici per volta...

[ivanisevic82]

Riprendo questo topic per tornare sul tema: va bene excel VBA.
Come devo fare?

Il risultato devo essere questo:

- Avere un elenco di codici alfanumerici (la lunghezza non è importante, basta che non siano pochissimi caratteri!);

- Poter "collegare" questo elenco a un link.

Ad esempio,

Elenco codici:
fj3848wn3
983h4ndjk
23984jkjs2

Elenco Link:
http://www.link1.com-fj3848wn3
http://www.link2.com-983h4ndjk
http://www.link3.com-23984jkjs2

[zuper]

Sub RandomLink()
Dim strLink As String
Dim i As Integer
Dim celle As Range

collega = "http://www.link1.com-"           'imposta il link
lunghezza = 12                              'imposta la lunghezza del codice
quantita = 10                               'imposta la quantità di codici da generare
Set celle = Range("A1:A" & quantita)
Range("a:a").ClearContents


For Each cell In celle
    strLink = ""
    For i = 1 To lunghezza
    lettera = Chr(Int((90 - 65 + 1) * Rnd + 65))
    numero = Int((9 * Rnd) + 1)
    scelta = Int((2 * Rnd) + 1)
        If scelta = 1 Then
            strLink = lettera & strLink
        Else
            strLink = numero & strLink
        End If
    Next i
    cell.Value = collega & strLink
Next cell
End Sub

[ivanisevic82]

Zuper ti ringrazio molto! Purtroppo devo chiedere ulteriore supporto perchè sono completamente all'asciutto in materia: come devo utilizzare il cadice che hai postato?

Excel VBA è un software a parte rispetto a excel?

Non so proprio nulla!

[zuper]

Originariamente inviato da ivanisevic82

Zuper ti ringrazio molto! Purtroppo devo chiedere ulteriore supporto perchè sono completamente all'asciutto in materia: come devo utilizzare il cadice che hai postato?

Excel VBA è un software a parte rispetto a excel?

Non so proprio nulla!

apri un nuovo worksheet
fai tasto destro sul primo foglio
"visualizza codice"
incolli la parte sopra...
e schiacci la freccina verde di play

[ivanisevic82]

Perfetto!

Grazie mille zuper!

[ivanisevic82]

Riesumo il topic per una rapida domanda: se ho fatto un primo elenco di codici (per un totale, ad esempio, di 800) e voglio proseguire ripartendo da dove mi ero fermato (quindi da 801), come devo fare?

Ho provato ad agire sui parametri "set celle" e "range" ma senza risultati (ho fatto più casino che altro).

Potete aiutarmi?

Grazie!

[ivanisevic82]

Originariamente inviato da ivanisevic82

Riesumo il topic per una rapida domanda: se ho fatto un primo elenco di codici (per un totale, ad esempio, di 800) e voglio proseguire ripartendo da dove mi ero fermato (quindi da 801), come devo fare?

Ho provato ad agire sui parametri "set celle" e "range" ma senza risultati (ho fatto più casino che altro).

Potete aiutarmi?

Grazie!

Anche se il post è vecchissimo devo uppare perchè non ho ancora trovato una risposta!

[franksisca]

anche se non conosco il linguaggio intuitivamente credo che tu debba sostituire qui:

Set celle = Range("A1:A" & quantita)

in

Set celle = Range("A801:A" & (quantita+800))

attento che la parte in grassetto non sono sicuro che funzioni