Среднеарифмитическое отклонение

[Gidraponika]

Всем привет! помгите плиз наити среднеарифмитическое чисел записаных в один столбец. Ответ нужно вывести в последнюю пустую чяейку!

Выделяем первую ячейку
While (isEmpty(ActiveCell.Value)=false)
вычмсляем сумму (+xi)
считаем количество (+1)
ActiveCell.Offset (1,0).set
Wend
Среднеарифмитическое = сумм / кол-во
выводим результат в последнюю пустую ячейку

[VictorM]

Именно макросом?
А встроенная функция =СРЗНАЧ не устраивает?

[Gidraponika]

Нет не макросом, с помощью VBA

[VictorM]

Нет не макросом, с помощью VBA

Вот теперь понятно)))
А макрос это не VBA? ))

[Gidraponika]

Короче мне нужно дописать программу которую я дала в начале! плиз))

[vikttur]

Сообщение от Gidraponika

Нет не макросом, с помощью VBA

Вот студент пошел. Пойдут такие в Майкрософт работать и у Excel появится возможность вызывать по Alt+F11 два редактора

[Gidraponika]

да не беспокойтесь не поидут такие студенты работать в Microsoft)))Мне надо отмазаться от преподователя! сделать и сдать! не могу ее доработать просто!

[VictorM]

Не знаю, как там по институтски, но вот так работает:

Sub Макрос_VBA()
    iSum = "0"
    n = "0"
    While (IsEmpty(ActiveCell.Value) = False)
        iVal = ActiveCell.Value
        iSum = iSum + iVal
        n = n + 1
        ActiveCell.Offset(1, 0).Activate
    Wend
    ActiveCell = iSum / n
End Sub

[Gidraponika]

Спасибо, это все должно подсчитываться после нажатия кнопочки! Ладно с макроса скопировать и вставить в кнопочку проблем нет, но нужно делать не через макрос, так как количество чисел может быть разное.

[Gidraponika]

и если честно мне надоела ошибка Overflow