Como somar valores de caixas de texto?

Suponha que você tenha três caixas de texto e deseja somar os valores da Caixa de Texto1 e Caixa de Texto2, calculando automaticamente o resultado na Caixa de Texto3, conforme mostrado na captura de tela a seguir. Como você poderia lidar com essa tarefa no Excel?

Somar valores de caixas de texto com código VBA

Somar valores de caixas de texto com código VBA

Para somar valores de duas caixas de texto e obter o resultado na terceira caixa de texto, o seguinte código VBA pode ajudá-lo.

1. Primeiro, você deve inserir três caixas de texto, clique em Desenvolvedor > Inserir > 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. Após inserir as caixas de texto, clique com o botão direito na aba da planilha que contém as caixas de texto que você deseja usar e clique em Visualizar Código no menu de contexto para abrir a janela Microsoft Visual Basic for Applications, e depois copie e cole o seguinte código VBA no módulo em branco:

Código VBA: Somar valores de caixas de texto:

Private Sub Sum_Click()
    TextBox3.Text = Val(TextBox2.Text) + Val(TextBox1.Text)
End Sub

3. Em seguida, digite os valores na Caixa de Texto1 e Caixa de Texto2, e pressione a tecla F5 ou o botão Executar para executar o código; o resultado calculado será exibido imediatamente na Caixa de Texto3, veja a captura de tela: