Funciones definidas por el usuario (UDF)

Las funciones definidas por el usuario, conocidas también como UDF por sus siglas en Inglés (User Defined Functions) permiten, por medio del uso de macros o código VBA, el contar con funciones similares a las que existen de forma predefinida en Excel.

La variedad de temas que se pueden abordar por medio de estas funciones es numerosa, si se esta comenzando a aprender el uso de este tipo de funciones convendría comenzar realizando rutinas pequeñas que favorezcan el aprendizaje del lenguaje, a continuación se presenta una relación de ejemplos de lo que se pueden realizar por medio de las funciones definidas por el usuario.

Cabe recordar que estas funciones pueden ser empleadas desde cualquier parte del proyecto, ya sean las hojas, ThisWorbook, módulos, y formularios, y si son empleadas desde las hojas la invocación se realiza de la misma forma que se procede para las funciones ya existentes como BuscarV, Concatenar, etc.

Revise los siguientes ejemplos de UDF (funciones definidas por el usuario), en todos ellos encontrará muy diversos ejemplos de como aplicar estas funciones.

Si alguna de estas funciones definidas por el usuario posee un error o contiene una mejora que usted considera conveniente o necesaria, por favor registre un comentario para que procedamos a revisar la publicación.

Si ya conoce algunas de estas funciones y desea revisar algunas UDFs con rangos de celdas, puede observar los ejemplos que se encuentran en http://www.excel-avanzado.com/udf-rangos-de-celdas

Conozca más acerca de este tipo de funciones mediante el artículo funciones personalizadas en Excel.

Ejemplos de funciones definidas por el usuario

73 comentarios

Escriba un comentario →

federico vasquez picon
11/08/2012 a las 11:55 am

PROFESOR COMO CREAR UNA MACRO QUE ME CALCULE EL VALOR% DE MAS DE DOS VALORES Y ENCONTRAR EL PORCENTAJE QUE ESTA MAS BAJO EN LOS TRES AÑOS

EJEMPLO ENCONTRAR EL VALOR PORCENTUAL D 2009,2010,2011 EN HURTO DE VEHICULOS

Responder
Juan Jaén
25/03/2013 a las 10:02 pm

Hola Federico
Respecto a tu consulta, ingresé al ejemplo 27 - "Excel Avanzado: UDF aplicado al cálculo del promedio de prácticas y promedio final", y con base en ese ejemplo generé una UDF, la cual muestro a continuación:
Function minimo(año1, año2, año3, año4)
int1 = año1 / (año1 + año2 + año3 + año4)
int2 = año2 / (año1 + año2 + año3 + año4)
int3 = año3 / (año1 + año2 + año3 + año4)
int4 = año4 / (año1 + año2 + año3 + año4)
If int1 < int2 And int1 < int3 And int1 < int4 Then
minimo = int1
ElseIf int2 < int1 And int2 < int3 And int2 < int4 Then
minimo = int2
ElseIf int3 < int1 And int3 < int2 And int3 < int4 Then
minimo = int3
Else
minimo = int4
End If
End Function
Saludos
Juan Jaén

Responder
Juan Jaén
26/03/2013 a las 10:40 am

Hola

He creado una UDF para determinar la variación porcentual de un dato con respecto de otro. Por ejemplo, deseo conocer el porcentaje de variación del consumo de papel del año 2012 con respecto del año anterio (2011).

La fórmula sería la siguiente:

Consumo Año 2011: 1500
Consumo Año 2012: 2000
Fórmula = ((2000*100)/1500)-100
Resultado=33.33% -
Interpretación: Hubo un incremento en el consumo de papel en un 33.33%
(menos árboles en el mundo?)

Bueno, aquí la UDF:

Function var_porcentual(dato1, dato2)
resultado = (dato2 * 100 / dato1) - 100
var_porcentual = resultado
End Function

Es una UDF sencilla, pero considero que puede ser de vuestra utilidad...

Quedo a la espera de comentarios...

Buen día

Saludos,
Juan Jaén

Responder
Jorge Luis Rojas Silva
30/03/2013 a las 9:46 am

Molesto su atención para que me ayuden a resolver una inquietud que está referida a cómo puedo subir imagenes en este Blog.

En mi caso y seguramente en el de muchos, es más fácil explicar situaciones, o el desarrollo de lo que hacemos o queremos hacer con la hoja de cálculo, a través de gráficos o imagenes (o copia de pantallas).

Es por ello que acudo a ustedes a ver si me dan un alcance.

Mil gracias

Jorge Rojas.

Responder
christian libreros
30/03/2013 a las 3:36 pm

