Convierta valores negativos tratados como texto usando VBA en Microsoft Excel

Anonim

En este artículo, crearemos una función personalizada para convertir cadenas negativas en un número entero.

Los datos sin procesar de este artículo constan de cadenas seguidas de un signo menos (-).

Queremos convertir estas cadenas en números enteros.

Explicación lógica

En este artículo, hemos creado una función personalizada ConvertNegNumbers para convertir la cadena en un número entero. Esta función toma el valor de la cadena como entrada y devuelve un entero como salida.

Explicación del código

Derecha (Var, 1) = "-"

El código anterior se usa para verificar si el último carácter de la cadena es igual al signo menos (-).

ConvertNegNumbers = CInt ("-" & Left (Var, Len (Var) - 1))

En el código anterior, la función de la izquierda se usa para extraer todos los caracteres de la cadena, excepto el último. La función CInt se utiliza para convertir un valor de cadena en un entero.

Siga a continuación para obtener el código

 Opción Función explícita ConvertNegNumbers (Var As String) 'Verificando si el último carácter de la cadena es menos (-) If Right (Var, 1) = "-" Then' Conversión del valor de la cadena a un entero negativo ConvertNegNumbers = CInt ("-" & Left (Var, Len (Var) - 1)) Else 'Conversión de valor de cadena a entero ConvertNegNumbers = CInt (Var) End If End Función 

Si te gustó este blog, compártelo con tus amigos en Facebook. Además, puede seguirnos en Twitter y Facebook.

Nos encantaría saber de usted, háganos saber cómo podemos mejorar nuestro trabajo y hacerlo mejor para usted. Escríbanos al sitio de correo electrónico