0
Obrigado

Algumas palavras de agradecimento nunca são demais.

VBA - Função retornar o alfabeto


Esta função se chama simplesmente Chr().

Código de chamada:

 Option Explicit

Sub CreationAlphabet ()
Dim Alpha () As String

     Alpha = Alphabet (97, 122) 'minúsculas
     Debug.Print Join (Alpha, ",")
     Alpha = Alphabet (65, 90) 'maiúscula
     Debug.Print Join (Alpha, ",")
End Sub 

Função:

Function Alphabet (First Ascii As Byte, Last Ascii As Byte) As String ()
Dim Temp () As String, i &

     ReDim Temp (0 para LastAscii - FirstAscii)
     For i = FirstAscii To LastAscii
         Temp (i - FirstAscii) = Chr(i)
    Next
     Alphabet = Temp
     Eraser Temp
End Function

Foto: © VBA.
Este documento, intitulado 'VBA - Função retornar o alfabeto', está disponível sob a licença Creative Commons. Você pode copiar e/ou modificar o conteúdo desta página com base nas condições estipuladas pela licença. Não se esqueça de creditar o CCM (br.ccm.net) ao utilizar este artigo.

Assine nossa newsletter!

Receba toda semana o melhor conteúdo

Assine nossa newsletter!