PDA

View Full Version : Excel...


AlbioB
02-04-2002, 16:19
Non so se posto nella sezione giusta, comunque mi sembra la più azzeccata.

veniamo al dunque: vorrei che in una colonna (se poi è una riga od un foglio intero fa lo stesso) mi venissero create combinazioni diverse combinazioni alfanumeriche di 8 caratteri.

si può fare? help pleaze :p ;)

vale001
02-04-2002, 16:46
...prova a spiegarti meglio......

AlbioB
02-04-2002, 21:49
okkei

vorrei che in una colonna\riga\foglio mi fossero generati codici diversi ma che siano sempre di 8 caratteri e che siano tutti diversi da loro.

NiX
03-04-2002, 00:22
crea un foglio excel, vai nel vba, aggiungi un modulo e mettici 'sta roba:


Const Caratteri_Consentiti = "0123456789qwertyuioplkjhgfdaszxcvbnmQWERTYUIOPLKJHGFDSAZXCVBNM"

Function Genera_Codice() As String
Dim Max As Integer, Carattere As Integer
Max = Len(Caratteri_Consentiti)
Randomize
Genera_Codice = ""
For Carattere = 1 To 8
Genera_Codice = Genera_Codice & Mid(Caratteri_Consentiti, Int((Max * Rnd) + 1), 1)
Next Carattere
End Function

Sub Prova()
Dim I As Long, Num_Righe As Long
Num_Righe = 50
For I = 1 To Num_Righe
Cells(I, 1) = Genera_Codice
Next I
End Sub


ovviamente per numero_righe s'intende le righe da generare sul foglio, la stringa dei caratteri di cui possono essere formati i codici è personalizzabile, ecc. ecc. , poi è sufficiente lanciare la macro prova...

bye :)

AlbioB
03-04-2002, 14:13
grazie, corro a provare :)

AlbioB
03-04-2002, 14:23
funziona a meraviglia, grazie di cuore ;)

NiX
03-04-2002, 14:34
niente, bye ;)