Notifications
Clear all

Form com Double

3 Posts
3 Usuários
0 Reactions
1,083 Visualizações
 jplj
(@jplj)
Posts: 1
New Member
Topic starter
 

Bom dia,
Preciso de uma ajuda, sou novo no mundo do VBA e estou fazendo um formulário.
tenho 3 campos em TxtBox que devem ser preenchidas com numeros decimais.
Ex:
Campo1 = 2,3923
Campo2 = 0,2039
Campo3 = 1,0932

Como faço para formatar desse modo? e também preciso que ele deixe colocar o 0 antes.
mais uma duvida.
Como faço para um 4º campo ser a soma desses 3 primeiros campos?
Campo4 = Campo1 + Campo2 + Campo3

Muito obrigado desde já!

 
Postado : 29/04/2015 8:50 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Temos muita coisa na base de dados!
http://www.google.com.br/cse?cx=partner ... gsc.page=1

Att

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

 
Postado : 05/05/2015 8:48 am
(@jeanhard)
Posts: 6
Active Member
 

OLá meu amigo.
Segue abaixo uma forma bem simples.

Private Sub TextBox1_afterupdate()

  ' caso queira que retorne o formato só com duas casas decimais use o
  'formato Format(TextBox1, "#,##0.00;(#,##0.00)")

TextBox1 = Format(TextBox1, "#,##0.0000;(#,##0.0000)")

End Sub
Private Sub TextBox2_AfterUpdate()
TextBox2 = Format(TextBox2, "#,##0.0000;(#,##0.0000)")
End Sub
Private Sub TextBox4_AfterUpdate()
TextBox4 = Format(TextBox4, "#,##0.0000;(#,##0.0000)")
End Sub
Private Sub CommandButton1_Click()
'botão para Calcular

Dim x As Double
Dim y As Double
Dim z As Double
 
x = TextBox1.Text
y = TextBox2.Text
z = TextBox3.Text
TextBox4.Text = x + y + z
TextBox4 = Format(TextBox4, "#,##0.0000;(#,##0.0000)")
End Sub
 
Postado : 16/05/2015 11:41 am