Como criar um formulário para pesquisa e impressão por meio do VBA no Microsoft Excel

Anonim

Neste artigo, aprenderemos como criar um formulário de usuário para pesquisa e impressão por meio do VBA no Microsoft Excel.

Vamos entender com um exercício simples: -

Temos dados na Planilha 1 em que a coluna A contém a Id do agente, a coluna B contém o nome, o endereço da coluna C, a coluna D da cidade, a coluna E da região, a coluna F do país e a coluna G contém o CEP.

Na próxima folha (folha 2), queremos recuperar os detalhes de acordo com a imagem abaixo citada: -

Se pesquisarmos a Id do agente, todos os detalhes devem aparecer no intervalo A11: D11. E, em seguida, imprima-o.

Siga as etapas abaixo para pesquisar e imprimir os detalhes: -

  • Pressione a tecla F11 para abrir o Editor do Visual Basic
  • Insira o módulo para escrever o código para o botão de pesquisa
  • Escreva o código abaixo mencionado: -
Sub Searchdata () Dim Lastrow As Long Dim count As Integer Lastrow = Sheets ("Data"). Cells (Rows.count, 1) .End (xlUp) .Row For X = 2 To Lastrow If Sheets ("Data"). Células (X, 1) = Folha3.Range ("B3") Então Folha3.Range ("A11") = Folhas ("Dados"). Células (X, 1) Folha3.Range ("B11") = Folhas (" Dados "). Células (X, 2) Folha3.Range (" C11 ") = Folhas (" Dados "). Células (X, 3) &" "e Folhas (" dados "). Células (X, 4) _ & "" & Folhas ("dados"). Células (X, 5) & "" & Folhas ("Dados"). Células (X, 6) Folha3.Range ("D11") = Folhas ("Dados"). Células (X, 7) End If Next X End Sub 

Explicação do código: - Primeiro, definiremos as variáveis ​​e, em seguida, definiremos qual linha será a última linha e, em seguida, definiremos o que e onde o Id do Agente será pesquisado e, em seguida, como o intervalo será atualizado para o ID do Agente pesquisado.

Agora, vamos atribuir essa macro ao botão Pesquisar.

  • Clique com o botão direito no botão
  • Clique em Atribuir Macro
  • Aqui, nosso assunto macro é Searchdata, clique em searchdata e então clique em OK

Execute a macro: -

  • Para executar a macro, clique no botão Pesquisar
  • Se o Id do agente estiver lá, os detalhes serão atualizados, caso contrário, os detalhes não aparecerão

Para imprimir, atribua a macro mencionada abaixo: -

  • Insira o botão da guia Desenvolvedor> Inserir> Botão (controle de formulário)
  • Escreva a macro no mesmo modelo em que escrevemos a macro para Searchdata, com o nome do assunto de Printout
 Sub PrintOut () Sheet3.Range ("A1: D12"). PrintPreview Sheet3.Range ("A1: D12"). PrintOut End Sub 
  • Atribua a macro ao botão como atribuímos a searchdata

Desta forma, podemos pesquisar os dados e depois imprimir os detalhes pesquisados ​​através do VBA no Microsoft Excel.

Se você gostou de nossos blogs, compartilhe com seus amigos no Facebook. E você também pode nos seguir no Twitter e no Facebook.

Gostaríamos muito de ouvir de você, diga-nos como podemos melhorar, complementar ou inovar nosso trabalho e torná-lo melhor para você. Escreva-nos no site de e-mail