Detalhes de vba texto principais funcoes texto retorna maiuscula minuscula outras

Saberexcel - o site das macros
Macros do Aplicativo Microsoft Excel VBA, contém as principais função texto do vba, retorna mensagem de determinado nome digitado na caixa de entrada(inputbox) e também retorna valores em determinadas células na folha de planilha.

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


Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com SaberExcel




Baixe o exemplo de planilha das macros acima




Publicidade
Compre com segurança, garantia, ótimos preços, nas lojas SubMarino