Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Formatar TextBox
-
- Manda bem
- Mensagens: 112
- Registrado em: Sex Mar 05, 2010 8:52 pm
Formatar TextBox
Oi, estou iniciando no fórum para aprender e ajudar.
Como faço para formatar um "TextBox" VBA
assim:
Eu digito o valor 2300000 sem ponto e sem virgura no form "TextBox1"
gostaria de aprender formatar e que as casas decimais apareçam na medida que entra numeros é possível
e ficará 23.000,00
para depois salvar na planilha
Abraço
Como faço para formatar um "TextBox" VBA
assim:
Eu digito o valor 2300000 sem ponto e sem virgura no form "TextBox1"
gostaria de aprender formatar e que as casas decimais apareçam na medida que entra numeros é possível
e ficará 23.000,00
para depois salvar na planilha
Abraço
Re: Formatar TextBox
Silva,
Já tentou a função Format?
Coloque no evento exit do seu textbox a seguinte linha (assumindo que seu textbox se chame TextBox1):
Deve resolver. Abraços
Já tentou a função Format?
Coloque no evento exit do seu textbox a seguinte linha (assumindo que seu textbox se chame TextBox1):
Código: Selecionar todos
Me.TextBox1.Text = Format(Me.TextBox1.Text, "#,##0.00")
-
- Manda bem
- Mensagens: 112
- Registrado em: Sex Mar 05, 2010 8:52 pm
Re: Formatar TextBox
Boa noite
Tentei assim
Private Sub txtQuantidade_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Me.txtQuantidade.Text = Format(Me.txtQuantidade.Text, "#,##0.00")
End Sub
Quando estou digitando os valores 2300 não aparece o ponto e nem a virgura!
então estou procurando uma maneira de Formato de Digitalização na textbox "Valor Numérico"
Abraço
Ronaldo
Tentei assim
Private Sub txtQuantidade_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Me.txtQuantidade.Text = Format(Me.txtQuantidade.Text, "#,##0.00")
End Sub
Quando estou digitando os valores 2300 não aparece o ponto e nem a virgura!
então estou procurando uma maneira de Formato de Digitalização na textbox "Valor Numérico"
Abraço
Ronaldo
Re: Formatar TextBox
Silva,
Quer permitir somente a digitação de números? Se sim, tente este código:
Abraços
Quer permitir somente a digitação de números? Se sim, tente este código:
Código: Selecionar todos
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case vbKey0 To vbKey9
Case vbKeyBack, vbKeyClear, vbKeyDelete
Case vbKeyLeft, vbKeyRight, vbKeyUp, vbKeyDown, vbKeyTab
Case Else
KeyAscii = 0
Beep
End Select
End Sub
-
- Manda bem
- Mensagens: 112
- Registrado em: Sex Mar 05, 2010 8:52 pm
Re: Formatar TextBox
Acrescentando, esse código deve mapear o evento KeyPress do seu TextBox. Ajuste o nome da função para o nome do respectivo e vai funcionar.
Abraços
Abraços
-
- Acabou de chegar
- Mensagens: 1
- Registrado em: Seg Mar 23, 2020 10:50 am
Re: Formatar TextBox
Amigo, bom dia.
Depois de muitas tentativas descobri esta formatação: "0,00#.#0"; utilizada na mesma linha de comando que vc usou e para mim deu certo.
Espero que funcione.
Abs.
Depois de muitas tentativas descobri esta formatação: "0,00#.#0"; utilizada na mesma linha de comando que vc usou e para mim deu certo.
Espero que funcione.
Abs.