Función definida por el usuario en Excel VBA

Buenas tardes, me llamo Miguel y al día de hoy os traigo un nuevo artículo.

A continuación veremos un programa en Excel VBA que crea un Función definida por el usuario. Excel tiene una gran colección de funciones. En la mayoría de situaciones, estas funciones son suficientes para realizar el trabajo. De lo contrario, puede crear su propia función denominada Función definida por el usuario o función de Excel personalizada. Puede acceder a una función definida por el usuario como cualquier otra función de Excel.

Queremos crear una función llamada SUMEVENNUMBERS que encuentre la suma de números pares en un rango seleccionado al azar.

Localización:

Función definida por el usuario en Excel VBA

Las funciones definidas por el usuario deben colocarse en un módulo.

1. Abra el Editor de Visual Basic y haga clic en Insertar, Módulo.

2. Agregue la siguiente línea de código:

Función SUMEVENNUMBERS (rng Cómo Alcance)

El nombre de nuestra función es SUMEVENNUMBERS. La parte entre paréntesis significa que le damos a Excel un intervalo como entrada. Llamamos rng a nuestra gama, pero puedes usar cualquier nombre.

3. A continuación, declaramos un objeto Range y lo llamamos celda.

Oscuro ese Cómo Alcance

4. Queremos verificar cada celda en un rango seleccionado al azar (este rango puede ser de cualquier tamaño). En Excel VBA, puede usar For each next loop para esto. Agregue las siguientes líneas de código:

Para Cada ese En rng

Entonces ese

Nota: la celda se elige al azar aquí, puede usar cualquier nombre.

5. A continuación, verificamos para cada valor en este rango si es par o no. Para ello utilizamos el operador Mod. El operador Mod da el resto de una división. Por ejemplo, 7 mod 2 = 1 porque 7 dividido por 2 es igual a 3 con un resto de 1. Dicho esto, es fácil comprobar si un número es par o no. Solo si el resto de un número dividido por 2 es 0, el número es par. Por ejemplo, 8 mod 2 = 0 porque 8 dividido por 2 es igual a 4 con un resto de 0. Agregue la siguiente instrucción If al ciclo For Each Next.

ese.valor Modificación 2 = 0 Entonces

Aleta

6. Solo si esta afirmación es cierta, agregamos valor a SUMEVENNUMBERS. Agregue la siguiente línea de código en la instrucción If.

SUMEVENNUMBERS = SUMEVENNUMBERS + ese.Valor

7. No olvide finalizar la función (fuera del ciclo).

Aleta Función

8. Ahora puede usar esta función, como cualquier otra función de Excel, para encontrar la suma de números pares en un rango seleccionado al azar.

Resultado:

Resultado de la función definida por el usuario

¡Bien hecho! Tan fáciles son las funciones definidas por el usuario en Excel VBA. Nota: esta función solo está disponible en este libro.

Deja una respuesta

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

Subir

Esta página utiliza Cookies. Más info