saber si es numero o letras

[Zeroql]

bueno esa es mi pregunta como se si es numeros o letras comparandolo ej:

Código [Seleccionar] Expandir


if text1=letras or text2=num then
   funcion
end if



se que con el nivel de programacion que tengo no deberia preguntar esto ni tantas cosa que pregunto en el foro, pero en mi cabeza se mezclan tantas cosas que no se bien que es de que y a veces no la recuardo si las hize hace 5 min.

[NYlOn]

Usa la funcion IsNumeric.

No importa si tu "nivel de programacion" es bajo, que no te de verguenza preguntar .


Saludos.-

[CeLaYa]

Puedes usar la función "IsNumeric"

Código [Seleccionar] Expandir


Dim MiVar, MiPrueba
MiVar = "53"                  ' Asigna un valor.
MiPrueba = IsNumeric(MiVar)   ' Devuelve True.
MiVar = "459.95"            ' Asigna valor.
MiPrueba = IsNumeric(MiVar)   ' Devuelve True.
MiVar = "45 Help"            ' Asigna valor.
MiPrueba = IsNumeric(MiVar)   ' Devuelve False.



*** estos ejemplos son de la ayuda del VB

[Zeroql]

muchas gracias CeLaYa

[WHK]

Private Sub Text1_Keypress(KeyAscii As Integer)
On Error Resume Next
If Not IsNumeric(Chr$(KeyAscii)) And KeyAscii <> 8 Then KeyAscii = 0
End Sub

Esta funcuón acepta solo números en el textbox asi te das una idea.

Todo esto ya estaba explicado en http://www.elhacker.net/trucosvisual.htm

[Zeroql]

gracis a todos por su colaboracion, ya he solocionado el problema calro con la instruccion isnumeric

[ActiveSheet]

esto es lo que nececitas

Código (vb) [Seleccionar] Expandir

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If IsNumeric(Chr(KeyAscii)) = True Then
        Me.Caption = "se esta tecleando Nuemeros"
    Else
        Me.Caption = "se esta tecleando letras"
    End If
End Sub


Bastante Censillo  No Te parece?