Contenido
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
Excel
Access
Power BI