estima profesor estoy tratando aplicar la funcion buscarv y concatenar, para asignar el nombre a un rango, en una lista que crada con codigo nombre y apellido, a la hora de aplicar la funcion = BUSCARV (A6;ListaClientes;2;FALSO) me sale siempre #¿NUMERO? LE HE DADO TODAS LAS POSIBLES SOLUCIONES y corregido de muchas maneras la formula pero me sigue sliendo lo mismo no se si es que estas funciones no estan en mi equipos y no se como implementarlas, me seria de mucha ayuda ya que soy nuevo en el tema de exel gracias

Responder
Jose Malpartida
31/03/2013 a las 8:03 pm

Hola amigos (as)

He creado una UDF que permite calcular la muestra númerica a partir de parametros estadisticos el argumento es:

function muestra (arg1,arg2,arg3,arg4)
muestra=(arg1*arg1*arg2*arg3)/(arg4*arg4)
Resultado=muestra
end function

Espero sus comentarios y criticas para mejorar.

Responder
- Yajaira
  31/05/2014 a las 9:50 pm
  
  José,
  Buenas noches,
  
  Podrías reducir el código a una sola línea, igualar resultado a muestra y no tendría sentido si puedes igualar directamente la operación.
  
  Saludos,
  Yajaira
  
  Responder
RICHARD TICONA
27/05/2013 a las 12:16 am

Necesito crear una función UDF que reciba dos parámetros:

la hoja de excel y el rango de celdas. y pueda llamar la función:

=copiar("Hoja2","A1:C10")

Al reemplazar en forma UDF no me funciona...

Código anterior de Excel:

Sub Macro1()

sheets("Hoja1").Select
Range("D5:X30").Select
Selection.Copy
sheets("Hoja5").Select
Range("A2").Select
ActiveSheet.Paste

End Function

Código UDF personal:

Public Function copiar(hoja As Worksheet, celdas As Excel.Range) As Variant

sheets("Hoja1").Select
Range("D5:X30").Select
Selection.Copy
sheets("Hoja5").Select
Range("A2").Select
ActiveSheet.Paste

End Function

Espero su ayuda, gracias!!

Responder
RICHARD TICONA
27/05/2013 a las 8:06 pm

Estimados:
Bien, si se prueba el MsgBox y se pulsa el boton ayuda, salta la ayuda de office, esto me hace pensar que estoy haciendo algo mal y por eso no salta mi ayuda… necesito alguna respuesta:

Sub MessageBox()
MsgBox "El proceso tardará 5 minutos ¿Desea Continuar?", 3 + 256 + 16384, "Copia de Seguridad.", "C:\ejemplo.chm", 71
End Sub

Responder
- Manuel Diccion Virrueta
  25/10/2014 a las 12:31 am
  
  Estimado Richard:
  
  Creo que quieres hacer un MsgBox que alerte el tiempo que demorará el proceso y, además, guarde una copia de seguridad del documento. En ese caso te recomiendo utilizar el siguiente código:
  
  Sub Mensaje()
  
  respuesta = MsgBox("El proceso tardará 5 minutos ¿Desea Continuar?", vbYesNo, "Proceso")
  If respuesta = vbYes Then
  MsgBox "Se realizará una Copia de Seguridad."
  nbre = Format(Now, "dd-mm-yy hh mm ss")
  ruta = "C:\Users\PC\Documentos"
  ' No olvides que la ruta debe ser cambiada de acuerdo a donde quieres que se guarde la copia.
  ActiveWorkbook.SaveCopyAs ruta & "\" & nbre & ".xlsm"
  ' Agrega el codigo procedimiento que ibas a realizar.
  End If
  If respuesta = vbNo Then
  MsgBox "El proceso se ha cancelado."
  End If
  
  End Sub
  
  En caso quieras adicionar un documento de ayuda, aconsejo el siguiente código:
  
  Sub Mensaje()
  
  respuesta = MsgBox("El proceso tardará 5 minutos ¿Desea Continuar?", vbYesNoCancel, "Proceso")
  If respuesta = vbYes Then
  MsgBox "Se iniciará el proceso y se realizará una copia de seguridad."
  nbre = Format(Now, "dd-mm-yy hh mm ss")
  ruta = "C:\Users\PC\Documentos"
  ' No olvides que la ruta debe ser cambiada de acuerdo a donde quieres que se guarde la copia.
  ActiveWorkbook.SaveCopyAs ruta & "\" & nbre & ".xlsm"
  ' Agrega el procedimiento que ibas a realizar.
  End If
  If respuesta = vbNo Then
  respuesta = MsgBox("El proceso se ha cancelado ¿Necesita Ayuda?", vbYesNo, "Ayuda")
  If respuesta = vbYes Then
  With CreateObject("Word.Application")
  .Documents.Open "C:\Users\PC\Documentos\Ayuda.docx"
  ' No olvides que debes copiar la ubicación de tu documento.
  .Visible = True
  End With
  End If
  End If
  
  End Sub
  
  Espero que esta información te haya podido ayudar.
  
  Slds
  
  Manuel Dicción
  
  Responder
