Formatando textbox em userform para valor
Enviado: 11 Mai 2016 às 11:07
por alanisfcsm
Bom dia.
1. Como formatar as textbox desse userform em valor? tipo 99.000,00
2. Seria possível também recalcular ao mudar de textbox, ENTER ou TAB descartando o botão recalcular?
Re: Formatando textbox em userform para valor
Enviado: 11 Mai 2016 às 17:00
por ivancs
Olá, alanisfcsm
Não sei muito sobre VBA, mas a sua questão 1 acho que posso ajudar, mas não sei se entendi muito bem.
Suponha que você tenha uma variável do tipo Single e você deseja colocar o valor dessa variável em uma TextBox1, formatada para usar duas casa decimais, e com separador de milhares, um exemplo,
Dim numero As Single
numero = 8.654,38432
então, você usa a função Format, veja:
numero = Format(numero, "#,##0.00")
TextBox1.Value = numero
Aí, na sua TextBox1 lá no UserForm o valor que vai aparecer lá será 8.654,38 formatado para duas casas decimais e com separador de milhares! Será que era essa a sua dúvida?
Faça um teste aí, se der certo!
Bem, se não é isso, ou se estou passando informações erradas, alguém me corrija, também estou aprendendo. Mas, espero ter ajudado.
Grande abraço,
ivancs
Re: Formatando textbox em userform para valor
Enviado: 13 Mai 2016 às 16:47
por carreteiro
Tente usar este código:
Dim valor1 As Double
Dim valor2 As Double
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
valor1 = 0
valor2 = 0
If Me.TextBox1 = Empty Then
Else
valor1 = Me.TextBox1.Value
End If
If Me.TextBox2 = Empty Then
Else
valor2 = Me.TextBox2.Value
End If
TextBox3 = valor1 + valor2
TextBox1 = Format(TextBox1, "#,##0.00")
TextBox2 = Format(TextBox2, "#,##0.00")
TextBox3 = Format(TextBox3, "#,##0.00")
End Sub
Todas as vezes que vc sair do TextBox2 o resultado aparece na TextBox3
Vê se é o que está precisando.