Este tutorial demonstrará como usar a função Left VBA.
Função Esquerda
A função VBA Left retorna os primeiros n caracteres de uma string.
Função VBA para a esquerda n primeiros caracteres
A função VBA Left retorna os primeiros n caracteres de uma string:
| 123456 | Sub LeftExample_1 ()MsgBox Left ("ABCDEFGHI", 4) 'O resultado é: "ABCD"MsgBox Left ("ABCDEFGHI", 2) 'O resultado é: "AB"MsgBox Left ("ABCDEFGHI", 1) 'O resultado é: "A"MsgBox Left ("ABCDEFGHI", 100) 'O resultado é: "ABCDEFGHI"End Sub |
Função esquerda do VBA n primeiros caracteres em uma variável
Conforme mostrado acima, você pode definir uma string simplesmente inserindo o texto entre aspas. Mas a função LEFT também funcionará com variáveis de string. Esses exemplos extrairão os primeiros n caracteres de uma variável de string.
| 1234567891011 | Sub LeftExample_2 ()Dim StrEx As String 'Definir uma variável de stringStrEx = "ABCDEFGHI"MsgBox Left (StrEx, 4) 'O resultado é: "ABCD"MsgBox Left (StrEx, 2) 'O resultado é: "AB"MsgBox Left (StrEx, 1) 'O resultado é: "A"MsgBox Left (StrEx, 100) 'O resultado é: "ABCDEFGHI"End Sub |
Função VBA para a esquerda n primeiros caracteres em uma célula
Strings podem ser definidas em código VBA, mas você também pode usar valores de células. Leia o valor de uma célula, mantenha-o em uma variável de string e extraia os n primeiros caracteres desse valor de Célula da Planilha.
| 12345678910111213 | Sub LeftExample_3 ()Dim StrEx As String 'Definir uma variável de string'Leia o valor da célula A1 na planilha Plan1StrEx = ThisWorkbook.Worksheets ("Sheet1"). Range ("A1"). Value'Para este exemplo, o valor da célula A1 é "A bCDEFGHI"MsgBox Left (StrEx, 4) 'O resultado é: "ABCD"MsgBox Left (StrEx, 2) 'O resultado é: "AB"MsgBox Left (StrEx, 1) 'O resultado é: "A"MsgBox Left (StrEx, 100) 'O resultado é: "ABCDEFGHI"End Sub |
Função VBA Esquerda Cortar a última letra
Para remover letras do final de uma string, use a função LEFT junto com a função LEN.
A função VBA LEN conta o número de caracteres em uma string:
| 1 | Len (StrEx) |
Ao combinar as funções, podemos remover um certo número de caracteres do final da string:
| 123456789 | Sub LeftExample_4 ()Dim StrEx As String 'Definir uma variável de stringStrEx = "ABCDEF"MsgBox Left (StrEx, Len (StrEx)) 'O resultado é: "ABCDEF"MsgBox Left (StrEx, Len (StrEx) - 1) 'O resultado é: "ABCDE"MsgBox Left (StrEx, Len (StrEx) - 2) 'O resultado é: "ABCD"End Sub |
VBA restante para extrair o primeiro nome
Para extrair o primeiro nome de uma string com um nome completo, use a Função Esquerda junto com a Função Instr.
A função VBA Instr procura uma substring dentro de uma string e retorna o número da posição da substring.
| 1 | InStr (StrEx, "") |
Ao combinar as funções, podemos extrair a primeira palavra de uma frase:
| 12345678910111213141516171819 | Sub LeftExample_5 ()Dim StrEx As String 'Definir uma variável de stringStrEx = "Alexander Graham Bell"MsgBox Left (StrEx, InStr (StrEx, ""))'O resultado é: "Alexander" (observe o espaço no final)MsgBox Left (StrEx, InStr (StrEx, "") - 1)'O resultado é: "Alexander" (SEM espaço no final)StrEx = "Leonardo da Vinci"MsgBox InStr (StrEx, "")'O resultado é: 9 porque o espaço é encontrado na posição 9MsgBox Left (StrEx, InStr (StrEx, "") - 1)'O resultado é: "Leonardo"End Sub |
