SOMAR TEXTBOX  [Resolvido]

Visual Basic for Aplication e macros no Excel.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

Re: SOMAR TEXTBOX

Mensagempor Eltonc09 » Qui Jan 11, 2018 11:45 pm

xlarruda é isso mesmo, porém tem um pequeno detalhe...

Quando digito um número com vírgula, a soma não é feita no final. Ex: Textbox1=700,50

Porém percebi se uso ponto ela funciona, se ao invés de colocar 700,50 ... eu usar 700.50 faz a soma considerando o decimal.

Mas quero que funcione com vírgula, como faço?
Eltonc09
Membro
Membro
 
Mensagens: 17
Registrado em: Ter Jan 02, 2018 11:18 am
Has thanked: 9 times
Have thanks: 0 time

{ SO_SELECT }

Re: SOMAR TEXTBOX

Mensagempor klarc28 » Sex Jan 12, 2018 12:28 am

Código: Selecionar todos
Sub somar()

On Error Resume Next
Dim ct As Object
Dim soma As Double
soma = 0
For Each ct In Me.Controls
If TypeName(ct) = "TextBox" Then
If ct.Name <> "TextBox7" Then
If ct.Text <> "" Then

soma = soma + CDbl(ct.Value)
End If
End If
End If
Next ct
Me.TextBox7.Text = soma


End Sub
Private Sub TextBox1_Change()
Call somar
End Sub

Private Sub TextBox2_Change()
Call somar


End Sub

Private Sub TextBox3_Change()
Call somar

End Sub

Private Sub TextBox4_Change()
Call somar

End Sub

Private Sub TextBox5_Change()
Call somar


End Sub

Private Sub TextBox6_Change()
Call somar


End Sub



Private Sub UserForm_Initialize()
Me.TextBox7.Text = 0
End Sub
Você não está autorizado a ver ou baixar esse anexo.
Quando quiser agradecer, clique no joinha. Marque como resolvido na parte que resolveu sua dúvida.

For this post the author klarc28 thanked:
Eltonc09 (Sex Jan 12, 2018 3:33 pm)
klarc28
Membro
Membro
 
Mensagens: 477
Registrado em: Sáb Dez 09, 2017 12:33 am
Has thanked: 6 times
Have thanks: 166 times

Re: SOMAR TEXTBOX

Mensagempor Eltonc09 » Sex Jan 12, 2018 3:52 pm

Obrigado pela ajuda, está funcionando.

Aproveitando a ajuda e o conhecimento de vocês que é muito maior que o meu.

Klarc, consigo colocar formatação nessas textbox?

Exemplo textbox1= 5.350,75 (separando com ponto)

ou até mesmo colocando a moeda na frente quando digito o número. Textbox1 = R$ 5.350,75.

Pode me ajudar?
Eltonc09
Membro
Membro
 
Mensagens: 17
Registrado em: Ter Jan 02, 2018 11:18 am
Has thanked: 9 times
Have thanks: 0 time

Re: SOMAR TEXTBOX

Mensagempor klarc28 » Sex Jan 12, 2018 4:06 pm

Quando quiser agradecer, clique no joinha. Marque como resolvido na parte que resolveu sua dúvida.

For this post the author klarc28 thanked:
Eltonc09 (Sex Jan 12, 2018 4:28 pm)
klarc28
Membro
Membro
 
Mensagens: 477
Registrado em: Sáb Dez 09, 2017 12:33 am
Has thanked: 6 times
Have thanks: 166 times

SOMAR TEXTBOX

Mensagempor Eltonc09 » Qua Jan 17, 2018 4:23 pm

Boa tarde pessoal,

já li alguns tópicos sobre o assunto aqui porém ainda não consegui resolver o problema.

Quero somar automaticamente 6 Textbox e aparecer o resulta na sétima Textbox. O Klarc28 me disponibilizou
uma planilha que faz isso e está em anexo.

Porém no programa que estou montando existem outras textbox que contém valores, e que não quero que sejam somadas,
porém estão sendo somadas também.

Portanto, quero que a textbox7, some só as 6 textbox específicas e não todas as textbox que meu projeto tem.

Podem me ajudar?

Desde já agradeço.
Você não está autorizado a ver ou baixar esse anexo.
Eltonc09
Membro
Membro
 
Mensagens: 17
Registrado em: Ter Jan 02, 2018 11:18 am
Has thanked: 9 times
Have thanks: 0 time

Re: SOMAR TEXTBOX

Mensagempor fcarlosc » Qua Jan 17, 2018 4:47 pm

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 .
Avatar do usuário
fcarlosc
Membro
Membro
 
Mensagens: 378
Registrado em: Qui Jan 28, 2016 4:23 pm
Localização: São Paulo
Has thanked: 66 times
Have thanks: 74 times

Re: SOMAR TEXTBOX

Mensagempor Reinaldo » Qua Jan 17, 2018 5:24 pm

Supondo que seus texts, sejam TextBox1 a 6
Pode Experimentar:
Código: Selecionar todos
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
Código: Selecionar todos
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
Reinaldo
Gostou da resposta? Clique no ícone "Positivo" da mensagem!(ao lado de citar)

For this post the author Reinaldo thanked:
Eltonc09 (Qua Jan 17, 2018 8:29 pm)
Avatar do usuário
Reinaldo
Expert
Expert
 
Mensagens: 4046
Registrado em: Sáb Dez 19, 2009 9:59 am
Localização: Garça - SP / SCS - SP
Has thanked: 175 times
Have thanks: 1836 times

Re: SOMAR TEXTBOX

Mensagempor Eltonc09 » Qua Jan 17, 2018 7:17 pm

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?
Você não está autorizado a ver ou baixar esse anexo.
Eltonc09
Membro
Membro
 
Mensagens: 17
Registrado em: Ter Jan 02, 2018 11:18 am
Has thanked: 9 times
Have thanks: 0 time

Re: SOMAR TEXTBOX

Mensagempor Reinaldo » Qua Jan 17, 2018 7:53 pm

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?
Reinaldo
Gostou da resposta? Clique no ícone "Positivo" da mensagem!(ao lado de citar)

For this post the author Reinaldo thanked:
Eltonc09 (Qua Jan 17, 2018 10:18 pm)
Avatar do usuário
Reinaldo
Expert
Expert
 
Mensagens: 4046
Registrado em: Sáb Dez 19, 2009 9:59 am
Localização: Garça - SP / SCS - SP
Has thanked: 175 times
Have thanks: 1836 times

Re: SOMAR TEXTBOX

Mensagempor Eltonc09 » Qua Jan 17, 2018 10:20 pm

Eu tentei Reinaldo, mas não consegui. Não está fazendo a soma automática com os códigos que me passou.
Eltonc09
Membro
Membro
 
Mensagens: 17
Registrado em: Ter Jan 02, 2018 11:18 am
Has thanked: 9 times
Have thanks: 0 time

AnteriorPróximo

Voltar para VBA & Macros

Quem está online

Usuários navegando neste fórum: Nenhum usuário registrado e 2 visitantes