Um dia era pra mostrar coisas sobre o excel, hoje é para compartilhar meus poucos conhecimentos, com os interessados!

quinta-feira, 29 de agosto de 2013

Criar digito validador (VBA)







Muitas vezes ao longo destes últimos dias, precisei criar uma especie de senha para alguns atendimentos corporativos, então foi pensado nisso que resolvi recriar um validador em excel no VBA, para utilização em meu sistema. através deste + a utilização do Hexdecimal eu crio senhas únicas para cada atendimento que realizo.





Segue a linha de código.

Junta = "123456" ' Este é o valor que estou querendo criar a validação.

For conta = 1 To Len(junta) Step 2 ' eu prefiro o FOR/NEXT mas você por utilizar o LOOP que preferir.
MOSTRA1 = Mid(junta, conta, 1)
somaa = Val(somaa) + Val(MOSTRA1)
b = b & MOSTRA1
Next conta
soma1 = somaa * 3

'casa pares
For conta = 2 To Len(junta) Step 2
MOSTRA2 = Mid(junta, conta, 1)
somab = Val(somab) + Val(MOSTRA2)
Next conta
total = Val(somab) + Val(soma1)
total2 = (((Val(total) \ 10) + 1) * 10) - total

Pronto, validador criado.
para teste simples utilize o msgbox total2.