Como somar os valores das caixas de texto?
Supondo que você tenha três caixas de texto com as quais deseja somar os valores em Textbox1 e Textbox2, e calcular o resultado automaticamente em Textbox3, como mostrado a seguir. Como você poderia lidar com esse trabalho no Excel?
Resuma os valores das caixas de texto com o código VBA
Resuma os valores das caixas de texto com o código VBA
Para somar os valores de duas caixas de texto e obter o resultado na terceira caixa de texto, o código VBA a seguir pode ajudá-lo.
1. Primeiro, você deve inserir três caixas de texto, clicar Developer > inserção > Caixa de texto (controle ActiveX)e, em seguida, desenhe uma caixa de texto e faça duas cópias, veja a captura de tela:
2. Depois de inserir as caixas de texto, clique com o botão direito na guia da planilha que contém as caixas de texto que deseja usar e clique em Ver código do menu de contexto para abrir o Microsoft Visual Basic para Aplicações janela e, em seguida, copie e cole o seguinte código VBA no módulo em branco:
Código VBA: some os valores das caixas de texto:
Private Sub Sum_Click()
TextBox3.Text = Val(TextBox2.Text) + Val(TextBox1.Text)
End Sub
3. Em seguida, digite os valores em Textbox1 e Textbox2 e pressione F5 chave ou Execute botão para executar o código, o resultado calculado é exibido no Textbox3 imediatamente, veja a captura de tela:
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!