Написать функцию, которая будет возвращать величину среднего абсолютного отклонения

'вариант без использования объекта WorksheetFunction
Public Function МаксМеньшеСрГеом1(ДиапазонЯчеек)
    'определение среднего геометрического
    произведение = 1
    For Each ячея In ДиапазонЯчеек
        If ячея < 0 Then МаксМеньшеСрГеом1= "#отрицат": Exit Function
        произведение = произведение * ячея   'вычисление произведения
        n = n + 1                            'подсчет числа ячеек
    Next
    СрГеом = произведение ^ (1 / n)
    'поиск 1-ой ячейки со значением, < среднего геометрического
    For Each ячейка In ДиапазонЯчеек
        m = m + 1
        If ячейка < СрГеом Then Exit For
    Next
    'вычисление максимального значения в ячейках с заданным условием
    максимум = ячейка 'затравка для максимума
    For j = m + 1 To ДиапазонЯчеек.Count
        If ДиапазонЯчеек(j) <= СрГеом And ДиапазонЯчеек(j) > максимум Then
        'обратите внимание на то, что к связанной группе ячеек можно
        'обращаться, как к массиву
            максимум = ДиапазонЯчеек(j)
        End If
    Next
    МаксМеньшеСрГеом1= максимум
End Function
'вариант с использованием объекта WorksheetFunction
 
Public Function МаксМеньшеСрГеом2 (ДиапазонЯчеек)
    'определение среднего геометрического
    СрГеом = WorksheetFunction.GeoMean(ДиапазонЯчеек)
    'чтобы использовать объект WorksheetFunction для
    'поиска условного максимума, нужно значения, удовлетворяющие
    'условию,поместить в массив; т.к. число таких значений заранее
    'неизвестно, объявляем необразмеренный динамический массив
    Dim mas()
    For Each ячейка In ДиапазонЯчеек
        If ячейка < СрГеом Then
        'при каждом проходе цикла увеличивать размер массива на 1,
        'сохраняя ранее помещенные в него данные (Preserve)
            ReDim Preserve mas(m)
            mas(m) = ячейка
            m = m + 1
        End If
    Next
    максимум = WorksheetFunction.Max(mas)
    МаксМеньшеСрГеом2= максимум
End Function

Public Function МаксМедианМеньшеСрГеом(ДиапазонЯчеек)
    'определение среднего геометрического
    СрГеом = WorksheetFunction.GeoMean(ДиапазонЯчеек)’не применять в Вашей
                                                     ‘ работе
    'чтобы использовать объект WorksheetFunction для
    'поиска условных максимума и медианы, нужно значения, удовлетворяющие
    'условию,поместить в массив; т.к. число таких значений заранее
    'неизвестно, объявляем необразмеренный динамический массив
    Dim mas()
    For Each ячейка In ДиапазонЯчеек
        If ячейка < СрГеом Then
            ReDim Preserve mas(m)
            mas(m) = ячейка
            m = m + 1
        End If
    Next
    максимум = WorksheetFunction.Max(mas)
    медиана = WorksheetFunction.Median(mas)
    'объявление двумерного массива из 4-х ячеек
    'для обеспечения возможности вывода сразу 2-х
    'величин либо в строку, либо в столбец (используются 3 ячейки)
    Dim ответ(1, 1)
    ответ(0, 0) = максимум
    ответ(0, 1) = медиана
    ответ(1, 0) = ответ(0, 1)
    МаксМедианБольшеСрГеом = ответ
End Function

Public Function ДиспМаксМеньшеСрГеом(ParamArray диапазон())
    'функция UBound возвращает верхний индекс массива "диапазон",
    'таким образом поддиапазоны получают номера от 0 до n
    n = UBound(диапазон)
    ' объявляем массив, в который поместим максимумы поддиапазонов с целью
    ' использовать для определения дисперсии максимумов функцию Excel с
    ' помощью объекта    WorksheetFunction; массив объявляется с помощью
    'оператора ReDim, а не Dim, т.к. n- переменная, а не константа.  
    ReDim МассивМаксимумов(n)
    For НомерПоддиапазона = 0 To n
        'используем для вычисления максимумов ранее разработанную функцию
        МассивМаксимумов(НомерПоддиапазона) = _
        МаксМеньшеСрГеом2(диапазон(НомерПоддиапазона))
    Next
    ДиспМаксМеньшеСрГеом = WorksheetFunction.Var(МассивМаксимумов)
End Function

For ….To …. Next. Его синтаксис таков:
For счетчик = начало To конец [Step шаг изменения счетчика]
    [операторы]
    [Exit For]         ‘для досрочного выхода из цикла по условию
    [операторы]
Next

For Each элемент In группа
[операторы]
[Exit For]
[операторы]
Next [элемент]

Public Function МояСум(ДиапазонСуммирования)
'в диапазоне должны быть только числовые ячейки
    For Each слагаемое In ДиапазонСуммирования
        сум = сум + слагаемое
    Next
    МояСум = сум
End Function