celim
05/08/2013 a las 5:28 pm

Pra llenar una base de datos hasta que punto es funcional usar un formulario?...

Responder
Luis Ismael
10/09/2013 a las 8:26 am

Como dejo una UDF en Excel de manera que la pueda llamar desde cualquier otro archivo ...... Gracias por la atención

Responder
- Yajaira Mosqueira Mostacero
  28/05/2014 a las 10:54 am
  
  Luis,
  Para que una UDF esté disponible para cualquier archivo Excel, primero debes crear tu función y guardarla como "Complemento de Excel", se guardará por defecto en una ruta similar a esta de acuerdo a tu computadora:
  
  C:\Users\usuario\AppData\Roaming\Microsoft\Complementos
  
  Luego cierras, vas a otra hoja Excel nueva, ingresas a Archivo/Opciones/Complementos y das click en el botón inferior "Ir", te va a salir una ventana, das click en "Examinar" y aparecerá tu función guardada, la seleccionas y Aceptar.
  
  Con esto puedes verificar que en cualquier archivo Excel, en la categoría Definidas por el usuario, aparecerá tu función creada.
  
  Espero que te sirva.
  
  Saludos,
  Yajaira
  
  Responder
Raul Saccaco
13/09/2013 a las 7:24 pm

Las funciones definidas por el usuario nos permiten generalizar formulas que usamos a diario y que no se encuentran definidas en excel como los ejemplos que están en este blog. Dejo un código por el cual se puede calcular el área de cualquier polígono regular conociendo su semiperimetro y su apotema:

Function area_poligonor(semiperimetro, apotema)
resultado = semiperimetro * apotema
area_poligonor = resultado
End Function

Responder
Christian Flores
21/09/2013 a las 11:44 pm

Profesor,

¿Como puedo verificar que una determinada UDF es más eficiente que la combinación de funciones predeterminadas?

Responder
- Yajaira Mosqueira Mostacero
  28/05/2014 a las 11:31 am
  
  Christian,
  Una UDF y la combinación de funciones deben realizar la misma acción que necesitamos hacer en Excel. Sin embargo, una UDF permite ahorrar tiempo, generar un código más sencillo y con una sola acción simplificar eso uso de varias funciones, más aún si éstas son repetitivas.
  
  Si verificas que la acción se realiza más rápido, con menos código y hace exactamente lo que necesitas, el uso de UDF es el adecuado.
  
  Saludos,
  
  Yajaira
  
  Responder
Olaf
30/10/2013 a las 7:58 pm

Como puedo actualizar el valor de una udf, ya que al copiar y pegar mi función creada a otras celdas, estas muestran el ultimo valor obtenido (el valor de la celda donde se copio)

he intentado con F9, comandos como "application.volatile" o "Worksheets("nombre hoja").Calculatey" y no he podido resolverlo.

este es mi función:

Function hosp_capi(numpro As Double)

Application.Volatile False

Dim monto As Double
Dim p As Double

monto = 0
p = 0

For w = 0 To 5

Select Case w
Case 0
p = 0.2
Case 1
p = 0.2
Case 2
p = 0.2
Case 3
p = 0.2
Case 4
p = 0.1
Case 5
p = 0.1
End Select

If ActiveCell.Offset(-2, -w) = "" Then
hosp_capi = monto
Exit Function
Else:
If ActiveCell.Offset(-2, -w) = 0 Then
monto = monto + 0
Else:
monto = monto + ((ActiveCell.Offset(-2, -w) * p) * ActiveCell.Offset(-1, -w))
End If
End If

Next

hosp_capi = monto

End Function

Espero puedan ayudarme
Saludos

Responder
- Olaf
  30/10/2013 a las 8:10 pm
  
  olvide comentar que solo obtengo el valor que quiero pegando la formula celda por celda o bien yendo a cada celda donde he pegado la formula y dando F2
  
  Responder
  - Pedro
    29/08/2014 a las 3:14 pm
    
    Tengo el mismo problema que tienes o tenías... me puedes decir como lo solucionaste???
    
    Responder
- Pepe
  16/01/2014 a las 11:20 am
  
  Lograste solucionarlo?
  
  Responder
Wendy Melissa
06/11/2013 a las 7:23 pm

Hola como pudo usar varias UDF s ? es decir varias funciones como se concatenar

Responder
Catherine
10/11/2013 a las 11:57 pm

He creado una UDF que me ayuda a calcular el valor futuro conociendo el capital inicial y la tasa efectiva, pero me gustaría crear una UDF que calcule desde la tasa nominal a una efectiva y que calcule también el tiempo.

