Notifications
Clear all

SOMAR TEXTBOX

24 Posts
7 Usuários
0 Reactions
5,809 Visualizações
(@eltonc09)
Posts: 17
Active Member
Topic starter
 

Boa Tarde pessoal,

tenho 6 textbox denominadas: valor01,valor02,valor03,valor04,valor05,valor06.

A sétima textbox foi chamada de valor total, e gostaria que fizesse a soma das 6 textbox, porém não estou conseguindo.

Alguém pode me dar a solução.

 
Postado : 10/01/2018 3:32 pm
fcarlosc
(@fcarlosc)
Posts: 453
Honorable Member
 

Boa-tarde

Dica rápida...!

Faça o teste efetuando esse comano abaixo conforme a planilha anexada.
Me.TextBox7.Text = soma - TextBox1.Text

é claro que tem diversas formas, depende do seu projeto e as vezes tem alguns contratempos.
por isso que sempre é bom anexar a planilha com dados fictícios .

 
Postado : 17/01/2018 2:47 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Supondo que seus texts, sejam TextBox1 a 6
Pode Experimentar:

Sub Soma_0()
Dim x As Integer, Total As Double
For x = 1 To 6
    If Me.Controls("TextBox" & x).Text <> "" Then
        Total = Total + Me.Controls("TextBox" & x).Value
    End If
Next
Me.TextBox7.Text = Total
End Sub

Ou ainda

Sub soma_1()
If TextBox1.Value = "" Then
    tb1 = 0
Else
    tb1 = CDbl(TextBox1.Value)
End If
If TextBox2.Value = "" Then
    tb2 = 0
Else
    tb2 = CDbl(TextBox2.Value)
End If
If TextBox3.Value = "" Then
    tb3 = 0
Else
    tb3 = CDbl(TextBox3.Value)
End If
If TextBox4.Value = "" Then
    tb4 = 0
Else
    tb4 = CDbl(TextBox4.Value)
End If
If TextBox5.Value = "" Then
    tb5 = 0
Else
    tb5 = CDbl(TextBox5.Value)
End If
If TextBox6.Value = "" Then
    tb6 = 0
Else
    tb6 = CDbl(TextBox6.Value)
End If

TextBox7.Value = (tb1 + tb2 + tb3 + tb4 + tb5 + tb6)

End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 17/01/2018 3:24 pm
(@eltonc09)
Posts: 17
Active Member
Topic starter
 

Creio que com o anexo que coloquei ficará mais fácil entender o que quero.

Tenho o código para somar a textbox de 1 a 6, porém ele comete erros. Exemplo: se coloco valor na textbox1, e depois coloco um valor na textbox9 por exemplo, e depois coloco um valor na textbox2 .....
Minha textbox7, ao invés de somar só a textbox 1 e 2, soma a textbox 9 também.

Preciso que elas somem casas depois da vírgula também e se possível com formatação de moeda R$ (mas aparecer a moeda não é essencial).

Podem me ajudar? Conseguiram entender?

 
Postado : 17/01/2018 5:17 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Não é erro já que a rotina que lhe foi disponibilizada inicialmente, foi para somar todas as textbox do formulario; excluindo apenas a Textbox7, atendendo assim a demanda inicial. Adaptações devem ser efetuadas de acordo com o modelo/projeto utilizado; quem tem ou desenvolve esse projeto/modelo deve providenciar essa adaptação.

Paralelamente dispus duas outras rotinas que poderão atende-lo; pelo menos testou os modelos do post anterior?

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 17/01/2018 5:53 pm
(@eltonc09)
Posts: 17
Active Member
Topic starter
 

Eu tentei Reinaldo, mas não consegui. Não está fazendo a soma automática com os códigos que me passou.

 
Postado : 17/01/2018 8:20 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Elton, juntei os tópicos por entender que se tratam da mesma questão.
Neste tópico anterior, já foi mostrado uma solução com exemplo e você colocou como resolvido, então, é só utilizar a mesma sistematica.
Uma outra coisa, por favor, evite de abrir tópicos referentes ao mesmo assunto, deixe em um só, assim mantemos o forum mais limpo.

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 17/01/2018 9:10 pm
(@eltonc09)
Posts: 17
Active Member
Topic starter
 

Ok, porém quando comecei a utilizar vi que a resposta não atendeu a minha necessidade.

Pois ela soma todas as textbox que existirem na minha userform com valor.

Queria a solução para montar a userform que está em anexo. Se só tivesse 7 textbox daria certo, porém não é o caso.

Pode me ajudar?

 
Postado : 17/01/2018 9:20 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Veja no modelo anexo se atende

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 17/01/2018 11:59 pm
(@eltonc09)
Posts: 17
Active Member
Topic starter
 

Perfeito Reinaldo!

Agora só vou formatar para aparecer o símbolo de moeda R$ ... e duas casas decimais.

Obrigado.

 
Postado : 18/01/2018 6:53 am
Página 2 / 2