Excel planilha vba maiusculas eventos change e selectionchange

Ter, 01 de Fevereiro de 2011 20:01 Expedito Marcondes
Imprimir

Saberexcel - o site de quem precisa aprender Macros Microsoft Excel VBA

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



  Baixe o exemplo de planilha contendo a macro e os procedimentos acima
Excel planilha vba maiusculas eventos change e selectionchange (149.95 KB)

Tags:
Última atualização em Sáb, 13 de Agosto de 2011 19:33