VBA SubString

Excel VBA SubString

Excel VBA SubString é um tipo de função muito útil em VBA que é usado para cortar e cortar um dado em forma de string. Mas em funções de planilha, temos três funções de substring que são função esquerda-direita e função média, enquanto em VBA temos função esquerda-direita média e função dividida como funções de substring. Como o próprio nome sugere, a função de substring em VBA divide uma string em múltiplas SubStrings. Também como explicado acima em VBA existem múltiplas funções de subtringir em VBA. Neste artigo, vamos aprender como usar estas funções de substring separadamente com exemplos. Antes de continuarmos com os exemplos, vamos aprender a sintaxe dessas funções e que argumento essas funções tomam como entrada.

Sintaxe do Excel VBA SubString

Seguindo a sintaxe diferente:

Sintaxe da Função Substring Left:

Cadeia de texto é a string que fornecemos como entrada enquanto o comprimento é o número de caracteres que queremos da string de entrada.

Exemplo: Se tivermos uma string como ANAND e quisermos AN como substring o código será

Esquerda (“ANAND”,2)

Sintaxe da Sub string direita:

Cadeia de texto é a string que fornecemos como entrada enquanto o comprimento é o número de caracteres que queremos da string de entrada.

Exemplo: Se tivermos uma string como ANAND e usarmos o mesmo código que acima, o resultado será

Direito (“ANAND”,2)

O que dá ND como resultado.

Sintaxe da Função Média da Substring em VBA:

Cadeia de texto é a string que fornecemos como entrada e Posição Inicial é a posição onde queremos que o caractere comece para extração enquanto o comprimento é o número de caracteres que queremos da string de entrada.

Exemplo: Temos uma string como COMPUTER e queremos PUT como substring então o código será o seguinte:

MID (“COMPUTER”,4,3)

Sintaxe da função Split SubString:

• Expressão como String: Este é um argumento obrigatório na função SPLIT. É basicamente a string de entrada que fornecemos.
• Delimitador: Este é um argumento opcional. É o delimitador específico que divide a string mas por padrão, o espaço é considerado como delimitador padrão.
• Limit: Este também é um argumento opcional. Limite significa o número máximo de partes que queremos fazer de uma string. Mas novamente se não fornecemos um limite para a função VBA trata-a como padrão -1. Isto conclui que a string será quebrada cada vez que houver um delimitador na string.
• Comparar: Este argumento final é também um argumento opcional. Comparar é um método de comparação que é um dos dois abaixo:

1. Ou é 0 o que significa que SPLIT realizará uma comparação binária o que significa que cada caractere deve corresponder a si mesmo.
2. Or pode ser 1 o que significa que a função SPLIT fará uma comparação textual.

Função de divisão é a mais complicada e mais útil entre todas as funções de substrato acima. Todas as outras três funções de substring usam uma string como entrada enquanto a função Split usa um array de string.

Por exemplo se eu escrever Split(“I AM A GOOD BOY”) irá dividir a string como separada (cada palavra como separada). Agora vamos usar estas funções de substrings em exemplos.

Como usar as funções de SubString em VBA?

Nós aprenderemos como usar a função SubString no Excel usando o Código VBA.

Exemplo #1

Função de Substring Esquerda em VBA. Vamos usar a primeira função de substring em VBA. Para isso, siga os passos abaixo:

Passo 1: Vá até a aba do desenvolvedor e clique em Visual Basic para abrir o Editor VB.

Passo 2: Insira um novo módulo dentro do Visual Basic Editor (VBE). Clique em Insert tab > selecione Module.

Step 3: Declare uma sub-função para começar a escrever o código.

Código:

Sub Sample()End Sub

Passo 4: Declare duas cordas, uma para tirar o input do usuário e outra para armazenar o valor do resultado.

Código:

Sub Sample()Dim A, B As StringEnd Sub

Passo 5: Pegue a entrada do usuário para a string de entrada usando a função caixa de entrada.

Código:

Sub Sample()Dim A, B As StringA = InputBox("Enter a String", "Single String")End Sub

Passo 6: Na variável B armazenar o valor da função da esquerda até o terceiro lugar.

Código:

Sub Sample()Dim A, B As StringA = InputBox("Enter a String", "Single String")B = Left(A, 3)End Sub

Passo 7: Use a função Msgbox para exibir o resultado final.

Código:

Sub Sample()Dim A, B As StringA = InputBox("Enter a String", "Single String")B = Left(A, 3)MsgBox BEnd Sub

Passo 8: Agora execute o código acima pressionando a tecla F5. e escreva String de entrada como ANAND.

Passo 9: Quando pressionamos OK vemos o resultado da função de substring à esquerda.

ANA são os três caracteres da esquerda da string.

