Se a sua necessidade for simples como esta, apenas usufrua da solução e copie!
Extraia o primeiro nome de um nome completo ou mesmo a segunda palavra de uma frase.
Function SegundoNome (s As String)
Dim OneChar As Long, TwoChar As Long
Dim count As Long
's = "Ana Cláudia"
Let OneChar = InStr (s, " ") + 1
Let TwoChar = InStr (OneChar, s, " ")
Let count = TwoChar - OneChar
Let TwoChar = Mid (s, OneChar, count)
End Function
Conheça também estes outros códigos:
Série de Livros nut Project
Série DONUT PROJECT 2021
Série DONUT PROJECT 2018
Série DONUT PROJECT 2015
Série DONUT PROJECT 2014
Clique aqui e nos contate via What's App para avaliarmos seus projetos
Envie seus comentários e sugestões e compartilhe este artigo!
brazilsalesforceeffectiveness@gmail.com


Nenhum comentário:
Postar um comentário