SOMA EM TEXTBOX

FAZER SOMA EM UM TEXTBOX COM USO DE VBA...

Para tal, vamos criar um UserForm com 2 TextBox e 1 Label...

Agora o código será da seguinte fórmula

1° vamos criar 2 variável uma para cada valor...

na prática:

Dim valor_1 As double 

Dim valor_2 As double 

2° Vamos verificar se o TextBox1 é igual a vazio se for então vamos atribuir "0" como valor para a variável "valor_1", caso não seja vamos atribuir a variável "valor_1" o mesmo valor que conter na TextBox1...

na prática:

If Me.TextBox1.Text = "" then

valor_1 = 0

Else

valor_1 = Me.TextBox1.Text

End if

3° Copiar e colar o código acima e substituir pelo objeto TextBox2 e pela variável "valor_2"...

na prática:

If Me.TextBox2.Text = "" then

valor_2 = 0

Else

valor_2 = Me.TextBox2.Text

End if

4° Agora é só dizer ao código para somar o valor das 2 variáveis e atribuir ao Label1...

na prática:

Me.Label1.Caption = valor_1 + Valor_2

Pronto agora é só chamar esse código dentro dos 2 objetos TextBox1 e 2... no evento AfterUpdate que será executado quando sair do objeto....

Dim valor_1 As double 

Dim valor_2 As double 

If Me.TextBox1.Text = "" then

valor_1 = 0

Else

valor_1 = Me.TextBox1.Text

End if

If Me.TextBox2.Text = "" then

valor_2 = 0

Else

valor_2 = Me.TextBox1.Text

End if

Me.Label1.Caption = valor_1 + Valor_2

Isso aí galera....

Agora ao executar o UserForm é só testar ....

Valeu abraços e até mais...