Question

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

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

Answer 2

Второе решение - это для тех, кто не верит, что быстрее и удобнее связки Excel+VBA для решения большинства задач - только волшебная палочка.

Answer 3

Спасибо, хоть кто-то ответил:)

Answer 4

Гм... "С паршивой овцы хоть шерсти клок"?

Answer 5

Извините, что позволил себе решение опубликовать, наверно Вы ждали ответа Администратора ...

Answer 6

Да нет, что вы, просто пришлось подождать довольно долго. А насчет решения... В общем, мне безразлично кто отвечает, разницы нет. Главное, что ответ правильный. Так что огромное спасибо.