Blog

Postado em em 16 de janeiro de 2021

Evento DblClick no VBA – Atualizando a ListBox

Evento DblClick no VBA (Clique Duplo)

Nesta aula vamos te ensinar como utilizar o evento DblClick no VBA dentro do listbox para carregar as informações de transações!

Caso prefira esse conteúdo no formato de vídeo-aula, assista ao vídeo abaixo!

Para receber a planilha que usamos na aula no seu e-mail, preencha:

Essa é a décima sexta aula da nossa série de Controle de Estoque Completo no VBA, onde estaremos aprendendo a lidar com os eventos no formulário de controle de estoque, o principal.

Nela vamos falar sobre eventos no VBA. Mais especificamente, vou te ensinar a utilizar o evento DblClick VBA em nosso formulário.

Vamos:

  • Complementar o código responsável por atualizar os estoques com fórmulas do Excel e VBA associadas.
  • Vamos aprender a carregar as informações de uma transação, que pode ser excluída, se necessário.

Como usar o evento DblClick VBA para carregar informações das transações?

O que queremos fazer é atualizar a caixa de listagem de transações à direita do nosso formulário de estoques, usando código em VBA associados para atingir esse objetivo. Para isso, teremos que:

  • Abrir o VBA, com Alt(+Fn)+F11
  • Procurar pelo FormularioControleEstoque
  • Clicar com botão direito > Exibir código
  • Inserir o código abaixo como uma nova Sub dentro do formulário
Private Sub caixa_listagem_transacoes_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

caixa_produto.Value = caixa_listagem_transacoes.List(caixa_listagem_transacoes.ListIndex, 1)
caixa_quantidade.Value = caixa_listagem_transacoes.List(caixa_listagem_transacoes.ListIndex, 2)
caixa_tipo.Value = caixa_listagem_transacoes.List(caixa_listagem_transacoes.ListIndex, 3)
caixa_data.Value = CDate(caixa_listagem_transacoes.List(caixa_listagem_transacoes.ListIndex, 5))
caixa_id.Value = caixa_listagem_transacoes.List(caixa_listagem_transacoes.ListIndex, 0)

End Sub

Explicação do código acima:

Vamos, ao dar um duplo clique em algum item da caixa de listagem de transações, carregar:

– na caixa_id o que estiver escrito na linha selecionada, na primeira coluna (índice 0 é relativo à primeira coluna);

– na caixa_produto o que estiver escrito na linha selecionada, na segunda coluna (índice 1);

– na caixa_quantidade o que estiver escrito na linha selecionada, na terceira coluna (índice 2);

– na caixa_tipo o que estiver escrito na linha selecionada, na quarta coluna (índice 3).

– na caixa_data o que estiver escrito na linha selecionada, que deverá ser convertido pela função CDate porque por padrão temos um número, na sexta coluna (índice 5).

E termina a nossa sub.

OBS1: Lembrando que o comando “caixa_listagem_transacoes.ListIndex” é o responsável por nos dar a linha que está selecionada na caixa de listagem de transações. Seja qualquer linha selecionada (pelo duplo clique ou evento DblClick VBA), ele vai nos retornar seu número.

OBS2: Os números relativos as colunas da nossa caixa de listagem de produtos são defasados de uma unidade porque a contagem começa do 0. Ou seja, o número 0 corresponde à 1ª coluna, e assim sucessivamente. Se atente para esse fato.

Conclusão

No post de hoje vimos uma aplicação do evento DblClick, que é um evento que dispara toda vez que um determinado objeto for clicado duas vezes. Assim, pudemos carregar as informações de uma transação, que pode ser excluída, se necessário.

Curtiu a aula sobre eventos no VBA? Fique ligado no nosso canal do Youtube para mais conteúdo de Excel e VBA e para o final da nossa série de controle de estoque! Um abraço e até a próxima!

Hashtag Treinamentos

Para acessar outras publicações de VBA, clique aqui!


Quer aprender mais sobre VBA com um Minicurso Gratuito?


Entre os dias 1 e 4 de março vai rolar o Intensivão de Power BI!

Se você quiser participar, é só preencher seu e-mail abaixo. O evento é 100% Online e Gratuito!