Excel Avanzado

Macros, Vba en Excel y muchos ejemplos de nuestro Curso de Excel Avanzado

Excel Avanzado

Extraer números VBA – Ejemplo con Tipo de cambio

| 0 comments

Ejemplo: Se desea extraer el valor del tipo de cambio Yen-Dólar de una base de datos que tiene la información con su valor y simbologia. Para esto creamos una función “Extraer_num” que nos permitira extraer el valor   incluyendo el punto decimal al poner en el número 2 en vez de 1 en  If IsNumeric(Mid(cadena, i, 2)). Finalmente redondeamos el valor en un decimal.

VBA_Extraer numero

Function Extraer_num(cadena As String)

‘Variable numeros contendrá solo números de la cadena

Dim numeros As String
numeros = “”
‘Recorrer la cadena

For i = 1 To Len(cadena)

‘Evaluar SI el carácter actual es un número
If IsNumeric(Mid(cadena, i, 2)) Then

‘Concatenar valor numérico a la variable numeros
numeros = numeros & Mid(cadena, i, 1)

End If
Next

‘Devolver los números encontrados
Extraer_num = Round(numeros, 1)

End Function

Deja un comentario

Required fields are marked *.


Excel Avanzado located at , Lima, Perú . Reviewed by usuarios rated: 4.7 / 5