filmov
tv
Aprende a Crear tus Propias funciones personalizadas en Excel con VBA
Показать описание
Vamos a usar un poco del poder de Visual Basic for Applications y lo que haremos en este video será crear una función Nueva y personalizada, con un nombre totalmente adecuado a lo que nosotros queramos, esto lo hice por que a veces queremos cumplir ciertos “caprichos” y con lo que nos entrega Excel a veces no es suficiente. Si quieres profundizar en este excelente mundo del VBA a continuación te dejo unos enlaces que te ayudarán a ser todo un experto.
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:
funciones personalizadas en Excel
Como crear mis propias funciones en Excel
Puedo crear funciones propias en Excel
Insertar funciones nuevas 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:
funciones personalizadas en Excel
Como crear mis propias funciones en Excel
Puedo crear funciones propias en Excel
Insertar funciones nuevas en Excel
Комментарии