SaberExcel - Aprenda Excel VBA, Site sobre macros, funções, fórmulas e planilhas do Excel VBA planilhas prontas e apostilas para download

Saberexcel - o site das macros cursos

Esses procedimentos do Aplicativo Microsoft Excel VBA, usando o evento change insere valor na em determinada célula na folha de planilha ao evento click

Nosso amigo José Valter perguntou se existe um jeito de manipular eventos no VBA.
Ele quer que seja inserido um valor na  célula quando esta for clicada (apenas um clique)

A maneira padrão de fazer isso é com o evento SelectionChange.
Toda vez que a seleção é alterada na planilha, o evento é disparado.
O evento não apenas são desencadeadas quando uma célula é clicado, mas
também quando alguém pressiona uma tecla de controle de cursor que resulta em uma
célula diferente de ser selecionado.

Como exemplo, digamos que você queria célula B5 para conter o valor 10 sempre que a
célula for selecionada. Para implementar isso, você pode usar o seguinte:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("B5")) Is Nothing Then _
      Range("B5").Value = 10
End Sub

Este código é adicionado a um dos objetos de folha na área de Project Explorer do Editor do VBA.
Dê um duplo clique na planilha que você deseja que o manipulador de eventos para aplicar, em seguida,
adicionar a macro para a janela de código resultante.

Quando o evento SelectionChange é acionado, o alvo (o intervalo de células a ser selecionado) é passado
para o manipulador. A macro verifica se o intervalo de destino contém a célula B5, e se isso acontecer,
materiais o valor 10 na célula B5. Se você quer ter certeza de que a macro  apenas aja em
B5 só se (a única célula) for selecionada, você pode usar esta versão da macro:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = Range("B5").Address Then _
      Range("B5").Value = 10
End Sub




Aprenda tudo sobre o Aplicativo Microsoft Excel VBA, sozinho, praticando com os produtos didáticos Saberexcel

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