Views

Histats

Vitrine

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
 
Implemente Dashboards & Scorecards nas suas aplicações MS Excel, MS Access, MS Powerpoint:
 
?ui=2&view=att&th=126bcf41746829d7&attid=0.1&disp=attd&realattid=ii_126bcf41746829d7&zw  ?ui=2&view=att&th=126bcf46cd1064c1&attid=0.1&disp=attd&realattid=ii_126bcf46cd1064c1&zw  ?ui=2&view=att&th=126bcf4bcd67f0c7&attid=0.1&disp=attd&realattid=ii_126bcf4bcd67f0c7&zw  ?ui=2&view=att&th=126bcf533fac9860&attid=0.1&disp=attd&realattid=ii_126bcf533fac9860&zw
 
?ui=2&view=att&th=126bcf5b564427c1&attid=0.1&disp=attd&realattid=ii_126bcf5b564427c1&zw  ?ui=2&view=att&th=126bcf63f7ee8f2f&attid=0.1&disp=attd&realattid=ii_126bcf63f7ee8f2f&zw  ?ui=2&view=att&th=126bcf68bd3c3711&attid=0.1&disp=attd&realattid=ii_126bcf68bd3c3711&zw  ?ui=2&view=att&th=126bcf7689e2c657&attid=0.1&disp=attd&realattid=ii_126bcf7689e2c657&zw

 

LinkWithinBrazilVBAExcelSpecialist

Related Posts Plugin for WordPress, Blogger...