Crie acrônimos a partir de strings de texto
A função a seguir avalia acrônimos de strings, ou seja, concatena a primeira letra de cada palavra em uma string. Por exemplo, “as árvores são verdes” torna-se “TAG”.
A rotina percorre todos os caracteres de uma string e, se for um espaço, leva o próximo caractere da string. Antes de avaliar a string, ele remove todos os espaços à direita e duplicados.
Função Acroymn (Original_String As String) As String Dim Trimmed_String As String Dim Length As Integer Dim Pos As Integer Trimmed_String = Application.WorksheetFunction.Trim (Original_String) 'calcular o comprimento da string Length = Len (Trimmed_String) Acroymn = UCase (Left (Trimmed_String, 1)) For Pos = 2 To Length - 1 If (Mid (Trimmed_String, Pos, 1) = "") Then Acroymn = Acroymn & UCase (Mid (Trimmed_String, Pos + 1, 1)) End If Next Pos Função Final
Então, por exemplo:
Acroymn ("British Broadcasting Corporation") dá BBC
Acroymn ("Funky") dá F
Acroymn (“”) dá NULL
Para baixar o arquivo .XLSM do artigo, clique aqui
