Home Excel - Dicas Microsoft Excel VBA Excel VBA - Texto vba texto principais funcoes texto retorna maiuscula minuscula outras

vba texto principais funcoes texto retorna maiuscula minuscula outras

E-mail Imprimir PDF

Saberexcel - o site das macros


Elimina textos e mantêm valores numéricos

Essa macro do Aplicativo Microsoft Excel VBA, elimina textos da folha de planilha mantendo as datas e demais números (valores numéricos)

Sub Principais_funcoes_texto()
Dim titulo As String
Dim id As Variant

titulo = "Saberexcel - o Site das Macros"
id = vbInformation

Dim StrNome As String
Application.ScreenUpdating = True
[C3:E10].ClearContents
Range("C3").Select
StrNome = InputBox("Digite o seu nome", , "Saberexcel - O site das Macros")
 
MsgBox ("A primeira letra do seu nome é: [ ") & Left(StrNome, 1) & " ]", id, titulo
ActiveCell.Value = Left(StrNome, 1): ActiveCell.Offset(0, 2).Value = "A primeira Letra do seu nome"

ActiveCell.Offset(1, 0).Select
MsgBox ("A Ultima letra do seu nome é:[ ") & Right(StrNome, 1) & " ]", id, titulo
ActiveCell.Value = Right(StrNome, 1): ActiveCell.Offset(0, 2).Value = "A última letra do seu nome"

ActiveCell.Offset(1, 0).Select
MsgBox ("A quinta letra do seu nome é:[ ") & Mid(StrNome, 5, 1) & " ]", id, titulo
ActiveCell.Value = Mid(StrNome, 5, 1): ActiveCell.Offset(0, 2).Value = "A quinta letra do seu nome"

ActiveCell.Offset(1, 0).Select
MsgBox ("A Sétima letra do seu nome é:[ ") & Mid(StrNome, 7, 1) & " ]", id, titulo
ActiveCell.Value = Mid(StrNome, 7, 1): ActiveCell.Offset(0, 2).Value = "A Sétima letra do seu nome"

ActiveCell.Offset(1, 0).Select
MsgBox ("Seu nome contém [ " & Len(StrNome)) & " ] caracteres", id, titulo
ActiveCell.Value = Len(StrNome): ActiveCell.Offset(0, 2).Value = "Numeros de caracteres do seu nome"

ActiveCell.Offset(1, 0).Select
MsgBox ("Seu nome em letras Maiúsculas [ ") & UCase(StrNome) & " ]", id, titulo
ActiveCell.Value = UCase(StrNome): ActiveCell.Offset(0, 2).Value = "Seu nome em letras maiúsculas"

ActiveCell.Offset(1, 0).Select
MsgBox ("Seu nome em Letras Próprias [ ") & StrConv(StrNome, vbProperCase) & " ]", id, titulo '
ActiveCell.Value = StrConv(StrNome, vbProperCase): ActiveCell.Offset(0, 2).Value = "Seu nome em Letras Próprias"

ActiveCell.Offset(1, 0).Select
MsgBox ("Seu nome em Letras Minúsculas [ ") & LCase(StrNome) & " ]", id, titulo
ActiveCell.Value = LCase(StrNome): ActiveCell.Offset(0, 2).Value = "Seu nome em Letras Minúsculas"
Application.ScreenUpdating = True
End Sub

Sub retorna_cinco_letras_da_Esquerda()
Dim icont As String
strTexto = "Saberexcel - site das macros"
vContador = 5
sbx = "Retorna cinco letras da palavra [Saberexcel Declarações]: " & "[ " & Left(strTexto, vContador) & " ]"
MsgBox sbx
End Sub
Sub retorna_sete_letras_da_direita()
Dim icont As String
strTexto = "Saberexcel Declarações"
vContador = 7
sbx = "Retorna sete letras da direita [Saberexcel Declarações]: " & "[ " & Right(strTexto, vContador) & " ]"
MsgBox sbx
End Sub

Sub retorna_oito_letras_a_partir_da_setima()
Dim icont As String
strTexto = "Saberexcel Declarações"
vContador = 7
icont = 8
sbx = "Retorna oito letras a partir da sétima [Saberexcel Declarações]: " & "[ " & Mid(strTexto, vContador, icont) & " ]"
MsgBox sbx
End Sub

Sub limpar_teste()
[C3:E10].ClearContents
End Sub

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

Aprenda Microsoft Excel VBA (SaberExcel)


  Baixe o exemplo de planilha com a macro acima
vba texto principais funcoes texto retorna maiuscula minuscula outras (23.94 kB 2010-11-28 10:00:28)

Última atualização em Sáb, 13 de Outubro de 2012 06:51  

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