Напишите макрос для Excel для вычисления среднего значения в ячейках B3-B14 и с постановкой этого значения в ячейку Е3, заранее благодарю!

Question

Информатика

Нинуня

14 августа, 06:07

Напишите макрос для Excel для вычисления среднего значения в ячейках B3-B14 и с постановкой этого значения в ячейку Е3, заранее благодарю!

+4

Ответы (1)

Знаете ответ на вопрос?

Бориска · Answer 1

Sub MyMid ()

a = Range ("B3:B14")

n = UBound (a, 1)

s = 0

For i = 1 To n

s = s + a (i, 1)

Next i

Range ("E3"). Value = s / n

End Sub

Можно и короче записать:

Sub MyMid2 ()

Range ("E3") = Application. WorksheetFunction. Average (Range ("B3:B14"))

End Sub