Cuadro de texto
Hola, mi nombre es robert.
Espero puedas ayudarme.
En el editor de VB en excel, tengo user form con varios Textbox.
En uno de ellos tengo el rut o identificador de la persona por ej.
10.120.780-6. En otro tengo la Fecha de nacimiento, por ej 12/06/1972
Me gustaría saber como hacer para que al momento de ingresar estos datos, la mascara se cree automáticamente, es decir: . . - y / /
Espero me entiendas.
Chau.
Espero puedas ayudarme.
En el editor de VB en excel, tengo user form con varios Textbox.
En uno de ellos tengo el rut o identificador de la persona por ej.
10.120.780-6. En otro tengo la Fecha de nacimiento, por ej 12/06/1972
Me gustaría saber como hacer para que al momento de ingresar estos datos, la mascara se cree automáticamente, es decir: . . - y / /
Espero me entiendas.
Chau.
1 Respuesta
Respuesta de valedor
1
Si, si te entendí...
Tu dices -al momento de ingresar estos datos, la mascara se cree automáticamente-, quieres crear la mascara...
1.- ¿Mientras el usuario va escribiendo sus datos?
2.- ¿Cuándo el usuario "avandone" el control?
En lo personal no te recomiendo usar mascaras de entrada, son una lata por las características de los eventos donde se programas Change o Exit o LostFocus, también, por ejemplos, si estos datos los guardas en una base de datos o algo, no es muy conveniente usar la mascara, para las fechas por ejemplo, se ve muy elegante usar un control Calendario que permite al usuario seleccionar una fecha de un calendario visual, solicita un ejemplo de esto a mi correo, saludos...
Mauricio
MbsARROBAinboxPUNTOnet
Tu dices -al momento de ingresar estos datos, la mascara se cree automáticamente-, quieres crear la mascara...
1.- ¿Mientras el usuario va escribiendo sus datos?
2.- ¿Cuándo el usuario "avandone" el control?
En lo personal no te recomiendo usar mascaras de entrada, son una lata por las características de los eventos donde se programas Change o Exit o LostFocus, también, por ejemplos, si estos datos los guardas en una base de datos o algo, no es muy conveniente usar la mascara, para las fechas por ejemplo, se ve muy elegante usar un control Calendario que permite al usuario seleccionar una fecha de un calendario visual, solicita un ejemplo de esto a mi correo, saludos...
Mauricio
MbsARROBAinboxPUNTOnet
Hola, te agradezco el haberme respondido y tu preocupación.
Pero como se hace.
Chau!
Pero como se hace.
Chau!
No me ayudas mucho, no me respondes las preguntas, ni te comentas mis comentarios, con el siguiente código haces algo, que supongo es lo que quieres, si esto resuelve tu pregunta te agradeceré la finalices...
'Para la fecha
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Len(TextBox1) = 2 Then
TextBox1 = TextBox1 & "/"
TextBox1.SelStart = Len(TextBox1)
ElseIf Len(TextBox1) = 5 Then
TextBox1 = TextBox1 & "/"
TextBox1.SelStart = Len(TextBox1)
End If
End Sub
'Para el otro dato
Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Len(TextBox2) = 2 Then
TextBox2 = TextBox2 & "."
TextBox2.SelStart = Len(TextBox2)
ElseIf Len(TextBox2) = 6 Then
TextBox2 = TextBox2 & "."
TextBox2.SelStart = Len(TextBox2)
ElseIf Len(TextBox2) = 10 Then
TextBox2 = TextBox2 & "-"
TextBox2.SelStart = Len(TextBox2)
End If
End Sub
'Para la fecha
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Len(TextBox1) = 2 Then
TextBox1 = TextBox1 & "/"
TextBox1.SelStart = Len(TextBox1)
ElseIf Len(TextBox1) = 5 Then
TextBox1 = TextBox1 & "/"
TextBox1.SelStart = Len(TextBox1)
End If
End Sub
'Para el otro dato
Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Len(TextBox2) = 2 Then
TextBox2 = TextBox2 & "."
TextBox2.SelStart = Len(TextBox2)
ElseIf Len(TextBox2) = 6 Then
TextBox2 = TextBox2 & "."
TextBox2.SelStart = Len(TextBox2)
ElseIf Len(TextBox2) = 10 Then
TextBox2 = TextBox2 & "-"
TextBox2.SelStart = Len(TextBox2)
End If
End Sub