Function Vfuturo(C, ief, t)
resultado = C * (1 + ief) ^ t
Vfuturo = resultado
End Function

Responder
- Paul Solís Palomino
  31/05/2014 a las 10:06 pm
  
  Para calcular la tasa efectiva desde una tasa nominal anual, se debe conocer el periodo de capitalización, por ejemplo si tenemos una tasa de 12% nominal anual, y la capitalización es mensual, nuestra tasa efectiva será: 12%/12 =1% efectiva mensual, se debe conocer el número de periodos en un año, en este caso hay 12 periodos (meses) en un año, aquí el código en VBA:
  
  Function TasaEfectiva(TNA, num_per_año)
  
  TasaEfectiva = TNA / num_per_año
  
  End Function
  
  Responder
FRANCISCO
24/12/2013 a las 11:08 am

Hola, qué tal, quisiera saber si alguien me puede ayudar con lo siguiente: es que estoy tratando de hacer un Excel que me permita calcular las diferentes horas para liquidar una nomina, es decir, que al ingresar la hora de inicio del trabajador y la hora de salida, pueda obtener las horas ordinarias, las extras diurnas, extras nocturnas, dominicales... yo lo estuve tratando de hacer con funciones e incluyendo muchas columnas pero me salían unas funciones demasiado complejas que después no se entendían, y cuando creía que estaba listo, faltaba alguna cosa; mejor dicho se me volvió paquidérmico el proyecto. No sé si alguien lo ha hecho antes, pero sería un reto interesante. muchas gracias. por su colaboración. espero su pronta respuesta.

Responder
Luiguer Santos
30/01/2014 a las 9:52 pm

La aplicación de esta herramienta me a ayudado a crear hojas de cálculo en excel para cálculos de funciones geométricas y poder hacer interactura a los alumnos con la matemática y el excel

Responder
Sergio Vilela
02/02/2014 a las 7:50 pm

Hay UDFs muy interesantes.

En las funciones propias de excel, al momento de usarlas, aparece un comentario de lo que hace la función. Asimismo, cuando se usa el boton de Insertar Función, en la pestaña de Fórmulas, aparecen comentarios para cada una de las variables de la función seleccionada.

Mi pregunta es como se pueden poner comentarios en las UDF.
Gracias.

Responder
- Yajaira Mosqueira Mostacero
  28/05/2014 a las 10:35 am
  
  Sergio,
  Para poder colocar comentarios en las UDF, basta con colocar el signo ' delante de tu comentario, éste cambiará a color verde y dejará de formar parte de la programación del mismo.
  
  Si deseas que un texto numeroso se convierta en comentario, activas la barra de Edición, seleccionas tu texto y haces click en el ícono "Bloque con comentarios"; para deshacer, haces click en el ícono "Bloque sin comentarios"
  
  Espero que te sirva.
  
  Saludos,
  Yajaira
  
  Responder
- Melissa Espiritu
  31/05/2014 a las 7:23 pm
  
  Hola :),para poder insertar una descripción a las udf, debes abrir el cuadro de las macros y luego escribir el nombre de la función, notarás que el botón opciones se activa, dale clic y en la descripción escribes lo que la función hace .
  Saludos
  
  Responder
EDITH SALAZAR
02/02/2014 a las 9:19 pm

Quisera saber como puedo crear una macro porcentual que se de color verde cuando es positivo y rojo cuando es negativo.

Responder
- Melissa Espiritu
  31/05/2014 a las 7:06 pm
  
  hola 🙂 con esta función me salio, espero que te sirva
  
  Function porc(a, b)
  
  x = ((b - a) / a) * 100
  If x > 0 Then
  porc = x
  ActiveCell.Select
  With Selection.Font
  .ThemeColor = xlThemeColorAccent3
  .TintAndShade = -0.24997711111789
  End With
  End If
  If x < 0 Then
  porc = x
  ActiveCell.Select
  
  With Selection.Font
  .Color = -16776961
  .TintAndShade = 0
  End With
  End If
  End Function
  
  Saludos
  
  Responder
- Melissa Espiritu
  31/05/2014 a las 7:09 pm
  
  Por cierto , el color lo saque utilizando el grabador de macro 🙂
  
  Responder
- Paul Solís Palomino
  31/05/2014 a las 8:18 pm
  
  Se podría prender el grabador y efectuar el cambio de color de texto mediante el formato condicional, luego revisas el codigo VBA, se tendrá algo parecido a esto:
  
  Sub Macro2()
  
  ' Macro2 Macro
  
  Cells.Select
  Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
  Formula1:="=11"
  Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
  With Selection.FormatConditions(1).Font
  .Color = -11489280
  .TintAndShade = 0
  End With
  Selection.FormatConditions(1).StopIfTrue = False
  Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLess, _
  Formula1:="=11"
  Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
  With Selection.FormatConditions(1).Font
  .Color = -16383844
  .TintAndShade = 0
  End With
  Selection.FormatConditions(1).StopIfTrue = False
  Range("A2").Select
  End Sub
  
  Responder
