Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Soma de TextBox e C...
 
Notifications
Clear all

Soma de TextBox e Casas Decimais

 
2024 - VBA & Macros
6 Posts
2 Usuários
0 Reactions
1,601 Visualizações
RSS
 JoilsonDO
(@joilsondo)
Posts: 47
Eminent Member
Topic starter
 

Bom dia Galera,
Estou precisando de uma ajuda quanto a soma de valores e casas decimais em TextBox

[img][/img]

1º Preciso que os valores aparecem com 2 casas após a vírgula (Exemplo: 25,33) ou se for caso com ponto e vírgula (Exemplo: 236.870,33)
2º Quando eu digitar no TextBox “Vlr.Apurado”..automaticamente preencheria “Vlr.Principal” e “ Valor Recolhido”.
3º Se “Vlr Compensado” for 0 então nada muda ou atualiza, agora se eu preencher alguma valor...o TextBox “Vlr.Principal” seria atualizado, neste caso seria (Vlr.Apurado menos Vlr Compensado) Exemplo: 25,33 – 1,80 = 23,53 e automaticamente também o valor recolhido seria atualizado para igual ao “Vlr.Principal”.

4º Se não tiver valores nos TextBoxes “multa” e “juros” então está tudo certo, pois o valor que será gravado na planilha será o valor de “Valor Recolhido” que é de R$ 23,53 já atualizado anteriormente. Agora se tiver valor de multa e juros então somaria se: Vlr.Principal + Multa + Juros = Valor Recolhido.

Só que não estou conseguindo lidar com as casas decimais, as somas do textboxes e também como fazer ir aparecendo automaticamente conforme digito os valores.

Se alguém puder ajudar, agradeço.

Obrigado.

 
Postado : 22/01/2014 8:02 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Veja se lhe auxilia:
viewtopic.php?f=10&t=6995&hilit=+%2Atextbox%2A
viewtopic.php?f=23&t=4111&hilit=%2Asoma%2A

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

 
Postado : 22/01/2014 8:37 am
 JoilsonDO
(@joilsondo)
Posts: 47
Eminent Member
Topic starter
 

Boa tarde Reinaldo,

Usei as dicas desta tópico que vc me mandou:

Private Sub Txtvalor1_AfterUpdate()
If txtvalor2 = "" Then txtvalor2 = 0
Me.txtTotal = CDec(txtvalor1.Value) + CDec(txtvalor2)
End Sub

Porém quando o valor é redondo, por exemplo: 125,33 - 0,33 = 125,00....ele aparece só assim 125 (sem a virgula e os 02 zeros após a virugla) e quando é quebrado do tipo R$ 124,70....ele só aparece R$ 124,7....ele esquece do último zero...veja na imagem abaixo:

[img][/img]

Será que tem como resolver esta questão...????

Do resto deu tudo certo, obrigado.

 
Postado : 22/01/2014 9:56 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Experimente assim:

,....
Me.txtTotal = format(CDec(txtvalor1.Value) + CDec(txtvalor2, "#,###.00")....

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

 
Postado : 22/01/2014 11:01 am
 JoilsonDO
(@joilsondo)
Posts: 47
Eminent Member
Topic starter
 

Agora deu certo Reinaldo, obrigado.

Usei no evento Change do Textbox que estava apresentando defeito

Veja:

Private Sub Vlr_Recolh_Change()
Vlr_Recolh.Value = Format(Vlr_Recolh, "#,###.00")
End Sub

Muito Obrigado pela ajuda!!

Abraços.

 
Postado : 22/01/2014 11:28 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Caso seja necessário reabrir o tópico, o autor poderá enviar uma MP para um dos moderadores solicitando o desbloqueio.

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

 
Postado : 22/01/2014 2:25 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico