filmov
tv
Función para EXTRAER NÚMEROS - Función EXTRAERNUM (UDF)
Показать описание
En este video veremos la forma más sencilla de extraer los números de una cadena de texto, utilizando para ello una función definida por el usuario o UDF.
Ya vimos en un video anterior cómo podíamos hacer esto mismo sin tener que tocar el código VBA, pero utilizábamos muchas funciones conjuntamente y diferentes cálculos intermedios.
Mediante esta función UDF tendremos siempre la función dentro del catálogo de funciones (como si fuera una función propia de Excel) necesitando únicamente indicar como argumento la celda que contiene el dato del que deseamos extraer los números.
El código utilizado en el módulo es el siguiente:
---------------------------------------------------------------------------
Function EXTRAERNUM(TODO As Range)
Dim a As Integer
Dim NUMERO As Long
For a = 1 To Len(TODO)
If IsNumeric(Mid(TODO, a, 1)) Then
NUMERO = NUMERO & Mid(TODO, a, 1)
EXTRAERNUM = NUMERO
End If
Next
End Function
---------------------------------------------------------------------------
Mira también estos videos relacionados:
---------------------------------------------------------------------------
🔴 No olvides suscribirte al canal para estar al tanto de todas las novedades en:
----------------------------------------------------------------------------
📄 Artículo en la web:
----------------------------------------------------------------------------
Sígueme en:
----------------------------------------------------------------------------
Gracias por ver el vídeo y suscribirte al canal 😃
Activa también las notificaciones 🔔
#exceltutorial #tutorialexcel #exceludf
Ya vimos en un video anterior cómo podíamos hacer esto mismo sin tener que tocar el código VBA, pero utilizábamos muchas funciones conjuntamente y diferentes cálculos intermedios.
Mediante esta función UDF tendremos siempre la función dentro del catálogo de funciones (como si fuera una función propia de Excel) necesitando únicamente indicar como argumento la celda que contiene el dato del que deseamos extraer los números.
El código utilizado en el módulo es el siguiente:
---------------------------------------------------------------------------
Function EXTRAERNUM(TODO As Range)
Dim a As Integer
Dim NUMERO As Long
For a = 1 To Len(TODO)
If IsNumeric(Mid(TODO, a, 1)) Then
NUMERO = NUMERO & Mid(TODO, a, 1)
EXTRAERNUM = NUMERO
End If
Next
End Function
---------------------------------------------------------------------------
Mira también estos videos relacionados:
---------------------------------------------------------------------------
🔴 No olvides suscribirte al canal para estar al tanto de todas las novedades en:
----------------------------------------------------------------------------
📄 Artículo en la web:
----------------------------------------------------------------------------
Sígueme en:
----------------------------------------------------------------------------
Gracias por ver el vídeo y suscribirte al canal 😃
Activa también las notificaciones 🔔
#exceltutorial #tutorialexcel #exceludf
Комментарии