| Descricao: |
 SaberExcel - o site das macros
Essa macro abaixo do Aplicativo Microsoft Excel VBA retorna o nome do usuário da seguinte forma.
VOU DESCREVER A O QUE ACONTECERÁ COM A EXECUÇÃO DA MACRO ABAIXO.
veja a imagem do resultado da execução da macro na planilha (baixe o exemplo no final da página)
usaremos o meu nome: Expedito Marcondes
Célula(F3) = [Nome tipo Expedito]
Célula(F4) = [O total de letras que contém o Nome Expedito]
Célula(F5] = [Retorna o nome sem o primeiro poderia ter mais Sobrenomes : Marcondes]
Célula(F6] = [O total de letras que contém o segundo nome Marcondes]
Célula[C7] = [Retorna o meu nome em LETRA MAIUSCULA "EXPEDITO MARCONDES"]
Célula[C8 ]= [Retorna o meu nome em todas a letras minúsculas. "expedito marcondes"]
Célula[C9 ]= [Retorna o meu nome usando propriedade ProperCase(nomeProprio)"Expedito Marcondes"]
Célula[C10]=[Retorna o meu nome ao contrario "sednocraM otidepxE" (espelho) ]
Célula[C11] =[Retorna o meu nome separado por uma virgula "Marcondes, Expedito" ]
é isso ai... boa sorte..
'........................'
Sub Nome_Usuario()
Dim vNomeUsuario As String
Dim vPrimeiroNome As String
Dim vUltimoNome As String
Dim strLength As Integer
Dim spaceLoc As Integer
'.................'
'Entre com o primeiro e o segundo nome
'.................'
On Error Resume Next
limpar
vNomeUsuario = InputBox("Entre com o primeiro e segundo nome", "Nome", "Excel VBA Estudos®")
spaceLoc = InStr(1, vNomeUsuario, " ")
vPrimeiroNome = Left(vNomeUsuario, spaceLoc - 1)
'.................'
'localiza os dados na planilha a ser inserido os dados
'.................'
Range("C3").Value = vPrimeiroNome
strLength = Len(vPrimeiroNome)
Range("C4").Value = strLength 'extrai o primeiro nome
strLength = Len(vNomeUsuario)
vUltimoNome = Mid(vNomeUsuario, spaceLoc + 1, strLength - spaceLoc)
Range("C5").Value = vUltimoNome
strLength = Len(vUltimoNome)
Range("C6").Value = strLength
Range("C7").Value = UCase(vNomeUsuario)
Range("C8").Value = LCase(vNomeUsuario)
Range("C9").Value = StrConv(vNomeUsuario, vbProperCase)
Range("C10").Value = StrReverse(vNomeUsuario)
Range("C11").Value = vUltimoNome & ", " & vPrimeiroNome
descriminar
End Sub
Sub limpar()
Range("c3:D11").ClearContents
End Sub
Sub Atribuir()
Dim X As String
X = InputBox("Digite o nome da cidade", "Entrada", "Santo André")
ActiveCell.Value = X
End Sub
Aprenda tudo sobre Aplicativo Microsoft Excel VBA com SaberExcel
|