Limitar caracteres de un textbox. Solo números y decimales
Me gustaría limitar los caracteres de 1textbox pero no logro hacerlo bien.
Necesitaría que el textbox TOTAL_PAGADO solo aceptara números y 1 coma. Además por delante de la coma como máximo debe haber 6 números y detrás de la coma 2.
Private Sub total_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii > Asc("9") Or KeyAscii < Asc("0") Then
If KeyAscii = Asc("-") Then
If InStr(1, Me.total.Text, "-") > 0 Or _
Me.total.SelStart > 0 Then KeyAscii = 0
ElseIf KeyAscii = Asc(",") Then
If InStr(1, Me.total.Text, ".") > 0 Then KeyAscii = 0
Else
KeyAscii = 0
End If
End If
End SubAqui esta mi macro deja solo introducir solo numeros. Pero no hay la limitacion por delante de la coma ni por detras. Ademas me gustaria que el punto fuera el indicador de la separacion de los decimales.
Me gustaría que se pudiera introducir los números decimales solo con el teclado numero de la derecha del teclado. Me gustaría que al pulsar el . Situado al lado del enter actuara como un separador decimal.
¿Qué estoy haciendo mal?
2 Respuestas
Hello Pol,
En Excel no hay mascaras, buuuuh :(
Así que para hacer lo que pides hay que "codearlo" ja.
Para permitir solo números y coma, el código es bastante sencillo, estuviste cerca, pero se puede acortar:
Private Sub total_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If Not (KeyAscii >= 48 And KeyAscii <= 57 Or KeyAscii = 44) Then KeyAscii = 0 End If End Sub
taran!
Ahora, para validar el resto de condiciones, debe ser en el evento Exit del TextBox básicamente hay que comprobar 3 cosas (+1 extra que agregue yo, no dices nada al respecto), por lo que lo hace lucir largo, pero es muy simple.
1- ¿Cuántas comas hay?
2- ¿Cuántos dígitos antes de la coma?
3- ¿Cuántos dígitos después de la coma?
¿4(Bonus)- Y si no hay coma? Comprobare que no sean mas de 6 dígitos.
Bien, este código responde esas preguntas:
Private Sub total_Exit(ByVal Cancel As MSForms.ReturnBoolean) Dim chkFormat() As String Dim comas As Integer chkFormat() = Split(total.Value, ",") comas = UBound(chkFormat) 'comprobar que no hay mas de una coma If comas > 1 Then MsgBox "Solo se permite una coma.", vbExclamation, "Error..." total.Value = vbNullString Cancel = True Exit Sub End If Debug.Print comas 'comprobar cantidad de digitos If comas > 0 Then 'antes de la coma If Len(chkFormat(0)) > 6 Then MsgBox "No se permiten mas de 6 digitos antes de la coma.", vbExclamation, "Error..." total.Value = vbNullString Cancel = True Exit Sub End If 'despues de la coma If Len(chkFormat(1)) > 2 Then MsgBox "No se permiten mas de 2 digitos despues de la coma.", vbExclamation, "Error..." total.Value = vbNullString Cancel = True End If Else If Len(Me.TextBox1.Value) > 6 Then MsgBox "No se permiten mas de 6 digitos.", vbExclamation, "Error..." total.Value = vbNullString Cancel = True End If End If End Sub
Andy
La linea que dice "Debug.Print comas" la puedes borrar, la tenia para hacer mis pruebas. Se me escapó cuando te copie el código :P
¿Tienes qué hacerlo por código?
Si usas las propiedades del cuadro de texto (o del campo en la tabla) para establecer el formato, lo solucionas sin mayor dificultad:
En "Máscara de entrada" le pones: ######,## y ya lo tienes, solo te dejará escribir 6 dígitos antes de la coma y dos después, y como la coma ya te la pone por defecto, ni la tienes que escribir.
PD: la solución que te ofrezco es para Access
Un saludo.
El problema es que es que estoy programando un form con vba en excel y ha de ser por código. Muchas gracias igualmente
Pues si lo quieres hacer en Excel, no tiene sentido que cuelgues también pregunta el foro de Access, porque te responderán también pensando en ese programa.
De todas formas, ¿en el formulario de no puedes configurar una máscara de entrada en los textbox (es algo que desconozco)? Si la respuesta es afirmativa, mi solución es perfectamente válida.