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

PROMOÇÃO DIDÁTICOS SABEREXCEL



Adquira já o Acesso Imediato
à Area de Membros

Compra Grantida --- Entrega Imediata

Aprenda Excel VBA com Simplicidade de 
códigos e Eficácia, Escrevendo Menos e
Fazendo Mais.

'-------------------------------------'
Entrega Imediata:
+  500 Video Aulas MS Excel VBA
+  35.000 Planilhas Excel e VBA
+  Coleção 25.000 Macros MS Excel VBA
+  141 Planilhas Instruções Loops
+  341 Planilhas WorksheetFunctions(VBA)
+    04 Módulos Como Fazer Excel VBA
+  Curso Completo MS Excel VBA
+  Planilhas Inteligentes


Pesquisa Google SaberExcel

Publicidade Google

<script type="text/javascript"><!--

google_ad_client = "ca-pub-2317234650173689";

/* retangulo 336 x 280 */

google_ad_slot = "0315083363";

google_ad_width = 336;

google_ad_height = 280;

//-->

</script>

<script type="text/javascript"

src="http://pagead2.googlesyndication.com/pagead/show_ads.js">

</script>

Publicidade

RSFirewallProtected


Google Associados

Depoimentos

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