×
Loading ...

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

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.

Instruções

Crie uma interface de usuário com o Excel (Hemera Technologies/AbleStock.com/Getty Images)
  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.

    Loading...
  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. 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. 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.

Loading...

O que você precisa

  • Microsoft Office Excel

Referências

Loading ...
Loading ...