Saberexcel - o site das macros

Macros e procedimentos do Aplicativo Microsoft Excel VBA,
insere letras maiúsculas ao digitar na coluna(A) e também ao selecionar a coluna(B).
São dois exemplos de procedimentos Evento Worksheet_Change(Digitar) e Evento Worksheet_Selection_Change(Selecionar)

exemplo de planilha com os dois procedimentos
ao selecionar(coluna(D)) a macro irá percorrer todas as células usadas,
e preencherá com letras maiúsculas todos os ítens da coluna e o outro procedimento é digitar,
tornam maiusculas as letras ao digitar(Coluna(A)).

Espero que o exemplo possa ajudá-los.
Fiquem com Deus, E_Marcondes

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim vCelulas As Range
Dim vUltimaLinha As Long, i As Long

Set vCelulas = Application.Intersect(Target, Columns(4))

If vCelulas Is Nothing Then Exit Sub

vUltimaLinha = Saber1.Range("D" & Rows.Count).End(xlUp).Row
For i = 1 To vUltimaLinha
Saber1.Range("D" & i) = UCase$(Saber1.Range("D" & i))
Next i
[F3] = "EXECUTE A MACRO NOVAMENTE, INSERIR DADOS PARA O TESTE!"
End Sub

'Letras maiúsculas ao digitar na coluna(1) A
Private Sub Worksheet_Change(ByVal Target As Range)
Dim vCelulas As Range
Set vCelulas = Application.Intersect(Target, Columns(1))
If Not vCelulas Is Nothing Then
Target = UCase$(Target)
End If
End Sub

Aqui inserí uma macro para auxiliar no teste.
observe que esse código é bem interessante eu uso muito esse tipo de programação,
faço referenciando o nome da folha de código da folha de Planilha e não pela folha folha de planilha diretamente.
porque, se o usuário mudar o nome da folha de planilha não ocorrerá erro. Fiz uma imagem explicando na folha de planilha
e também esta no topo é so clicar na imagem.

Esse tipo de programação esta dispostos em nossos módulos
COMO FAZER - programação Microsoft Excel VBA - Saberexcel

Sub copiar_teste()
Saber2.[C1].Copy Saber1.[D2:D100]
End Sub




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

Saberexcel o site das macros
Essa macro do Aplicativo Microsoft Excel VBA, converte as letras minusculas de determinada coluna em letras maiúsculas.

Sub Converte_texto_selecionado_para_maiusculo()
Dim vTexto As String
Dim vCelulas As Range
Dim vContaCelulas As Integer
Range("A1").Select
On Error Resume Next

Set vCelulas = ActiveSheet.Range(ActiveWindow.Selection.Address)

For vContaCelulas = 1 To vCelulas.End(xlDown).Row

If Not vCelulas.Cells(vContaCelulas).HasFormula Then
vTexto = vCelulas.Cells(vContaCelulas).Value
vCelulas.Cells(vContaCelulas).Value = UCase(vTexto)
End If

vCelulas.Offset(1, 0).Select
Next vContaCelulas

[D3].Value = "LETRAS MINÚSCULAS CONVERTIDAS PARA MAIÚSCULAS "
[d4].Value = "a linha de código no inicio Range(A1) select - determina a coluna "
End Sub


Aprenda tudo sobre o Aplicativo Microsoft Excel VBA - com Saberexcel




Baixe o exemplo de planiha contendo a macro acima



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

Saberexcel - o site das macros
Esse procedimento do Aplicativo Microsoft Excel VBA, insere letras maiúsculas ao digitar em em determinado intervalo de células na folha de planilha.
neste caso foi sensibilizado pelo Evento Change o intervalo de células ($A$1:$J$10) podendo ser expandido para adequação em algum projeto.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next ' no caso de precisar deletar alguma coisa
If Not Intersect(Target, Range("A1:J10")) Is Nothing Then Target = UCase(Target)
End Sub



Aprenda tudo sobre o Aplicativo Microsoft Excel VBA - SaberExcel

Baixe o exemplo de planilha contendo o procedimento acima



Publicidade:
Compre livros na maior livraria do Brasil com garantia, segurança e preços baixos

Saberexcel - o site das macros
Essas macros do Aplicativo Microsoft Excel VBA, converte todas as letras de todo objeto Workbook(Livro) em letras maiúsculas e ou minúsculas, também contém um objeto checkbox da barra de ferramentas Formulário, que muda o caption ao ser selecionada, executando a macro.



Sub Converte_para_Maiusculas()

Dim ws As Object
Dim LCell As Range

'vamos tirar a atualização de tela para aumentar a performance
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

'Movimento por cada folha na sua planilha
For Each ws In ActiveWorkbook.Sheets
On Error Resume Next
ws.Activate

'Converta todas as constantes e valores de texto ao caso 'próprio'
For Each LCell In Cells.SpecialCells(xlConstants, xlTextValues)
LCell.Formula = UCase(LCell.Formula)
Next
Next ws

'voltando as configurações da tela
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

End Sub

Sub Converte_para_Minusculas()

Dim ws As Object
Dim LCell As Range

'vamos tirar a atualização de tela para aumentar a performance
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

'Movimento por cada folha na sua planilha
For Each ws In ActiveWorkbook.Sheets
On Error Resume Next
ws.Activate

'Converta todas as constantes e valores de texto ao caso 'próprio'
For Each LCell In Cells.SpecialCells(xlConstants, xlTextValues)
LCell.Formula = LCase(LCell.Formula)
Next
Next ws

'voltando as configurações da tela
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

End Sub

Sub cbclick()
If ActiveSheet.CheckBoxes("xc").Value = 1 Then
ActiveSheet.Shapes("xc").Select
ActiveSheet.Shapes("xc").Select
Selection.Characters.Text = "Maiuscula em todo workbook"
Range("I6").Select
Converte_para_Minusculas
Else
ActiveSheet.Shapes("xc").Select
ActiveSheet.Shapes("xc").Select
Selection.Characters.Text = "Minusculas em todo workbook"
Range("I6").Select
Converte_para_Maiusculas
End If
End Sub

Sub Voltar()
ActiveSheet.Previous.Select
End Sub


Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com Saberexcel

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 Aplicativo Microsoft Excel VBA com SaberExcel