Mascara de entrada

2024 - VBA & Macros

Post Recente por Fernando Fernandes 12 anos atrás

2 Posts

2 Usuários

0 Reactions

1,151 Visualizações

RSS

eduhaag

(@eduhaag)

Posts: 36

Eminent Member

Topic starter

Ola pessoal,
Preciso de uma mascara no formato de moeda para um textbox

o problema que nãotenho o numero de caracteres fixo, ele pode ir desde 0,01 a 9.999,99

Alguem pode me ajudar?

Postado : 15/03/2013 10:00 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Bom dia!!

Veja se pode lhe ajudar..

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If TextBox1 = vbNullString Then Exit Sub
    If IsNumeric(Me.TextBox1.Value) Then
        Me.TextBox1.Value = Format(Me.TextBox1.Value, "Currency")
    Else
        MsgBox "Valor número digitado"
    End If
End Sub

Lembre se de usar a pesquisa do fórum!!!

viewtopic.php?f=23&t=3281
viewtopic.php?f=21&t=3766

Att

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

Postado : 16/03/2013 5:32 am