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 Eliminando_textos_planilha()
Worksheets("Plan1").Select
On Error GoTo fim
With Columns
.SpecialCells(xlTextValues, xlConstants).ClearContents
End With
fim:
Exit Sub
End Sub

Aprenda Microsoft Excel VBA (SaberExcel)

Saberexcel - o site das macros
Essa macro do Aplicativo Microsoft Excel VBA, verifica inconsistência de digitação do total de caracteres em determinada celula, se form maior ao número permitido, retorna uma mensagem de erro, mostrando o total correto que contém o valor digitado.

Sub verifica_quantidade_de_caracteres()
If Len(ActiveCell.Value) >= 9 Then
MsgBox "Este numero [ " & ActiveCell.Value _
& " ] contem mais de nove caracteres , contém [ " _
& Len(ActiveCell) & " ] caracteres", vbCritical, "Saberexcel - o site das macros"
'ActiveCell.Value = "" 'limpa os valores da célula ativa
'ActiveCell.Activate 'retorna o foco para digitação ativando a célula
End If
End Sub

Aprenda tudo sobre Aplicativo Microsoft Excel VBA com SaberExcel

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

SaberExcel - o site das macros

Sobrescrever a última letra da palavra.
Essa macro do Aplicativo Microsoft Excel VBA, sobrescreve última letra de uma palavra em uma determinada célula, mas nesse caso fica sensibilizada a célula ativa.

Sub Sobrescrever_ultima_letra()
vBusca = Len(ActiveCell.Value)
ActiveCell.Characters(Start:=vBusca, Length:=1).Font.Superscript = True
End Sub

 Aplicativo Microsoft Excel VBA --(( SaberExcel ))--

Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções

Esse macro do Aplicativo MS Excel VBA(Visual Basic Application) - usando a Propriedade.Range 'WrapText',
retorna um determinado texto em célula na folha de planilha com quebra de linhas de acordo com o tamanho da célula.

Sub wrap_texto()
Worksheets("Plan1").Range("B7").Value = _
"Aprenda Microsoft Excel VBA com Produtos Didáticos Saberexcel."
Worksheets("Plan1").Range("B7").WrapText = True
End Sub

Sub consulta_wrapText()
ActiveSheet.Shapes.Range(Array("iWrap")).Select
Selection.Verb Verb:=xlPrimary
Range("H22").Select
End Sub

Sub limpar()
[b7].ClearContents
End Sub



Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.