Função certa no VBA Excel
A função direita é a mesma que na função de planilha e no VBA, o uso dessa função é que ela nos fornece a substring de uma determinada string, mas a pesquisa é feita da direita para a esquerda da string, este é um tipo de função de string no VBA usado com o método de função application.worksheet.
RIGHT Função no Excel VBA que é usada para extrair caracteres do lado direito dos valores de texto fornecidos. No Excel, temos muitas funções de texto para lidar com dados baseados em texto. Algumas das funções úteis são LEN, LEFT, RIGHT, MID função para extrair caracteres dos valores de texto. O exemplo comum de usar essas funções é extrair o nome e o sobrenome separadamente do nome completo.
A fórmula CERTA também está lá na planilha. No VBA, precisamos contar com a classe de função de planilha para acessar a função VBA RIGHT, em vez de termos também a função RIGHT integrada no VBA.
Agora, dê uma olhada na sintaxe abaixo da fórmula VBA RIGHT.
- String: Este é o nosso valor e a partir desse valor, estamos tentando extrair os caracteres do lado direito da string.
- Comprimento: da String fornecida, quantos caracteres precisamos. Se precisarmos de quatro caracteres do lado direito, podemos fornecer o argumento como 4.
Por exemplo, se a string for “Mobile Phone” e se quisermos extrair apenas a palavra “Phone”, podemos fornecer o argumento como o abaixo.
DIREITO (“Telefone Móvel”, 5)
A razão pela qual mencionei 5 é que a palavra “Telefone” contém 5 letras. Na próxima seção do artigo, veremos como podemos usá-lo no VBA.
Exemplos de função correta do Excel VBA
A seguir estão os exemplos de Right Function VBA Excel.
Você pode baixar este modelo de Excel de função direita do VBA aqui - Modelo de Excel de função direita do VBA
Exemplo 1
Vou mostrar um exemplo simples para iniciar o processo. Suponha que você tenha a string “New York” e se quiser extrair 3 caracteres da direita siga as etapas abaixo para escrever o código.
Etapa 1: Declare a variável como String VBA.
Código:
Sub Right_Example1 () Dim k As String End Sub
Passo 2: Agora para esta variável, iremos atribuir o valor aplicando a função RIGHT.
Código:
Sub Right_Example1 () Dim k As String k = Right (End Sub
Etapa 3: O primeiro argumento é String e nossa string para este exemplo é “New York”.
Código:
Sub Right_Example1 () Dim k As String k = Right ("New York", End Sub 
Etapa 4: a seguir, quantos caracteres precisamos da string fornecida. Neste exemplo, precisamos de 3 caracteres.
Código:
Sub Right_Example1 () Dim k As String k = Right ("New York", 3) End Sub 
Etapa 5: temos 2 argumentos para lidar, então pronto. Agora atribua o valor desta variável na caixa de mensagem em VBA.
Código:
Sub Right_Example1 () Dim k As String k = Right ("Nova York", 3) MsgBox k End Sub 
Execute o código usando a tecla F5 ou manualmente e veja o resultado em uma caixa de mensagem.
Na palavra “New York” do lado direito, 3 caracteres são “ork”.
Agora vou alterar o comprimento de 3 para 4 para obter o valor total.
Código:
Sub Right_Example1 () Dim k As String k = Right ("Nova York", 4) MsgBox k End Sub 
Execute este código manualmente ou usando a tecla F5 então, obteremos “York”.
Exemplo # 2
Agora dê uma olhada em mais um exemplo, desta vez considere o valor da string como “Michael Clarke”.
Se você fornecer o comprimento como 6, obteremos “Clarke” como resultado.
Código:
Sub Right_Example1 () Dim k As String k = Right ("Michael Clarke", 6) MsgBox k End Sub 
Execute este código usando a tecla F5 ou manualmente para ver o resultado.
Função Dynamic Right no Excel VBA
Se você observar nossos dois exemplos anteriores, fornecemos os números dos argumentos de comprimento manualmente. Mas este não é o processo certo para fazer o trabalho.
Em cada uma das strings, os caracteres do lado direito são diferentes em cada caso. Não podemos nos referir ao comprimento dos caracteres manualmente para cada valor de maneira diferente. É aqui que a outra função da string, “Instr”, desempenha um papel vital.
A função Instr retorna a posição do caractere fornecido no valor da string fornecida. Por exemplo, Instr (1, ”Bangalore”, ”a”) retorna a posição da letra “a” na string “Bangalore” do primeiro (1) caractere.
Neste caso, o resultado é 2 porque a partir da posição do primeiro caractere da letra “a” é a 2ª posição.
Se eu mudar a posição inicial de 1 para 3, ele retornará 5.
Instr (3, ”Bangalore”, ”a”) .
The reason why it returns 5 because I mentioned the starting position to look for the letter “a” only from the 3rd letter. So the position of the second appeared “a” is 5.
So, to find the space character of the of each string we can use this. Once we find the space character position we need to minus that from a total length of the string by using LEN.
For example in the string “New York” the total number of characters is 8 including space, and the position of the space character is 4th. So 8-4 = 4 right will extract 4 characters from the right.
Now, look at the below code for your reference.
Code:
Sub Right_Example3() Dim k As String Dim L As String Dim S As String L = Len("Michael Clarke") S = InStr(1, "Michael Clarke", " ") k = Right("Michael Clarke", L - S) MsgBox k End Sub 
In the above code variable “L” will return 14 and variable “S” will return 8.
In the VBA right formula, I have applied L – S i.e. 14-8 = 6. So from right side 6 characters i.e. “Clarke”.
Loops with Right Function in Excel VBA
When we need to apply the VBA RIGHT function with many cells we need to include this inside the loops. For example, look at the below image.
We cannot apply many lines of the code to extract a string from the right side. So we need to include loops. The below code will do it for the above data.
Code:
Sub Right_Example4() Dim k As String Dim L As String Dim S As String Dim a As Integer For a = 2 To 5 L = Len(Cells(a, 1).Value) S = InStr(1, Cells(a, 1).Value, " ") Cells(a, 2).Value = Right(Cells(a, 1), L - S) Next a End Sub
The result of this code is as follows.
