Junte Strings | Esquerda | Direito | Mid | Len | Instr
Neste capítulo, você encontrará as funções mais importantes para manipular cordas em Excel VBA.
Coloque um botão de comando em sua planilha e adicione as linhas de código abaixo. Para executar as linhas de código, clique no botão de comando na folha.
Unir Strings
Usamos o operador & para concatenar (juntar) strings.
Código:
Dim text1 As String, text2 As String
text1 = "Oi"
text2 = "Tim"
MsgBox text1 & "" & text2
Resultado:
Nota: para inserir um espaço, use ""
Deixou
Para extrair os caracteres mais à esquerda de uma string, use Left.
Código:
Dim text As String
text = "texto de exemplo"
MsgBox Left (texto, 4)
Resultado:
Certo
Para extrair os caracteres mais à direita de uma string, use Right. Também podemos inserir texto diretamente em uma função.
Código:
MsgBox Right ("texto de exemplo", 2)
Resultado:
Mid
Para extrair uma substring, começando no meio de uma string, use Mid.
Código:
MsgBox Mid ("texto de exemplo", 9, 2)
Resultado:
Nota: iniciado na posição 9 (t) com comprimento 2. Você pode omitir o terceiro argumento se quiser extrair uma substring começando no meio de uma string, até o final da string.
Len
Para obter o comprimento de uma corda, use Len.
Código:
MsgBox Len ("texto de exemplo")
Resultado:
Nota: espaço (posição 8) incluído!
Instr
Para encontrar a posição de uma substring em uma string, use Instr.
Código:
MsgBox Instr ("texto de exemplo", "am")
Resultado:
Observação: string "am" encontrada na posição 3. Visite nossa página sobre a função Instr para obter mais informações e exemplos.