Perfil MVP
Autenticação
Online
Nenhum
Formatação de Números (Código)
Terça, 08 Maio 2007 18:50 | 
Escrito por Bruno Castro | 
| 
| 
Private Sub CommandButton1_Click() ' Botão "ENVIA"
Range("A1") = TextBox1.Text
Unload Me
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsNumeric(TextBox1) Or Len(TextBox1) > 10 Then Cancel = True
Me.TextBox1.Text = Format(TextBox1, "000-000-0000")
End Sub