Como incremento Letras?
04/08/2008
0
Boa Tarde,
Estou com uma duvida
Prciso fazer 1programa q faz incremento de 3digitos(letras)
Exemplo: Comeca no AAA
ai o cara registra o AAA
e o proximo q for registrar vai pra AAB
AAC
AAD
Até ZZZ
Como eu posso fazer isso em VBA?
Obrigado
Atenciosamente,
Douglas Manoel
Estou com uma duvida
Prciso fazer 1programa q faz incremento de 3digitos(letras)
Exemplo: Comeca no AAA
ai o cara registra o AAA
e o proximo q for registrar vai pra AAB
AAC
AAD
Até ZZZ
Como eu posso fazer isso em VBA?
Obrigado
Atenciosamente,
Douglas Manoel
Dougfinal
Curtir tópico
+ 0
Responder
Posts
25/08/2008
Ubirajara
Dim seq1, seq2, seq3 as string
seq1 = ´´
seq2 = ´´
seq3 = ´´
for a = 65 to 80
seq1 = chr(a)
for b = 65 to 80
seq2 = chr(b)
for c = 65 to 80
seq3 = chr(c)
response.write(seq1&seq2&seq3)
next c
next b
next i
Ao invés de usar o response.write você pode atribuir a concatenação das sequencias a uma variável.
Espero ter ajudado.
seq1 = ´´
seq2 = ´´
seq3 = ´´
for a = 65 to 80
seq1 = chr(a)
for b = 65 to 80
seq2 = chr(b)
for c = 65 to 80
seq3 = chr(c)
response.write(seq1&seq2&seq3)
next c
next b
next i
Ao invés de usar o response.write você pode atribuir a concatenação das sequencias a uma variável.
Espero ter ajudado.
Responder
Clique aqui para fazer login e interagir na Comunidade :)
