Excel Avanzado

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

Excel Avanzado
Función WorksheetFunction.Average, Función WorksheetFunction.Average

Función WorksheetFunction.Average

| 11 comentarios

Con la función WorksheetFunction.Average Excel devuelve el promedio aritmético de una lista de datos o argumentos.

La sintaxis para utilizar la función sigue la lógica de considerar todos los valores que quieren ser usados para hallar el promedio. Se puede codificar de la siguiente manera:

= expression.Average (Arg1, arg2, arg3, … arg255)

Para poder aplicar esta función usaremos el ejemplo de una cadena de locales de venta de Frozen Yogurt. Lo que se plantea es poder hallar el ticket promedio diario de consumo de uno de los locales de la cadena.

Para ello necesitamos contar con la lista de transacciones realizadas durante el día por dicho local. En la hoja de cálculo figuran los montos consumidos en el local.

Los montos son los siguientes

DatosTicket 300x199, Función WorksheetFunction.Average

Se creó un formulario que muestra tres botones: Calcular, Limpiar y Cerrar.

                                Formulario Ticket 300x199, Función WorksheetFunction.Average

El código usado es el siguiente:

Private Sub CommandButton1_Click()

TextBox1.Value = Application.WorksheetFunction.Average(Range(Cells(3, 2), Cells(13, 2)))

End Sub

Private Sub CommandButton2_Click()

UserForm1.Hide

End Sub

Private Sub CommandButton3_Click()

TextBox1 = ""

End Sub

El valor resultante es el consumo promedio de los clientes del local durante un día.

Resultado Ticket 300x199, Función WorksheetFunction.Average

Ticket Promedio

Rocío Abad Vergara

11 comentarios

Deja una respuesta

Los campos requeridos estan marcados con *.