A continuación veremos un programa en Excel VBA que crea una Función definida por el usuario . Excel tiene una gran colección de funciones. En la mayoría de las situaciones esas funciones son suficientes para hacer el trabajo. Si no, puede crear su propia función llamada Función definida por el usuario o función personalizada de Excel . Puede acceder a una función definida por el usuario como cualquier otra función de Excel.
Queremos crear una función llamada SUMEVENNUMEROS que encuentra la suma de los números pares de un rango seleccionado al azar.
Situación:
Las funciones definidas por el usuario deben ser colocadas en un módulo.
1. Abra el Editor de Visual Basic y haga clic en Insertar, Módulo.
2. Añade la siguiente línea de código:
Función SUMEVENNUMEROS (rng As Range)
El nombre de nuestra función es SUMEVENUMIENTOS. La parte entre los paréntesis significa que le damos a Excel VBA un rango como entrada. Le damos un nombre a nuestro rango rng, pero puedes usar cualquier nombre.
3. A continuación, declaramos un objeto de la gama y lo llamamos célula.
Célula oscura como rango
4. Queremos comprobar cada célula en un rango seleccionado al azar (este rango puede ser de cualquier tamaño). En Excel VBA, puedes usar el bucle For Each Next para esto. Añade las siguientes líneas de código:
Para cada célula en el rng La siguiente celda
Nota: la celda se elige al azar aquí, puedes usar cualquier nombre.
5. A continuación, comprobamos para cada valor en este rango si es parejo o no. Usamos el operador Mod para esto. El operador Mod da el resto de una división. Así que 7 mod 2 daría 1. 7 se divide por 2 (3 veces) para dar un resto de 1. Dicho esto, es fácil comprobar si un número es par o no. Sólo si el resto de un número dividido entre 2 es 0, el número es par. 8 mod 2 da 0, 8 se divide por 2 exactamente 4 veces, y por lo tanto 8 es par. Añade la siguiente declaración If al bucle For Each Next.
Si la celda.Valor Mod 2 = 0 Entonces Finalizar si
6. Sólo si esta afirmación es cierta, añadimos el valor a los SUMEVENUÑOS. Añade la siguiente línea de código en la declaración If.
SUMEVENNUMEROS = SUMEVENNUMEROS + celda.Valor
7. No te olvides de terminar la función (fuera del bucle).
Fin de la función
8. Ahora puedes usar esta función, como cualquier otra función de Excel, para encontrar la suma de los números pares de un rango seleccionado al azar.
Resultado:
¡Bien hecho! Así de fácil son las funciones definidas por el usuario en Excel VBA. Nota: esta función sólo está disponible en este libro de trabajo.