Proxima letra da sequencia

2024 - VBA & Macros

Post Recente por selmo 9 anos atrás

4 Posts

3 Usuários

0 Reactions

1,296 Visualizações

RSS

selmo

(@selmo)

Posts: 236

Estimable Member

Topic starter

Bom dia galera

Alguem saberia me apresentar uma forma de conseguir que o VBA me retornasse uma sequencia de letras em ordem alfabética? Exemplo, estou com a variavel X = "D", e quero substiruir pela próxima letra da sequencia X = "E"

"A mente que se abre a uma nova ideia jamais voltará ao seu tamanho original."
Albert Einstein

Postado : 19/11/2015 4:59 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Bom dia!!

Tente adaptar

Sub AleVBA_18186()
    Dim CharRange As Range
    Dim iResult As Range
     
    Set CharRange = Range("A1")
    Set iResult = Range("B1")
     
    iResult.FormulaR1C1 = "=CHAR(CODE(""" & CharRange.Value & """)+1) "
End Sub

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 19/11/2015 5:41 am

Nelson S

(@nelson-s)

Posts: 96

Trusted Member

Em VBA:

Public Sub ProximaLetra()
    
    Dim X As String
    
    X = "D"
    
    MsgBox "Letra atual: " & X
    
    X = Chr(Asc(X) + 1)

    MsgBox "Próxima letra: " & X
    
End Sub

Postado : 19/11/2015 3:57 pm