Convertir valores negativos tratados como texto utilizando VBA en Microsoft Excel
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 un valor de 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 («-» & Izquierda (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 número entero.
Siga el código a continuación
Option Explicit
Function ConvertNegNumbers(Var As String)
'Checking whether last character in the string is minus(-)
If Right(Var, 1) = "-" Then
'Converting string value to negative integer
ConvertNegNumbers = CInt("-" & Left(Var, Len(Var) - 1))
Else
'Converting string value to integer
ConvertNegNumbers = CInt(Var)
End If
End Function
Si te gustó este blog, compártelo con tus amigos en Facebook y Facebook.
Nos encantaría saber de usted, háganos saber cómo podemos mejorar nuestro trabajo y hacerlo mejor para usted. Escríbanos a [email protected]