EDITH SALAZAR
02/02/2014 a las 9:22 pm

Quisiera saber como puedo crear una macro porcentual que se de color verde cuando es positivo y rojo cuando es negativo.

Responder
Luis Peña
11/02/2014 a las 4:19 pm

De las funciones revisadas, se aprecia que en ninguna de ellas se han declarado las variables, entiendo que por lo que son funciones cortas

Responder
Luis Peña
11/02/2014 a las 4:28 pm

Cuándo se debe declarar el tipo de los argumentos de una función? funciona la misma lógica que las variables, que sólo resulta conviente declararlas cuando la función es compleja?

Responder
- Paul Solís Palomino
  01/06/2014 a las 12:02 am
  
  Se debe de declarar cuando el tipo de argumento es por ejemplo binario o la variable admite decimales, sin embargo si la funcion es facil de hacerla no es necesario.
  
  Responder
Gustavo
27/03/2014 a las 7:57 pm

Copie una función para convertir números a letras en excel para mac pero me manda el error #¡VALOR! como si no la reconociera. Sabe alguien porque?

Responder
Victor Poketkrec
15/04/2014 a las 7:34 pm

Tengo un problema muy tonto que no se el error que me da, pero me da errores. me explico:
tengo una funcion para saber si una fecha es festiva o no. hasta aqui todo normal. si la inserto en un modulo me da errores en otros modulos, por ejemplo en el modulo workbook_open() no hace nada de lo que le digo. en cambio si borro la funcion si hace todo lo que le digo ... alguien entiende esto ???

la (maldita) funcion es esta:

Function Festiu(cel·la As Variant) As Integer
Dim Festa, a, b, c, d, e, f, g, h, i, k, l, m, n, mes, dia As Integer
Application.Volatile
If Weekday(cel·la) = 1 Then
Festa = 1
ElseIf Month(cel·la) = 1 Then
If Day(cel·la) = 1 Or Day(cel·la) = 6 Then
Festa = 2
End If
ElseIf Month(cel·la) = 5 Then
If Day(cel·la) = 1 Then
Festa = 2
End If
ElseIf Month(cel·la) = 6 Then
If Day(cel·la) = 24 Then
Festa = 2
End If
ElseIf Month(cel·la) = 7 Then
If Day(cel·la) = 5 Then
Festa = 22
End If
ElseIf Month(cel·la) = 8 Then
If Day(cel·la) = 15 Then
Festa = 2
End If
ElseIf Month(cel·la) = 9 Then
If Day(cel·la) = 11 Then
Festa = 2
End If
ElseIf Month(cel·la) = 10 Then
If Day(cel·la) = 12 Then
Festa = 2
End If
ElseIf Month(cel·la) = 11 Then
If Day(cel·la) = 1 Then
Festa = 2
End If
ElseIf Month(cel·la) = 12 Then
If Day(cel·la) = 25 Or Day(cel·la) = 26 Then
Festa = 2
End If
else
''setmana santa
a = Year(cel·la) Mod 19
b = Int(Year(cel·la) / 100)
c = Year(cel·la) Mod 100
d = b / 4
e = b Mod 4
f = Int((b + 8) / 25)
g = Int((b - f + 1) / 3)
h = (19 * a + b - d - g + 15) Mod 30
i = Int(c / 4)
k = c Mod 4
l = (32 + 2 * e + 2 * i - h - k) Mod 7
m = Int((a + 11 * h + 22 * l) / 451)
n = h + l - 7 * m + 114
''divendres sant
mes = Int(n / 31)
dia = (n Mod 31) - 1
If Month(cel·la) = mes Then
If Day(cel·la) = dia Then
Festa = 3
End If
End If
''dissabte sant
mes = Int(n / 31)
dia = (n Mod 31)
If Month(cel·la) = mes Then
If Day(cel·la) = dia Then
Festa = 3
End If
End If
''dilluns de pasqua
mes = Int(n / 31)
dia = (n Mod 31) + 2
If Month(cel·la) = mes Then
If Day(cel·la) = dia Then
Festa = 3
End If
End If
''2on dilluns de pasqua
mes = Int(n / 31)
dia = (n Mod 31) + 2
If cel·la = DateValue(Right("00" & dia, 2) & "/" & Right("00" & mes, 2) & "/" & Year(cel·la)) + 49 Then
Festa = 33
End If

