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.
Artigo original publicado por pijaku. Tradução feita por ninha25. Última modificação: 22 de fevereiro de 2018 às 04:34 por ninha25.
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 (https://br.ccm.net/) ao utilizar este artigo.
VBA: Userforms – Caixa de ferramentas dos controles
VBA - Estruturas condicionais (if e outros testes)