La función WorksheetFunction.Average en VBA de Excel se utiliza para calcular el promedio de un conjunto de valores. Se puede aplicar sobre un rango de celdas o sobre un arreglo de valores directamente en tu código VBA. Aquí tienes un ejemplo de cómo utilizar WorksheetFunction.Average en VBA:

Sub CalcularPromedio()
    Dim rango As Range
    Dim promedio As Double

    ' Estableces el rango de celdas cuyo promedio quieres calcular
    Set rango = ThisWorkbook.Sheets("Hoja1").Range("A1:A10")

    ' Utilizas la función Average del objeto WorksheetFunction para calcular el promedio
    promedio = Application.WorksheetFunction.Average(rango)

    ' Muestra el promedio en un cuadro de mensaje
    MsgBox "El promedio es: " & promedio
End Sub

Este código define una subrutina llamada CalcularPromedio, la cual calcula el promedio de los valores en el rango de A1 a A10 en la hoja llamada «Hoja1» y muestra el resultado en un cuadro de mensaje. Podrías aplicar WorksheetFunction.Average de manera similar para calcular el promedio de un arreglo en VBA, así:

Sub CalcularPromedioArray()
    Dim valores(1 To 5) As Double
    Dim promedio As Double

    ' Rellenas el arreglo con valores
    valores(1) = 2
    valores(2) = 4
    valores(3) = 6
    valores(4) = 8
    valores(5) = 10

    ' Calculas el promedio usando el arreglo
    promedio = Application.WorksheetFunction.Average(valores)

    ' Muestras el promedio
    MsgBox "El promedio del arreglo es: " & promedio
End Sub

Aquí hemos declarado un arreglo de cinco elementos y hemos calculado su promedio utilizando la función Average, igual que con el rango de celdas. Recuerda siempre manejar posibles errores que podrían ocurrir si, por ejemplo, el rango está vacío o contiene valores que no se pueden promediar (como texto o errores). Para ello, podrías usar una estructura de manejo de errores con On Error en tu procedimiento VBA.

Conoce nuestra tienda

Ver más productos

Mejora tu nivel y logra tus objetivo

Ayúdanos a hacer crecer el proyecto

¡Únete a nuestro Grupo de Facebook!

Relacionado