Você está aqui: VBA ::: Dicas & Truques ::: Strings e Caracteres

Como quebrar uma string em suas partes em VBA usando a função Split()

Quantidade de visualizações: 333 vezes
Nesta dica mostrarei como podemos usar a função Split() do VBA para quebrar uma frase ou texto em suas partes. Esta função recebe uma string e um delimitador e retorna um array contendo as partes individuais da string quebradas no delimitador.

Veja um código VBA completo no qual usamos a função Split() para quebrar uma string:

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

' Macro VBA que quebra uma string em suas partes
Sub QuebrarStringPartes()
  Dim frase As String
  Dim i As Integer
  Dim partes As Variant

  ' vamos inicializar a frase
  frase = "Quero aprender VBA hoje mesmo"
  MsgBox "A frase é: " & frase

  ' agora vamos quebrar a string em suas partes
  partes = Split(frase, " ")

  ' e percorremos as partes da string individualmente
  For i = 0 To UBound(partes)
    MsgBox "A " & (i + 1) & ".a palavra é: " & partes(i)
  Next
End Sub

Ao executar este código VBA nós teremos o seguinte resultado:

A frase é: Quero aprender VBA hoje mesmo
A 1.a palavra é: Quero
A 2.a palavra é: aprender
A 3.a palavra é: VBA
A 4.a palavra é: hoje
A 5.a palavra é: mesmo

Link para compartilhar na Internet ou com seus amigos:

VBA ::: Dicas & Truques ::: Strings e Caracteres

Como retornar o código ASCII associado a um caractere em VBA usando a função Asc()

Quantidade de visualizações: 328 vezes
Em algumas situações nós precisamos retornar o código ASCII associado a um determinado caractere. Em VBA nós podemos realizar essa tarefa usando a função Asc(), que recebe uma string representando uma letra, dígito ou símbolo e retorna o código numérico correspondente.

Veja um trecho de código VBA no qual informamos a letra "A" e obtemos, como retorno, o código ASCII 65:

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

' Macro VBA Excel usada para converter um caractere
' em seu código ASCII
Sub RetornarCodigoASCII()
  ' Variáveis usadas na resolução do problema
  Dim letra As String
  Dim codigo As Integer
  
  ' vamos pedir para o usuário informar um caractere
  letra = InputBox("Informe um caractere: ", "Código ASCII", 0)
  Debug.Print "Você informou o caractere: " & letra
  
  ' agora vamos obter o código ASCII correspondente
  codigo = Asc(letra)
  
  ' e mostramos o resultado
  Debug.Print "O código ASCII correspondente é: " & codigo
End Sub

Ao executarmos este código VBA nós teremos o seguinte resultado:

O código ASCII correspondente é: 65


VBA ::: Dicas & Truques ::: Rotinas de Conversão

Como converter números em strings em VBA usando a função CStr()

Quantidade de visualizações: 356 vezes
A função CStr() do VBA pode ser usada quando queremos converter valores numéricos do tipo Integer ou Double em uma string. Em geral isso é necessário quando queremos aplicar funções de strings a valores numéricos, por exemplo, testar se um determinado dígito faz parte de um número.

Veja um trecho de código no qual usamos a função CStr() para converter valores Integer e Double em string e mostrar o resultado:

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

' Procedimento para converter Integer e Double em string
Sub ConverterNumeroString()
  ' vamos declarar duas variáveis numéricas
  Dim codigo As Integer
  Dim preco As Double
  
  codigo = 58
  preco = 32.15
  
  Dim resultado As String
  resultado = "O código do produto é: " + CStr(codigo) + _
    " e o preço é: " + CStr(preco)
  
  ' mostramos o resultado
  MsgBox resultado
End Sub

Ao executar este código VBA nós teremos o seguinte resultado:

O código do produto é: 58 e o preço é: 32,15


Veja mais Dicas e truques de VBA

Dicas e truques de outras linguagens

Códigos Fonte

Programa de Gestão Financeira Controle de Contas a Pagar e a Receber com Cadastro de Clientes e FornecedoresSoftware de Gestão Financeira com código fonte em PHP, MySQL, Bootstrap, jQuery - Inclui cadastro de clientes, fornecedores e ticket de atendimento
Diga adeus às planilhas do Excel e tenha 100% de controle sobre suas contas a pagar e a receber, gestão de receitas e despesas, cadastro de clientes e fornecedores com fotos e histórico de atendimentos. Código fonte completo e funcional, com instruções para instalação e configuração do banco de dados MySQL. Fácil de modificar e adicionar novas funcionalidades. Clique aqui e saiba mais
Controle de Estoque completo com código fonte em PHP, MySQL, Bootstrap, jQuery - 100% funcional e fácil de modificar e implementar novas funcionalidadesControle de Estoque completo com código fonte em PHP, MySQL, Bootstrap, jQuery - 100% funcional e fácil de modificar e implementar novas funcionalidades
Tenha o seu próprio sistema de controle de estoque web. com cadastro de produtos, categorias, fornecedores, entradas e saídas de produtos, com relatórios por data, margem de lucro e muito mais. Código simples e fácil de modificar. Acompanha instruções para instalação e criação do banco de dados MySQL. Clique aqui e saiba mais

Linguagens Mais Populares

1º lugar: Java
2º lugar: Python
3º lugar: C#
4º lugar: PHP
5º lugar: Delphi
6º lugar: C
7º lugar: JavaScript
8º lugar: C++
9º lugar: VB.NET
10º lugar: Ruby



© 2025 Arquivo de Códigos - Todos os direitos reservados
Neste momento há 36 usuários muito felizes estudando em nosso site.