Como fazer cálculos automáticos nos campos de um formulário usando VBA

Escrito por jaime avelar | Traduzido por josé fabián
  • Compartilhar
  • Tweetar
  • Compartilhar
  • Pin
  • E-mail
Como fazer cálculos automáticos nos campos de um formulário usando VBA
Crie uma interface de usuário com o Excel (Hemera Technologies/AbleStock.com/Getty Images)

Fazer com que os campos de um formulário realizem cálculos automáticos no seu programa do Visual Basic for Applications (VBA) pode eliminar passos adicionais para o usuário. O VBA pode ser usado em todos os aplicativos do Microsoft Office, como por exemplo o Excel. Você pode criar campos em um formulário usando controles de caixa de texto no Excel e fazer cálculos automáticos usando os eventos "Change" deles. Esse evento é lançado quando o valor em um campo é alterado pelo usuário.

Nível de dificuldade:
Moderadamente fácil

Outras pessoas estão lendo

O que você precisa?

  • Microsoft Office Excel

Lista completaMinimizar

Instruções

  1. 1

    Inicie o Microsoft Office Excel, clique no guia "Developer" (Desenvolvedor) e depois em "Visual Basic" para abrir a janela do editor de VBA. Clique no menu "Insert" (Inserir) e clique em "User Form" (Formulário do usuário) para criar um formulário. Selecione o elemento "TextBox" (Caixa de texto) na caixa de ferramentas e clique no formulário para adicionar um novo controle de caixa de texto. Adicione mais duas caixas de texto da mesma forma.

  2. 2

    Clique com o botão direito na primeira caixa de texto e depois, com o esquerdo, em "View Code" (Ver código) para abrir o editor do VBA. Pressione "Ctrl" e "T" para selecionar o código padrão e pressione a tecla "Delete" (Deletar). Copie e cole o seguinte código para fazer um cálculo toda vez que seja digitado um novo número no primeiro campo do formulário, mostrando o resultado no terceiro campo: Dim result As Double Private Sub TextBox1_Change() Dim txtBoxTwo As Variant Me.TextBox2.SetFocus txtBoxTwo = Me.TextBox2.Text result = txtBoxTwo + Me.TextBox1.Text Me.TextBox3.SetFocus Me.TextBox3 = result End Sub.

  3. 3

    Copie e cole o seguinte código, que será executado e fará um cálculo, mostrando o resultado no terceiro campo do formulário toda vez que a segunda caixa de texto for alterada: Private Sub TextBox2_Change() Dim txtBoxOne As Variant Me.TextBox1.SetFocus txtBoxOne = Me.TextBox1.Text result = txtBoxOne + Me.TextBox2.Text Me.TextBox3.SetFocus Me.TextBox3 = result End Sub.

  4. 4

    Dê um duplo clique em "UserForm1" (Formulário de usuário 1) na janela "Object Explorer" (Explorador de objetos) e pressione "F5" para executar o programa. Digite um número no primeiro e segundo campos do formulário para fazer os cálculos e mostrar o resultado automaticamente no terceiro.

Não perca

Filtro:
  • Geral
  • Artigos
  • Slides
  • Vídeos
Mostrar:
  • Mais relevantes
  • Mais lidos
  • Mais recentes

Nenhum artigo disponível

Nenhum slide disponível

Nenhum vídeo disponível