Podemos usar fórmulas se quisermos extrair um certo número de símbolos. Mas e se quisermos extrair apenas a segunda palavra de uma frase ou de um intervalo de palavras em uma célula? Para fazer isso, podemos criar uma função Excel personalizada com VBA. Esta é uma das funcionalidades mais importantes do VBA, pois permite criar suas próprias funções que não existem no MS Excel. Vamos criar duas funções: findword() e findwordrev(). Aqui está o código vba para isso:
Função FindWord (fonte como string , posição como inteiro ) como string
em caso de erro Retomar próximo
FindWord = Split (WorksheetFunction.Trim (fonte), " " ) (posição - 1 )
em caso de erro GoTo 0
End Function
Função FindWordRev (Source As String , Position As Integer ) As String
Dim Arr() As String
Arr = VBA.Split (WorksheetFunction.Trim (Source), " " )
Em caso de erro, retomar próximo
FindWordRev = Arr (UBound (Arr) - Posição + 1 )
Em caso de erro, função final GoTo 0
Muito bom, criamos duas funções customizadas para o MS Excel. Agora, tente usá-los no Excel. A função =FindWordRev(A1,1) pega a última palavra da célula A1. A função =FindWord(A1,3) pega a terceira palavra da célula A1, etc.
Parabéns! Como você ainda está lendo isso, você está realmente interessado em aprender VBA. Como você já viu, a linguagem de programação VBA é extremamente útil e pode nos poupar muito tempo. Espero que você tenha achado essas informações úteis e as use para se tornar um mestre em MS Excel, VBA e software de computador em geral.
Clique aqui e nos contate via What's App para avaliarmos seus projetos
Nenhum comentário:
Postar um comentário