VBA - Função retornar o alfabeto

Última modificação: 22 de fevereiro de 2018 às 04:34 por Ana Spadari .

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.

Veja também

VBA - Função retornar o alfabeto
Função se com mais de 7 condições - Dicas -Excel
Call vba - Dicas -Visual Basic
Vba pesquisar valores e retornar dados - Dicas -Excel
Funçao se - Dicas -Excel
Função módulo excel ✓ - Fórum Microsoft Office

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.

VBA: Userforms – Caixa de ferramentas dos controles

VBA - Estruturas condicionais (if e outros testes)

Assine nossa newsletter!