Средние значения меняющихся ячеек в диапазоне.

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Средние значения меняющихся ячеек в диапазоне. (Макросы/Sub)

Ferum1

Дата: Суббота, 05.09.2020, 13:55 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 3

Репутация: 0 ±

Замечаний: 0% ±

Excel 2019

Добрый день. Нужна помощь в решении проблемы. Есть диапазон ячеек A2:A20 числа в ячейках постоянно меняются, нужен макрос для вычисления среднего значения каждой ячейки за n шагов (изменений) или за n промежуток времени( например среднее каждую минуту) . И вывести в столбец B (B2:B20).
Есть подобный код, но он для отдельной ячейки, знаний для редактирования у меня нет.

в ОБЩИЙ модуль
[vba]

Код

Public iCount As Integer
Public iVal As Double

[/vba]

в модуль ЛИСТА

[vba]

Код

Private Sub Worksheet_Calculate()
iCount = iCount + 1
iVal = iVal + Range("A1").Value
If iCount = 20 Then
    Range("B1").Value = Round(iVal / iCount, 2)
    iCount = Empty
    iVal = Empty
End If
End Sub

[/vba]