Exemplo #2

Função de substring à direita em VBA. Para isso, siga os passos abaixo:

Passo 1: No mesmo módulo declare outra sub-função para começar a escrever o código para a função de substring direito.

Código:

Sub Rightsub()End Sub

Passo 2: Declare duas variáveis A e B como string.

Código:

Sub Rightsub()Dim A, B As StringEnd Sub

Passo 3: Pegue a entrada do usuário e armazene o valor na variável A.

Código:

Sub Rightsub()Dim A, B As StringA = InputBox("Enter a String", "Single String")End Sub

Passo 4: Use a função Direita na string para o terceiro lugar e armazene o valor na variável B.

Código:

Sub Rightsub()Dim A, B As StringA = InputBox("Enter a String", "Single String")B = Right(A, 3)End Sub

Passo 5: Use a função Msgbox para exibir o valor de B.

Código:

Sub Rightsub()Dim A, B As StringA = InputBox("Enter a String", "Single String")B = Right(A, 3)MsgBox BEnd Sub

Passo 6: Execute o código e digite a string de entrada como “MÃE”.

Step 7: Pressione OK para ver o resultado.

HER são os três caracteres da direita da string.

Exemplo #3

MID Substring Function in VBA. Para isso, siga os passos abaixo:

Passo 1: No mesmo módulo declare outra sub-função para começar a escrever o código da função Mid.

Código:

Sub MIDsub()End Sub

Passo 2: Declare duas variáveis A e B como String.

Código:

Sub MIDsub()Dim A, B As StringEnd Sub

Passo 3: Pegue a entrada do usuário e armazene o valor na Variável A.

Código:

Sub MIDsub()Dim A, B As StringA = InputBox("Enter a String", "Single String")End Sub

Passo 4: Use a função Mid com posição inicial como 4 e comprimento como 3 armazena o valor em B e mostra-o usando a função Msgbox.

Código:

Sub MIDsub()Dim A, B As StringA = InputBox("Enter a String", "Single String")B = Mid(A, 4, 3)MsgBox BEnd Sub

Passo 5: Execute o código acima e dê o COMPUTER como entrada.

Passo 6: Pressione OK para ver o resultado final.

O PUT do substring começa a partir da 4ª posição e extraímos com sucesso três caracteres.

Exemplo #4

Função Split Split SubString. Para isso, siga os passos abaixo:

Passo 1: No mesmo módulo declare uma sub-função para começar a escrever o código da sub-função.

Código:

Sub SplitSub()End Sub

Passo 2: Declare duas Variáveis A como string e B como String array e pegue a string de entrada do usuário e armazene-a na Variável A.

Código:

Sub SplitSub()Dim A As StringDim B() As StringA = InputBox("Enter a String", "Separate with Commas")End Sub

Passo 3: Use a função Split SubString e armazene o seu valor na Variável B.

Código:

Sub SplitSub()Dim A As StringDim B() As StringA = InputBox("Enter a String", "Separate with Commas")B = Split(A, ",")End Sub

Passo 4: Use Para loop para exibir cada SubString em uma única linha.

Código:

Sub SplitSub()Dim A As StringDim B() As StringA = InputBox("Enter a String", "Separate with Commas")B = Split(A, ",")For i = LBound(B) To UBound(B)strg = strg & vbNewLine & "String Number " & i & " - " & B(i)Next iMsgBox strgEnd Sub

Passo 5 Execute o código acima e dê I,AM,GOOD,BOY como entrada.

Passo 6: Pressione OK para ver o resultado.

Usamos “,” como delimitador no exemplo acima.

Conclusão

Funções de substrato de folha de trabalho VBA também tem funções de substrato. Elas são funções de centro esquerdo direito e funções de divisão. Basicamente, as funções de Substring dividem uma string ou uma matriz de string em múltiplas substrings. Se quisermos uma subestrutura a partir da esquerda da string usamos a função Esquerda ou Direita no caso contrário. Se quisermos um caractere médio de uma determinada string, usamos funções MID. Também se temos um array de strings usamos funções split.

Things to Remember

Existem poucas coisas que precisamos lembrar sobre funções Substring em VBA:

• É similar às funções de substring de planilhas.
• As funções Substring dividem uma determinada string em substrings.
• Se tivermos um array de strings usamos funções split.
• Apenas a string de entrada em função split é obrigatória enquanto as outras são opcionais.

Artigos recomendados

Este é um guia para a SubString VBA. Aqui nós discutimos como usar a função SubString no Excel VBA junto com exemplos práticos e o modelo Excel para download. Você também pode ver nossos outros artigos sugeridos –

1. VBA SendKeys
2. VBA On Error Goto
3. VBA Input
4. VBA LBound