filmov
tv
Función Personalizada para Extraer Números o Letras de una Celda Excel con VBA
Показать описание
Recurramos a las macros y al VBA de Excel para crear nuestra propia función que nos permita Extraer solo los números o solo las Letras de una cadena de Texto en una Celda de Excel. Esta funcionalidad no la tiene por defecto Excel, sin embargo con esta sencilla función haremos las dos cosas al tiempo. Además de eso, vamos a poder insertar esta función dentro de nuestra área de complementos de Excel para poder usarla desde cualquier libro que queramos usar en nuestra PC.
ENLACE CURSOS CERTIFICADOS CONTABILIZALO:
CURSO MACROS Y EXCEL VBA PRO
CURSO WEB SCRAPING Escaneo de Páginas Web con Excel y VBA
CURSO EXCEL PRÁCTICO - BÁSICO A PROFESIONAL
ENLACE DESCARGA DE ARCHIVO:
----------------CÓDIGO DE LA FUNCIÓN ----------------------
Function EXTRAER_WILMER(cadena As String, Optional extrae_solo_numeros As Boolean = True) As String
Dim caracter As Long
Dim resultado As String
Dim caracter_encontrado As String
resultado = ""
For caracter = 1 To Len(cadena)
caracter_encontrado = Mid(cadena, caracter, 1)
If extrae_solo_numeros = True And IsNumeric(caracter_encontrado) = True Then
resultado = resultado & caracter_encontrado
ElseIf extrae_solo_numeros = False And Not IsNumeric(caracter_encontrado) Then
resultado = resultado & caracter_encontrado
End If
Next caracter
EXTRAER_WILMER = resultado
End Function
#crearFuncionesEnExcel #contabilizalo #excel
TEMAS TRATADOS:
Extraer solo números con Excel
Extraer solo texto en Excel
Extraer texto de una celda en excel
Sacar los números de una cadena en excel
Como separar el texto de los números en Excel
separar números del texto en excel
ENLACE CURSOS CERTIFICADOS CONTABILIZALO:
CURSO MACROS Y EXCEL VBA PRO
CURSO WEB SCRAPING Escaneo de Páginas Web con Excel y VBA
CURSO EXCEL PRÁCTICO - BÁSICO A PROFESIONAL
ENLACE DESCARGA DE ARCHIVO:
----------------CÓDIGO DE LA FUNCIÓN ----------------------
Function EXTRAER_WILMER(cadena As String, Optional extrae_solo_numeros As Boolean = True) As String
Dim caracter As Long
Dim resultado As String
Dim caracter_encontrado As String
resultado = ""
For caracter = 1 To Len(cadena)
caracter_encontrado = Mid(cadena, caracter, 1)
If extrae_solo_numeros = True And IsNumeric(caracter_encontrado) = True Then
resultado = resultado & caracter_encontrado
ElseIf extrae_solo_numeros = False And Not IsNumeric(caracter_encontrado) Then
resultado = resultado & caracter_encontrado
End If
Next caracter
EXTRAER_WILMER = resultado
End Function
#crearFuncionesEnExcel #contabilizalo #excel
TEMAS TRATADOS:
Extraer solo números con Excel
Extraer solo texto en Excel
Extraer texto de una celda en excel
Sacar los números de una cadena en excel
Como separar el texto de los números en Excel
separar números del texto en excel
Комментарии