MS Excel: cómo probar valores alfanuméricos en una cadena

0

Los datos expuestos en este blog, son solo de índole informativo. Por favor realiza siempre una copia de seguridad antes de realizar cualquier cambio en tu proyecto.

MS Excel: cómo probar valores alfanuméricos en una cadena

Este tutorial de Excel muestra cómo probar valores alfanuméricos (con capturas de pantalla e instrucciones paso a paso).

Pregunta: En Microsoft Excel, quiero saber si un valor de cadena contiene solo caracteres alfanuméricos. ¿Cómo puedo hacer esto?

R: Para hacer esto, necesita crear una función personalizada.

Necesitas abrir una hoja de cálculo de Excel. Presione Alt+F11 y cree un nuevo módulo.

Luego pegue la siguiente función en el nuevo módulo:

Function AlphaNumeric(pValue) As Boolean

   Dim LPos As Integer
   Dim LChar As String
   Dim LValid_Values As String

   'Start at first character in pValue
   LPos = 1

   'Set up values that are considered to be alphanumeric
   LValid_Values = " abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ+-.0123456789"

   'Test each character in pValue
   While LPos <= Len(pValue)

      'Single character in pValue
      LChar = Mid(pValue, LPos, 1)

      'If character is not alphanumeric, return FALSE
      If InStr(LValid_Values, LChar) = 0 Then
         AlphaNumeric = False
         Exit Function
      End If

      'Increment counter
      LPos = LPos + 1

   Wend

   'Value is alphanumeric, return TRUE
   AlphaNumeric = True

End Function

Esta Funciones alfanuméricas Devuelve VERDADERO si todos los valores de la cadena son alfanuméricos. De lo contrario, devuelve FALSO.

Según la hoja de cálculo de Excel anterior, el siguiente ejemplo alfanumérico devolvería:

=AlphaNumeric(A1)
Result: TRUE

=AlphaNumeric(A2)
Result: FALSE

=AlphaNumeric("6.49")
Result: TRUE

=AlphaNumeric("^Tech on the Net ")
Result: FALSE
(Visited 10 times, 1 visits today)