Excel Associando letra ao número correspondente.

[GENECIOFICIAL]

Boa tarde!

Solicito a sua ajuda, para elaborar um código vba e resolver o problema.

 

Conforme a descrição cada letra tem um valor:

A=1 B=2 C=3 D=4 E=5 F=6 G=7 H=8 I=9 J=10 K=11 L=12 M=13 N=14 O=15 P=16 Q=17 R=18 S=19 T=20 U=21 V=22 W=23 X=24 Y=25 Z=26

Digito a palavra na célula A1, na célula A2 retorna o texto ou o código correspondente.

Exemplo 1: Digito na célula A1 a palavra CODIGO, na célula A2, deverá aparecer o código: 3  15  4  7  15  Separados por dois espaços.

Exemplo 2: Digito na célula A1 a palavra ARARA, na célula A2, deverá aparecer o código: 1  18  1  18  1  Separados por dois espaços.

Exemplo 3: Digito na célula A1 a palavra ESTHER, na célula A2, deverá aparecer o código: 5  19  20  8  5  18  Separados por dois espaços.

 

Grato.

 

[Midori]

Isso dá para fazer com fórmula. Se aplicar a função CÓDIGO você vai conseguir o código decimal da tabela ASCII. O valor da primeira letra da palavra CODIGO é 67, da segunda 79, etc. Dessa forma a posição da letra no alfabeto é esse valor menos 65 (código "A") mais 1, p.ex:

 

=CÓDIGO("C") - CÓDIGO("A") + 1

 

Com macro é o mesmo método, o procedimento só tem que fazer o loop na palavra para pegar as letras.

[GENECIOFICIAL]

Boa tarde!

Fico com o problema sem resposta, o meu conhecimento é insuficiente para elaborar o código.

Você ministra algum curso de excel e vba? 

 

 

Grato.

[Midori]

O código fica assim,

 

Sub MacroCodigo()
    Dim Palavra As String
    Dim Codigo  As String
    Dim L       As Integer
    
    Palavra = UCase(Trim([A1].Value))
    
    For L = 1 To Len(Palavra)
        Codigo = Codigo & " " & Asc(Mid(Palavra, L, 1)) - Asc("A") + 1
    Next L
    [A2].Value = LTrim(Codigo)
End Sub

 

[GENECIOFICIAL]

É necessário amplos conhecimentos para elaborar o código.

Problema resolvido.

 

Grato.