Como posso programar uma textbox para somar valores de várias textbox?

[Gustavo Chaves]

eu já tentei: textboxtotal.text = Cdbl(textbox1.text)+Cdbl(textbox2.text)+Cdbl(textbox3.text)+... mas n funcionou, e sim os resultados das textbox são em formato double por isso coloquei o Cdbl

já tentei tb criar variáveis, ex:  val1, val 2, val3 e botei val1 = Cdbl(textbox1.text)  e assim por diante, e tentei somar essas variáveis nessa textboxtotal mas n funcionou também! alguém tem alguma ideia?

[Alyson Ronnan Martins]

já tentou trocar textbox1.text para textbox1.value?

[Erik Wesley]

Eu fiz assim:

Dim Val1 As Double

Dim Val2 As Double

Dim Val3 As Double


Val1 = Textbox1.Value
Val2 = Textbox2.Value
Val3 = Textbox3.Value

Textbox4.Value = Val1 + Val2 + Val3

 

E mesmo com .TEXT funciono igual.

[Alyson Ronnan Martins]

Resolvido então?

[Gustavo Chaves]

é aqui n funciona 😧

[Alyson Ronnan Martins]

O seu valor tem virgula? Se sim tenta trocar por ponto e olha se funciona. 

[Alyson Ronnan Martins]

Consegui da seguinte maneira:

Dim A As Double

Dim B As Double

Dim C As Double

Dim D As Double

If IsNumeric(TextBox1.Value) Then

    A = CDbl(TextBox1.Value)

    Else

    A = 0

End If

If IsNumeric(TextBox2.Value) Then

    B = CDbl(TextBox2.Value)

    Else

    B = 0

End If

If IsNumeric(TextBox3.Value) Then

    C = CDbl(TextBox3.Value)

    Else

    C = 0

End If

If IsNumeric(TextBox4.Value) Then

    D = CDbl(TextBox4.Value)

    Else

    D = 0

End If

 

TextBox5.Value = A + B + C + D

 

[Erik Wesley]

Você pode compartilhar sua planilha, será muito mais fácil.