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]

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! :D

[zuper]

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! :D

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]

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