Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Formatar caixa de t...
 
Notifications
Clear all

[Resolvido] Formatar caixa de texto

 
2024 - VBA & Macros
Post Recente por topscore 4 anos atrás
3 Posts
2 Usuários
0 Reactions
1,189 Visualizações
RSS
 topscore
(@topscore)
Posts: 41
Eminent Member
Topic starter
 

Olá pessoal, seguinte:

No meu formulário FInicial, tenho a Textbox1, onde vou colocar valores monetários.

Fica assim: 3460. Eu quero, talvez num after update, que fique assim: 3.460,00.

Os valores variam (Ex: 143,00    10.258,00  etc)

 

Depois, ao invés de digitar no textbox, também vou puxar o valor da célula (textbox1.value = Range("A1").value)

Também queria este formato (3.460,00), mas ele puxa 3460. Neste caso, um after update não deve funcionar, pois não quero mexer na textbox.

 

Alguém pode ajudar?

Desde já, obrigado.

 

 
Postado : 21/01/2021 6:12 pm
Mauro Coutinho
 Mauro Coutinho
(@coutinho)
Posts: 95
Estimable Member
 

@topscore tente assim, não sei como vai trazer da planilha pro formuario, então coloquei em um botão, é só fazer os ajustes na sua rotina.

Private Sub TextBox1_AfterUpdate()
If IsNumeric(TextBox1) Then
TextBox1 = Format(TextBox1, "#,##0.00")
End If
End Sub

Private Sub CommandButton1_Click()

TextBox1.Value = Range("A1").Value
TextBox1 = Format(TextBox1, "#,##0.00")

End Sub
 
Postado : 21/01/2021 7:53 pm
 topscore
(@topscore)
Posts: 41
Eminent Member
Topic starter
 

@coutinho

 

Deu certo! (Pelo botão, não pelo afterupdate).

 

Obrigado!

 
Postado : 07/03/2021 7:05 am
Forum Jump:
  Tópico Anterior
Próximo Tópico