 |
|
||||
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: 371 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 para ajustar o código abaixo de acordo com as
suas necessidades, chama a gente no WhatsApp +55 (62) 98553-6711 (Osmar)
Ah, e se puder, faça uma DOAÇÃO de qualquer valor para nos ajudar
a manter o site livre de anúncios. Ficaremos eternamente gratos ;-)
Nosso PIX é: osmar@arquivodecodigos.com.br
----------------------------------------------------------------------
' 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 ::: Rotinas de Conversão |
Como converter números em strings em VBA usando a função CStr()Quantidade de visualizações: 404 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 para ajustar o código abaixo de acordo com as
suas necessidades, chama a gente no WhatsApp +55 (62) 98553-6711 (Osmar)
Ah, e se puder, faça uma DOAÇÃO de qualquer valor para nos ajudar
a manter o site livre de anúncios. Ficaremos eternamente gratos ;-)
Nosso PIX é: osmar@arquivodecodigos.com.br
----------------------------------------------------------------------
' 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 |
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: 372 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 para ajustar o código abaixo de acordo com as
suas necessidades, chama a gente no WhatsApp +55 (62) 98553-6711 (Osmar)
Ah, e se puder, faça uma DOAÇÃO de qualquer valor para nos ajudar
a manter o site livre de anúncios. Ficaremos eternamente gratos ;-)
Nosso PIX é: osmar@arquivodecodigos.com.br
----------------------------------------------------------------------
' 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 |
Vamos testar seus conhecimentos em Python |
| Qual função é usada para remover espaços no início e no fim de uma string em Python? A) length() B) strip() C) chop() D) trim() E) escape() Verificar Resposta Estudar Cards Todas as Questões |
Vamos testar seus conhecimentos em Ética e Legislação Profissional |
| Ética, Legislação e Entidades que regulamentam a profissão São afirmativas corretas sobre a ética na profissão, exceto: A) A ética é a reflexão sobre a moral. É ético aquele que age de acordo com os padrões de conduta ou prática correta, especialmente os padrões profissionais. B) A engenharia, como profissão, deve contribuir para o bem-estar social, sendo o engenheiro responsável, através de suas ações e projetos, pelas consequências à sociedade que confia em sua competência profissional. C) O comportamento ético para o engenheiro é uma habilidade tão importante como as habilidades técnicas, matemáticas e científicas. D) Como engenheiro, você deve apoiar-se em seus princípios éticos pessoais, diferenciando pequenos desvios de ações de grande impacto à sociedade. Somente grandes ações configuram um problema ético. E) A ética está associada ao estudo fundamentado dos valores morais que orientam o comportamento humano em sociedade. Verificar Resposta Estudar Cards Todas as Questões |
Vamos testar seus conhecimentos em Ética e Legislação Profissional |
| Ética Empresarial e Profissional: Noções Gerais Com o avanço das tecnologias de comunicação, o acesso às informações foi facilitado, permitindo que as pessoas, onde quer que estejam, acompanhem, praticamente em tempo real, os fatos ao redor do mundo. Assinale a alternativa que contém as ações realizadas pelas empresas diante desse contexto. A) As empresas estabelecem as convenções coletivas com o objetivo de regulamentar o comportamento dos colaboradores, buscando, dessa forma, evitar problemas que possam afetar sua imagem no mercado. B) As empresas terceirizam sua mão de obra com o objetivo de que as terceirizadas façam a regulamentação do comportamento dos seus colaboradores. C) As empresas utilizam a Constituição Federal e as leis vigentes para regulamentar o comportamento dos colaboradores com vistas a evitar problemas que possam afetar sua imagem no mercado. D) As empresas estabelecem os Códigos de Ética com o objetivo de regulamentar o comportamento dos colaboradores, buscando, dessa forma, evitar problemas que possam afetar sua imagem no mercado. E) As empresas não se importam com os aspectos comportamentais dos colaboradores fora do ambiente de trabalho. Verificar Resposta Estudar Cards Todas as Questões |
Vamos testar seus conhecimentos em Python |
| Qual é a forma correta de se declarar uma variável do tipo real em Python? A) valor = float(6.3) B) valor = Float(6.3) C) valor = 6.3 D) As formas A, B e C estão corretas E) As formas A e C estão corretas Verificar Resposta Estudar Cards Todas as Questões |
Vamos testar seus conhecimentos em JavaScript |
| Na construção switch...case...default do JavaScript, em qual parte colocamos a expressão a ser avaliada? A) O JavaScript não possui switch...case B) switch C) case D) default Verificar Resposta Estudar Cards Todas as Questões |
Veja mais Dicas e truques de VBA |
Dicas e truques de outras linguagens |
E-Books em PDF |
||||
|
||||
|
||||
Linguagens Mais Populares |
||||
|
1º lugar: Java |
