Расчет среднего значения видимых ячеек без учета нулей

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Расчет среднего значения видимых ячеек без учета нулей (Макросы/Sub)

VitaliyPegushin

Дата: Среда, 13.04.2022, 07:16 | Сообщение № 1

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

Ранг: Новичок

Сообщений: 42

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

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

Excel 2016

Форумчане, помогите доработать макрос функции, сейчас он считает среднее значение всех видимых ячеек в диапазоне.
Как сделать так чтобы нулевые значения ячеек в расчет не учитывались.

Функция работает следующим образом в ячейку вставляется формула : = AverVisible (ДИАПАЗОН)

[vba]

Код

Function AverVisible(Rg As Range) 'Функция средненего значения диапазона

Dim xCell As Range
Dim xCount As Integer
Dim xTtl As Double
Application.Volatile
Set Rg = Intersect(Rg.Parent.UsedRange, Rg)
For Each xCell In Rg
If xCell.ColumnWidth > 0 _
And xCell.RowHeight > 0 _
And Not IsEmpty(xCell) _
And IsNumeric(xCell.Value) Then
xTtl = xTtl + xCell.Value
xCount = xCount + 1
End If
Next
If xCount > 0 Then
AverVisible = xTtl / xCount
Else
AverVisible = 0

End If
End Function[vba][code]

[/vba]

Сообщение отредактировал VitaliyPegushin - Среда, 13.04.2022, 07:55

Ответить

китин

Дата: Среда, 13.04.2022, 07:34 | Сообщение № 2

Группа: Модераторы

Ранг: Экселист

Сообщений: 7015

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

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

Excel 2007;2010;2016

VitaliyPegushin, - Прочитайте Правила форума
- Оформите код тегами (в режиме правки поста выделите код и нажмите кнопку #, пояснялка здесь)
Помогающим просьба воздержаться от ответов в этой теме до исправления замечания