End If
Festiu = Festa

End Function

me pregunto que temdra esta funcion que cuando la inserto en un programa da errores y si no la inserto el programa funciona correctamente?????

gracias.

Responder
Gino Ortiz Castro
19/04/2014 a las 3:20 pm

Como podría calcular las utilidades para el personal?

Responder
- Paul Solís Palomino
  01/06/2014 a las 12:06 am
  
  Para calcular las utilidades se debe de tener los ingresos y egresos, por ello el codigo seria simplemente una diferencia de esos dos parametros, el codigo en VBA seria:
  
  Function utilidades(ingresos, egresos)
  utilidades = ingresos - egresos
  
  End Function
  
  Responder
Joel Loayza
20/04/2014 a las 4:44 am

Profesor, utilice el numero el clasificador de la sbs, para crear una udf similar, solo para determinar los días de atraso por rangos que establecí, pero el problema que solo funciona en rango de 91 a 180 días y de más de 180 días, puede revisarlo e indicarme porque no funciona la udf creada como yo deseo.

Function Rango_días(arg1)
If arg1 = 0 Then
Rango_días = "Corriente"
End If
If arg1 < 16 Then
Rango_días = "De 1 a 15 días"
End If
If arg1 < 31 Then
Rango_días = "De 16 a 30 días"
End If
If arg1 < 61 Then
Rango_días = "De 31 a 60 días"
End If
If arg1 < 91 Then
Rango_días = "De 61 a 90 días"
End If
If arg1 180 Then
Rango_días = "Mayor de 180 días"
End If

End Function

Responder
MIRIAN NOEMY VILLENA ALCÁNTARA
20/04/2014 a las 1:43 pm

Hola!
Quisiera saber cómo puedo añadir a la función una ayuda, así como se muestra en una función normal de excel.
Muchas gracias.
Saludos cordiales,

Responder
- Yajaira
  31/05/2014 a las 9:34 am
  
  Miriam,
  Si te refieres a un comentario, debes incluir el signo ' delante de lo que quieras escribir, cambiará a color verde y se transformará en un comentario.
  
  Saludos,
  Yajaira
  
  Responder
Anita Angela Mandujano Tolentino
15/07/2014 a las 9:03 am

¿Es posible exportar UDF de un libro a otro?

Responder
Angel William
20/07/2014 a las 1:03 pm

He creado una UDF para invertir un texto en una celda , en excel esto seria un poco tedioso aserlo pero usando funciones en VBA es sencillo y nos puede sacar de un apuro al momento de extraer solo el nombre de un apellido completo , bueno ami me ayudo mucho grande udf
'UDF palabras al reves
Function PALABRALREVES(palabra As String)
Resultado = StrReverse(palabra)
PALABRALREVES = Resultado
End Function

Responder
karen
22/08/2014 a las 12:34 pm

hola, les cuento yo cree un funcion para que me pudiera contar las celdas por color, lo tengo en un archivo mio en una ruta compartida y me funciona sin embargo quisiera que cuando otra persona lo abra desde otro equipo funcione , pero no, la funcion se daña y lo que muestra es la ruta de mi equipo donde esta guardada, ya intente compartir mi ruta, o copiarla en las carpetas de los otros equipos pero sigue sin funcionar , por favor su ayuda.

Responder
José Carlos Beraún Tapia
10/09/2014 a las 1:45 pm

Disculpen,¿Qué significa este comando t = CInt(Mid(tipo_credito, 1, 2)) , en especial CInt(Mid()) en el ejemplo 7?

Responder
JUANCARLOS RAFAEL LANDAURE OLAVARRÍA
10/09/2014 a las 7:56 pm

Buenas noches, tengo dudas de cómo crear una UDF en la que deba especificar un rango de datos de entrada que puede ser variable, es decir, se podrían tener 3, 4 ó 10 inputs. Cómo haría esto? Todavía no he terminado de leer todos los materiales sólo el primero. Mi intención es crear una función VAN (valor actual neto) pero no deseo que el programa me pida cada uno de los datos (flujos de cada período) de uno en uno, sino ingresarlos como un rango seleccionándolo de una.

Responder
IRENE MARIA EUGENIA RODRIGUEZ VERA
12/09/2014 a las 8:12 pm

Las UDF me se asemejan a las grabaciones de formulas que puedo hacer en la hp, de gran ayuda para aplicar esta tecnica de solo crear la formula y cambiar los datos. asi puedo trabajar todo desde el excel.

Responder
Lourdes Torre Alfaro
13/09/2014 a las 12:00 am

En realidad cada uno puede crear una UDF de acuerdo a sus requerimientos ,ya que el objetivo principal es evitar las largas operaciones por eso se automatizan. Pero, cada función arroja solo un valor, es decir , se debe crear una función por cada valor que se quiera calcular.

