EXCELeINFO

Validar si un texto tiene formato de fecha, número o alfanumérico en Excel con vba

by · 22 January, 2015

En ocasiones tendrás que validar si un texto que ingresaste tiene formato de fecha, numérico o texto o alfanumérico.

Para este artículo desarrollé un sencillo formulario donde ingresas tu cadena de texto y te valida lo anterior.

Ver video UserForm para validar texto, números o fechas

Suscríbete al canal de EXCELeINFO en YouTube para aprender más de Excel y macros.

Cómo funciona

El formulario tiene un TextBox que será donde ingresaremos el texto a validar. El botón con la leyenda “Validar” mostrará el resultado en un Label de color verde.

image

Figura 1. Validar cadena con formato de fecha, texto o número.

Para la validación usamos un SELECT CASE para comparar cada escenario posible y también usamos las siguiente funciones de comprobación:

  1. IsDate: Validamos si el texto es fecha.
  2. IsNumeric: Validamos si el texto numérico.
  3. WorksheetFunction.IsText: Validamos si el texto es alfanumérico.

Código vba

Ubicación: UserForm1.

'---------------------------------------------------------------------------------------
' Module    : UserForm1
' Author    : MVP Excel, Sergio Alejandro Campos
' Website:  : http://www.exceleinfo.com
' Date      : 22/01/2015
' Purpose   : Validar el tipo de texto ingresado
'---------------------------------------------------------------------------------------
'
Private Sub CommandButton1_Click()
'
'Declaramos variables
'
Dim Valor As Variant
'
Valor = Me.TextBox1.Value
'
'Validamos cada caso y en caso de ser verdadero...
'
Select Case True
    '
Case Valor = ""
    Me.Label1.Caption = "El campo está vacío."
    Me.TextBox1.SetFocus
    '
Case IsDate(Valor)
    Me.Label1.Caption = "El dato ingresado es fecha."
    Me.TextBox1.SetFocus
    '
Case IsNumeric(Valor)
    Me.Label1.Caption = "El dato ingresado es numérico."
    Me.TextBox1.SetFocus
    '
Case WorksheetFunction.IsText(Valor)
    Me.Label1.Caption = "El dato ingresado es texto."
    Me.TextBox1.SetFocus
    '
Case Else
    '
End Select
'
End Sub
'
Private Sub CommandButton2_Click()
'
'Botón Cerrar
'
Unload Me
'
End Sub

:: Descarga el ejemplo Validar si es texto, número o fecha en Excel vba.rar

Tags:

You may also like...