Excel - Exigir que el primer carácter de un textBox sea el "1" o el "2"

 
Vista:
sin imagen de perfil

Exigir que el primer carácter de un textBox sea el "1" o el "2"

Publicado por Rafael (102 intervenciones) el 08/03/2025 10:34:44
Mediante código impido la entrada de caracteres Ascii en un TextBox que no sean el ".", la "," o caracteres numéricos:

1
2
3
4
5
6
7
8
9
Private Sub Altura_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
' SÓLO PERMITO LA ENTRADA DE CARACTERES NUMÉRICOS, EL "." Y LA ",":
Select Case KeyAscii
    Case 44, 46
    Case 48 To 57
    Case Else: KeyAscii = 0
End Select
 
End Sub

Ahora pretendía, ADEMÁS, exigir que el primer carácter a introducir en el TextBox sólo pueda ser el "1" o el "2".

¿¿??
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana
Val: 4.908
Oro
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

Exigir que el primer carácter de un textBox sea el "1" o el "2"

Publicado por Antoni Masana (2540 intervenciones) el 19/03/2025 13:38:06
La solución:

1
2
3
4
5
6
7
8
Private Sub Altura_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    ' SÓLO PERMITO LA ENTRADA DE CARACTERES NUMÉRICOS, EL "." Y LA ",":
    Select Case KeyAscii
        Case 44, 46
        Case 48 To 57: If (KeyAscii < 49 Or KeyAscii > 50) And Len(Altura.Text) = 0 Then KeyAscii = 0
        Case Else: KeyAscii = 0
    End Select
End Sub


Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
sin imagen de perfil

Exigir que el primer carácter de un textBox sea el "1" o el "2"

Publicado por Rafael (102 intervenciones) el 19/03/2025 15:37:46
Gracias, Antoni!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar