Contenido
Sub CalcularAveDev()
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Hoja1") ' Asegúrate de usar el nombre correcto de la hoja
' Usando un rango de células
Dim rangoDatos As Range
Set rangoDatos = ws.Range("A1:A10") ' Suponiendo que tus datos están en A1:A10
Dim devMediaAbs As Double
devMediaAbs = Application.WorksheetFunction.AveDev(rangoDatos)
' Mostrar el resultado en una caja de mensajes
MsgBox "La desviación media absoluta del rango es: " & devMediaAbs
' Usando un arreglo de números directamente
Dim numeros(1 To 5) As Variant
numeros(1) = 3
numeros(2) = 6
numeros(3) = 1
numeros(4) = 8
numeros(5) = 4
devMediaAbs = Application.WorksheetFunction.AveDev(numeros)
' Mostrar el resultado en una caja de mensajes
MsgBox "La desviación media absoluta del arreglo es: " & devMediaAbs
End Sub
En este ejemplo, CalcularAveDev es una subrutina que calcula la desviación media absoluta de los números en el rango A1:A10 de la hoja «Hoja1». Además, muestra cómo calcularla para un conjunto de números definidos en un arreglo de VBA.
Cuando llamas a la función AveDev, puedes pasarle directamente una lista separada por comas de los argumentos (números o celdas individuales) o un objeto Range que contenga un grupo de celdas. En ambos casos, AveDev calculará la desviación media absoluta de los valores proporcionados.