Função VBA LEN

A função Len é uma função comum para planilhas e VBA, é uma função embutida para ambas as plataformas e a sintaxe para usar esta função também é semelhante, os argumentos que esta função leva em ambas as plataformas são semelhantes, que é uma string e o uso ou a saída para esta função é a mesma que retorna o comprimento de uma string.

A função VBA LEN retorna o “comprimento da string”, isto é, ela retorna quantos caracteres existem no valor fornecido. De todas as funções de string no VBA, “LEN” é a função menos utilizada. Eu vi a função “VBA LEN” usada como função de suporte para outras funções de string, como funções VBA MID e função VBA RIGHT.

Como você encontra o comprimento da string ou valor?

Por exemplo, se você a frase “Olá pessoal, bom dia !!!” e você, se quiser encontrar o número de caracteres nele, como encontrá-lo? Neste artigo, mostraremos a função “VBA LEN”.

Fórmula da função VBA LEN

A função LEN tem apenas uma sintaxe, ou seja, Expressão.

Uma expressão nada mais é do que o valor que estamos tentando testar.

Por exemplo, Len (“Bom”) retornará 4.

Exemplos

Abaixo estão os exemplos de VBA Length of String Function.

Exemplo 1

O comprimento de uma função VBA String é muito simples de usar. Por exemplo, observe o código VBA abaixo.

Código:

 Sub LEN_Example () Dim Total_Length As String Total_Length = Len ("Excel VBA") MsgBox Total_Length End Sub

No código acima, a variável é “Total_Length”.

Dim Total_Length As String

Para esta variável, atribuímos o valor por meio da função VBA LEN.

Total_Length = Len ("Excel VBA")

Para a função LEN, atribuímos o valor como “Excel VBA”.

Total_Length = Len ("Excel VBA")

A seguir, estamos mostrando o resultado na caixa de mensagem do VBA.

MsgBox Total_Length

Quando executo este código usando a tecla F5 ou manualmente, obteremos 9 como resultado, porque o espaço também é um caractere.

VBA LEN como função de suporte

Exemplo 1

A finalidade da função LEN utilizada principalmente com outras funções. Usei essa função com as funções RIGHT e Instr.

Por exemplo, observe os dados de amostra abaixo.

A partir dos dados acima, precisamos extrair Data separadamente e Observações Separadamente. Copie os dados acima para sua planilha do Excel e cole na Célula A1.

Para extrair esses elementos, precisamos usar a função LEN com outras funções de string. O código abaixo fará o trabalho para nós.

Código:

Sub LEN_Example1 () Dim OurValue As String Dim k As Long For k = 2 To 6 'Neste caso, meus dados começaram na segunda célula e terminam na 6ª. 'Com base em seus dados, altere os números OurValue = ActiveSheet.Cells (k, 1) .Value' Isso irá extrair os primeiros 10 caracteres, ou seja, parte da data ActiveSheet.Cells (k, 2) .Value = Left (Trim (OurValue), 10) 'Isto irá extrair a porção de comentários ActiveSheet.Cells (k, 3) .Value = Mid (Trim (OurValue), 11, Len (Trim (OurValue)) - 10) Next End Sub

Quando executarmos este código manualmente ou através da tecla F5, obteremos o resultado como o abaixo.

Exemplo # 2

Agora vou mostrar como usar o VBA Length da string como uma função de suporte para extrair o sobrenome do nome completo com a função RIGHT & Instr.

Para a demonstração, veja os dados abaixo.

Da lista acima, precisamos extrair o Sobrenome do nome completo. O código abaixo extrairá o sobrenome. LEN usado como uma função de suporte aqui.

Código:

 Sub LEN_Example2 () Dim FullName As String Dim k As Long For k = 2 a 8 FullName = ActiveSheet.Cells (k, 1) .Value 'Isto irá extrair o sobrenome ActiveSheet.Cells (k, 2) .Value = Right (FullName , Len (FullName) - InStr (1, FullName, "")) 'LEN encontra o número total de caracteres' Instr encontra o caractere de espaço 'LEN - Inst fornecerá o total de caracteres do Next End Sub direito