Máscara de Entrada - Formato de Moeda

2024 - VBA & Macros

Post Recente por bilokas 11 anos atrás

3 Posts

2 Usuários

0 Reactions

739 Visualizações

RSS

bilokas

(@bilokas)

Posts: 168

Estimable Member

Topic starter

Olá queridos amigos do fórum, preciso de uma ajudinha quanto a máscara abaixo:

Private Sub txtValorMensal_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If IsNumeric(Me.txtValorMensal) = True Then
     Me.txtValorMensal = Replace(Me.txtValorMensal, ",", "")
     Me.txtValorMensal = Format(Me.txtValorMensal / 100, "R$ #,##0.00")     
    End If
 
    If KeyAscii = vbKeyReturn Or KeyAscii = vbKeyBack Then Exit Sub
    If KeyAscii < vbKey0 Or KeyAscii > vbKey9 Then
    KeyAscii = 0
    ElseIf KeyAscii <> vbKeyDecimal Then
    End If
End Sub

Falta o seguinte ajuste: se o usuário quiser o valor de 65 mil por exemplo, o correto seria R$ 65.000,00. Mas o código acima está deixando assim: R$ 65.000,000 (três casas depois da vírgula).

Alguém pode ajudar a corrigir para que fique apenas 2 casas depois da vírgula...?

DGAF / DVGD - Divisão de Gestão de Documentos
Rafael A. Guimarães
[email protected]

Postado : 10/10/2013 8:01 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Experimente utilizar em outro evento do controle (por exemplo after update)

Private Sub txtValorMensal_AfterUpdate()
    If IsNumeric(Me.txtValorMensal) = True Then
     Me.txtValorMensal = (Me.txtValorMensal / 100)
        txtValorMensal = Format(txtValorMensal, "R$ #,##0.00")
    End If
End Sub

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

Postado : 10/10/2013 8:35 am