Responder
alex cordova
03/11/2014 a las 10:59 am

como calcular el triempo de los trabajadores en años meses dias.
ejem:12/12/1990-03/11/2014 de manera que arroje cuantos años hay

Responder
alex cordova
03/11/2014 a las 11:02 am

como calcular el tiempo se servio de los trabajadores en años ejem 11/10/1990-03/11/2014

Responder
carlos
07/11/2014 a las 8:00 am

hola como puedo hacer para que un textbox solo admita formato fecha "dd/mm/yyyy" caso contrario me indique error y no me carge los datos en una tabla.

Responder
Rodrigo Rumiche Coronado
05/04/2015 a las 7:34 pm

Esto es muy util cuando se presentan varios tipos se me ocurre utilizarlo para calcular los ingresos netos, el cual se presenta varias opciones como el nivel de ingresos (para calcular el IR), afp, seguro, etc.

Responder
Pedro
21/05/2015 a las 9:58 pm

Saludos: Por favor sus comentarios, trabajo con una base de datos, pero requiero elaborar un USERFORM, que al seleccionar los datos también se muestren los demás datos, son aproximadamente 15 datos que necesito extraer a un USERFORM.
Agradezco sus comentarios.

Responder
RICARDO LUJAN
23/05/2015 a las 5:26 pm

Estimados amigos, tengo una inquietud, las UDF se pueden demorar en dar una determinada respuesta o siempre son instantáneas?. De tomar algún tiempo en dar una respuesta ¿hay alguna manera de saber cuanto durará el cálculo?

Responder
SANTOS ESTEBAN MAXIMILIANO BOCANEGRA
24/05/2015 a las 5:31 pm

Las UDF son muy importantes a medida que agilicen y faciliten los cálculos, para lo cual se debe conocer bien los factores que intervienen en el cálculo.
Saludos,

Responder
José Arias
24/05/2015 a las 10:36 pm

Una consulta es posible utilizar macros anidados con funciones y viceversa?

Gracias.

José

Responder
Jorge
09/06/2015 a las 4:48 am

Buenos días,

He leido y visionado muchos de los ejemplos de esta página. He aprendido mucho. Le agradezo de veras toda la información, es muy valiosa.

Tengo una cuestion que no soy capaz de resolver, creo que sería necesaria una UDF, pero por mucho que lo intento no consigo dar con la clave.

Organizamos torneos de tenis, en los que sacamos estadisticas de todo tipo, enfrentamientos anteriores directos, rachas, etc etc, pero hay un dato que nos gustaría conocer. Es la puntuación obtenida por dos tenistas (que se van a enfrentar) contra rivales comunes con los que ya se enfrentaron. Es decir, si se van a enfrentar Juan y Manuel, y ambos jugaron antes de con Pepe, saber la puntuación que ambos consiguieron contra Pepe.

Por poner un ejemplo, los jugadores que se enfrentan están en la columna A y B, y la puntuación de cada uno de ellos en C y D. Los partidos van del mas antiguo en la linea 1 hasta el mas nuevo en la ultima fila del excel.

Si me pudiera indicar que es lo que realmente necesito leer o formarme para conseguir esto se lo agradecería mucho.

Saludos y gracias de antemano.

Responder
PUERCOMAN
25/09/2015 a las 3:41 pm

Hola acabo de comprar un mac e instale el office 365 para mac.

Mi problema es que no me permite crear userform.

No se si necesite ¿descargar un complemento?

Responder
carlos
26/09/2015 a las 9:30 am

Hola; como puedo dejar una UDF valida para todos los libros sin tener que invocarla con el nombre del libro?? es decir, si creo una función y la dejo activa en eun archivo alocado en XLStart poder llamarla de un nuevo libro solo con el nombre generico y no antecedde el nobre del libro en que se encuentra grabada la función?
He intentado añadira como complemento pero tampocofunciona

Saludos

Responder
whity
23/10/2015 a las 6:02 pm

buenas tardes
por favor necesito su ayuda
necesito crear en excel una función que me arroje el precio de unos productos por ejemplo:

hay unos productos que se pagan por pieza y otros por kilo
los que se pagan por pieza a su vez se pagan dependiendo su color
y los que se pagan por kilo de la misma manera por su color y se multiplica por el peso :

por pieza

negro rojo
lapiz $ 5.00 $6.00
borrador $ 1.00 $ 2.00
sacapunta $3.00 $4.00

por kilo
negro rojo Peso

canicas $4.00 $7.00 Indefinido
ligas $ 2.00 $3.00 Indefinido
hojas $3.00 $5.00 Indefinido

