Home Excel - Dicas Microsoft Excel VBA Excel VBA - Maiusculas Minuscula Propria Excel planilha vba maiuscula minuscula propria contrario numero letras

Excel planilha vba maiuscula minuscula propria contrario numero letras

E-mail Imprimir PDF

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 planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel



  Baixe o exemplo de planilha com as macros acima
Excel planilha vba maiuscula minuscula propria contrario numero letras (42.37 kB)


Última atualização em Qua, 03 de Outubro de 2012 09:36  

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

Pesquisa Google SaberExcel

Publicidade Google

Publicidade

Rastreamento Correios

Digite o número do SEDEX conforme o exemplo:
Correios do Brasil

Assinatura SaberExcel

Google Associados

Depoimentos

Visitantes SaberExcel

Excel VBA Estudos®
mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHoje4775
mod_vvisit_counterOntem5154
mod_vvisit_counterEsta Semana24976
mod_vvisit_counterSemana passada30982
mod_vvisit_counterEsse mês43164
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10465993
Aprenda MS Excel VBA

Adicione Saberexcel Favoritos

 
 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,


   Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA