Пользовательская функция

@ffff777 · Регистрация: 20.03.2014

Author24 — интернет-сервис помощи студентам

Здраствуйте! Помогите пожалуйста,
Как создать пользовательскую функцию, которая по выбранному диапазону ячеек считала бы среднее значение с учётом того что в ячейке может попасться не число, а "н/а" равное нулю.

@Hugo121 · 21.05.2014, 11:15

Так годится?

Visual Basic

Function aver(r As Range)
    Dim cc As Range, sm As Double, i As Long
    For Each cc In r
        If VarType(cc) = 5 Then sm = sm + cc: i = i + 1
    Next
    aver = sm / i
End Function

@ffff777 · 21.05.2014, 11:24 **[ТС]**

Спасибо!)

Добавлено через 4 минуты
если в ячейке имеется слово "н/а", то оно должно читаться как нуль.

@Hugo121 · 21.05.2014, 11:55

Только на "н/а"? На слово? На русском?
Файл давайте.

А то по описанию вот Вам:

Visual Basic

Function aver(r As Range)
    Dim cc As Range, sm As Double, i As Long
    For Each cc In r
        If VarType(cc) = 5 Then sm = sm + cc: i = i + 1
        If cc.Value = "н/а" Then sm = sm + 0: i = i + 1
    Next
    aver = sm / i
End Function

@ffff777 0 / 0 / 0 Регистрация: 20.03.2014 Сообщений: 5
		1
	Пользовательская функция 21.05.2014, 11:03. Показов 1121. Ответов 3 Метки нет (Все метки) Здраствуйте! Помогите пожалуйста, Как создать пользовательскую функцию, которая по выбранному диапазону ячеек считала бы среднее значение с учётом того что в ячейке может попасться не число, а "н/а" равное нулю. 0

@ffff777 0 / 0 / 0 Регистрация: 20.03.2014 Сообщений: 5
	21.05.2014, 11:24 [ТС]	3
	Спасибо!) Добавлено через 4 минуты если в ячейке имеется слово "н/а", то оно должно читаться как нуль. 0

	21.05.2014, 11:55