en una tabla me gustaria por ejemplo que se calculara automaticamente el precio de las ligas es decir que al decir en una celda "ligas" y en la contigua referente al color cuando diga "negro" se entienda que las ligas se calculan a cierto precio cuando son negras y ese precio se multiplica por el peso que debe estar en otra celda para dar el precio total.

y en dado caso que el producto sea un borrador y en la celda de alado diga que es rojo se calcule el precio sin importar el peso..... ayuda por favor...

Responder
Ana
30/11/2015 a las 11:52 am

mi profesor nos paso esta funcion para calcular integral definida pero no entiendo cual es el calculo, no se leerlo de esta manera, alguien podria ayudarme?
Gracias!

'Cálculo de la integral definida por método numérico de una función dependiente de la variable “x”
Function integral_definida(fórmula_string As String, x_string As String, x_inf, x_sup, N)
Dim x As Double
Dim i As Integer
Dim fórmula_string_int As String
dx = (x_sup - x_inf) / N
For i = 0 To N - 1
x = x_inf + i * dx
x1 = Replace(CStr(x), ",", ".")
x2 = Replace(CStr(x + dx), ",", ".")
fórmula_string_int = Replace(fórmula_string, ",", ".")
y1 = Evaluate(Replace(fórmula_string_int, "x", x1))
y2 = Evaluate(Replace(fórmula_string_int, "x", x2))
integral_definida = integral_definida + dx * (y1 + y2) / 2
Next
End Function

Responder
Noe Perea
02/02/2016 a las 6:26 pm

Hola a todos.

Espero puedan ayudarme. En Excel existen funciones tales como sumar si cumple una condicional o dos, lo mismo para obtener el promedio, pero si quiero conocer el valor máximo en una base de datos solo de ciertos registros que cumplan con un criterio, la función no existe como tal.

Para obtener el resultado deseado debo hacer un anidado de "IF" dentro del "MAX" y hacer la función de forma matricial.

Como se expresaría en UFD para usarla como una función de Excel?

Responder
Amabiles Hernandez
18/07/2016 a las 5:50 pm

FELIZ DIA...TENGO DOS COLUMNAS, EN UNA VALORES LOS CUALES NO SE REPITEN DE MANERA CONSECUTIVA Y EN LA OTRA UN VALOR (LETRAS O NUMEROS), REQUIERO ENCONTRAR LA ULTIMA VEZ QUE SE REPITE UN VALOR ESPECIFICO DE LA PRIMERA COLUMNA Y OBTENER EL VALOR ASOCIADO EN LA OTRA COLUMNA...MUCHAS GRACIAS

Responder
jhonattan valderrama cabrera
08/11/2016 a las 5:52 pm

Buenas tardes realice una función y esta funciona bien... Pero cuando cambio los valores de los criterios(carril, turno hora) no se actualiza, me sigue mostrando la información anterior, ¿Como hago para que tan pronto cambie un dato se ejecute la formula y me arroje el valor actualizado. adjunto codigo VB...
Function ConsignadoRecolector(carril As String, turno As String, Hora As String)

Dim Puntero, seleccionarTurno As Integer
Dim consignado As Double
Dim carrilTurno As String

Puntero = 8 'Inicia en la celda numero 8
seleccionarTurno = 0
Inicio: 'declaración para ejecutar instrucción de todos los auxiliares de los carriles

Select Case seleccionarTurno
Case 0 'primera ejecución carril consultado
carrilTurno = turno
Case 1
carrilTurno = turno + " (Subturno 1)" 'consultar primer carril auxiliar
Case 2
carrilTurno = turno + " (Subturno 2)"
Case 3
carrilTurno = turno + " (Subturno 3)"
End Select

Do Until Hoja7.Cells(Puntero, "O") = ""

If Hoja7.Cells(Puntero, "O") = carril Then
If Hoja7.Cells(Puntero, "Q") = carrilTurno Then
If Hoja7.Cells(Puntero, "R") = Hora Then
consignado = consignado + Hoja7.Cells(Puntero, "W")
seleccionarTurno = seleccionarTurno + 1 'sumar uno para consultar siguiente carril auxiliar
If seleccionarTurno = 4 Then
Else
Puntero = Puntero + 1
GoTo Inicio 'saltar a el case de carriles auxiliares
End If
End If
End If
End If
Puntero = Puntero + 1
Loop

ConsignadoRecolector = consignado ' imprimir información en celda
End Function

Responder

Excel Avanzado

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

Funciones definidas por el usuario (UDF)

Ejemplos de funciones definidas por el usuario

73 comentarios

Responder a Paul Solís Palomino Cancelar la respuesta

Ejemplos de funciones definidas por el usuario

Publicaciones relacionadas:

73 comentarios

Responder a Paul Solís Palomino Cancelar la respuesta