Contar o número de palavras em uma string
A função VBA a seguir conta o número de palavras em uma string pesquisando espaços dentro da string. Ele usa a função MID. Você pode realizar algo semelhante com as funções SEARCH ou FIND.
| 1234567891011121314151617 | Função Number_of_Words (Text_String As String) As Integer'Função conta o número de palavras em uma string'olhando para cada personagem e vendo se é um espaço ou nãoNumero_de_Words = 0Dim String_Length como inteiroDim Current_Character As IntegerString_Length = Len (Text_String)Para Current_Character = 1 para String_LengthIf (Mid (Text_String, Current_Character, 1)) = "" ThenNumber_of_Words = Number_of_Words + 1Fim sePróximo Current_CharacterFunção Final |
É importante notar alguns pontos:
• Este código deve ser inserido em um Módulo de pasta de trabalho - no painel VBA, clique em Inserir e depois em módulo
• A função pode ser chamada a partir de uma célula de pasta de trabalho do Excel com um texto explícito ou uma referência de célula como argumento:
A3 = Numero_de_Words (“Gato Cachorro Porco”)
A4 = Numero_de_Words (D1)
A função funciona percorrendo o comprimento de uma string e ver se o próximo caractere é um espaço e, se for, ela adiciona um ao número de espaços na string.
