GERADOR DE NUMEROS E LETRAS ALEATORIOS

HARYSOHN 25/02/2013 16:18:33
#419622
Neste tópico fora apresentado uma solução que creio me servirá:

http://www.vbmania.com.br/pages/index.php?varModulo=Forum&varMethod=abrir&varID=412846

Pergunto: Tem como enviarem-me apenas o .bas com o código para que eu adapte ao VBA?

Cumprimentos.
LLAIA 01/03/2013 13:33:17
#419771
Cara, estude sobre Random(), Rnd() e utilize a função Asc() para retornar caracteres com base em números [Ô]aleatórios[Ô].
LUIZCARLOS 01/03/2013 23:51:50
#419798
cara serve vb6
HARYSOHN 02/03/2013 01:55:35
#419802
Boas, obrigado por vossas ajudas... em pesquisas resolvi da seguinte forma:

Function Autentica() As String
alfanumerico = [Ô]ABCDEFGHIJKLMNOPQRSTUVXZYW1234567890abcdefghijklmnopqrstuvxzyw[Ô]
For I = 1 To 24
Randomize
X = Int(Rnd * Len(alfanumerico)) + 1
If InStr(1, sequencia, Mid(alfanumerico, X, 1)) Then
I = I - 1
Else
sequencia = sequencia & Mid(alfanumerico, X, 1)
End If
Next
Autentica = sequencia
End Function



Obrigado.
HARYSOHN 02/03/2013 02:04:00
#419803
Como coloco o resolvido amigos?

Cumprimentos.
Tópico encerrado , respostas não são mais permitidas
Voltar