Función de medios personalizados en Excel VBA

Buenas noches, por aquí Miguel y esta vez os traigo un nuevo post.

A continuación veremos un programa en Excel VBA que crea un Función definida por el usuario que calcula el medios de comunicación de un rango seleccionado al azar excluyendo uno o más valores que son atípicos y no deben promediarse.

Localización:

Función de medios personalizados 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 PERSONALIZACIÓN (rng Cómo Alcance, inferior Cómo Entero, superior Cómo Entero)

El nombre de nuestra función es CUSTOMAVERAGE. La parte entre paréntesis significa que le damos a Excel VBA un intervalo y dos variables enteras como entrada. Llamamos a nuestro rango rng, una variable entera que llamamos inferior y una variable entera que llamamos superior, pero puedes usar cualquier nombre.

3. A continuación, declaramos un objeto Range y dos variables de tipo Integer. Llamamos celda de objeto de rango. Una variable entera que llamamos total y una variable entera que llamamos contar.

Oscuro ese Cómo Alcance, total Cómo Entero, contar Cómo Entero

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: rng y cell se eligen al azar aquí, puede usar cualquier nombre. Recuerde verificar estos nombres en el resto de su código.

5. A continuación, verificamos cada valor en este rango si se encuentra entre los dos valores (inferior y superior). Si es verdadero, aumentamos el valor total de la celda y aumentamos el número 1. Agregamos las siguientes líneas de código al ciclo.

cell.Value> = menor mi cell.Value Entonces

total = total + celda.Valor
cuenta = cuenta + 1
Aleta

6. Para devolver el resultado de esta función (la media deseada), agregue la siguiente línea de código fuera del ciclo.

PROMEDIO PERSONALIZADO = total / recuento

7. No olvide finalizar la función. Añadir línea:

Aleta Función

8. Ahora puede usar esta función como cualquier otra función de Excel para calcular el promedio de números entre dos valores.

Resultado:

Resultado de la función media personalizada

Como comprobación, puede eliminar todos los valores menores que 10 y más de 30 y usar la función Promedio estándar en Excel para ver si Excel calcula el mismo promedio que nuestra función promedio personalizada.

Verificación de función promedio personalizada

Nuestra función de medios personalizados funciona. 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