O simples sempre é belo. Resolve uma multidão de necessidades.
Se esta for a sua, apenas usufrua da solução e copie!
Extraia o primeiro nome de um nome completo ou mesmo a primeira palavra de uma frase.
Function PrimeiroNome (s As String)
Dim nPos As Long
's = "Ana Cláudia"
' Prints Ana
Let nPos = InStr(s, " ") - 1
Let PrimeiroNome = Left(s, nPos)
End Function
Conheça também estes outros códigos:
Série de Livros nut Project
Série DONUT PROJECT 2015
Clique aqui e nos contate via What's App para avaliarmos seus projetos


Nenhum comentário:
Postar um comentário