VBA - Funções para lidar com Nomes

Tratar os nomes que encontramos em várias bases de dados no decorrer da nossa vida de desenvolvedores é muito bom quando já temos algumas coisas resolvidas.

Seguem algumas coisas para guardarem em suas bibliotecas...

SEPARANDO O PRIMEIRO NOME:

Function ReturnName(nFrase As Variant) As String
    ' Author:                     Date:               Contact:                 URL:
    ' André Bernardes             10/02/2010 12:31    bernardess@gmail.com     http://al-bernardes.sites.uol.com.br/
    ' Retorna o primeiro nome a partir de uma frase com o nome completo.
   
    Dim DetectedSpace As Integer
    Dim LenFrase As Integer
   
    Let DetectedSpace = InStr(1, nFrase, " ")
    Let LenFrase = Len(nFrase) - DetectedSpace + 1
    Let ReturnName = Trim(Left(nFrase, DetectedSpace))
End Function

 

SOMENTE O SOBRENOME:

Function ReturnSobreNome(nFrase As Variant) As String
    ' Author:                     Date:               Contact:                 URL:
    ' André Bernardes             09/02/2010 15:20    bernardess@gmail.com     http://al-bernardes.sites.uol.com.br/
    ' Retorna o primeiro nome a partir de uma frase com o nome completo.
   
    Dim DetectedSpace As Integer
    Dim LenFrase As Integer
   
    Let DetectedSpace = InStr(1, nFrase, " ")
    Let LenFrase = Len(nFrase) - DetectedSpace + 1
    Let ReturnSobreNome = Trim(Mid(nFrase, DetectedSpace, LenFrase))
End Function

 

CAPITALIZE: TORNANDO AS PRIMEIRAS LETRAS DOS NOMES COMO MAIÚSCULAS:

Function CaptalizeWords(pvarText As Variant) As Variant
    ' Author:                     Date:               Contact:                 URL:
    ' André Bernardes             11/02/2010 09:24    bernardess@gmail.com     http://al-bernardes.sites.uol.com.br/
    ' Retorna as primeiras letras de quaiquer palavras como maiúsculas.
   
    If IsNull(pvarText) Then
        CaptalizeWords = Null
    Else
        CaptalizeWords = StrConv(pvarText, vbProperCase)
    End If
End Function

 

 

Twitter:

@officespecialis
@brzexceldevelop
@brzaccessdevel

 

Veja também:
Blog Office VBA

Blog Excel

Blog Access  

 

Implemente Dashboards & Scorecards nas suas aplicações MS Excel, MS Access, MS Powerpoint: