Функция Vba

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

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

Имеется пользовательская функция, которая по выбранному диапазону ячеек считает среднее значение

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

Нужно учитывать что в ячейке может быть написано "неАттестация", оно должно считаться как нуль.
Прошу помощи

@~~Апострофф~~ · 21.05.2014, 11:55

А пустые ячейки в r As Range могут быть?
Если нет, то 4-я строка кода может выглядеть так -

Visual Basic

1	sm = sm + val(cc): i = i + 1

@ffff777 · 21.05.2014, 12:03 **[ТС]**

Спасибо большое, а ты сможешь прокомментировать строки от 3 до 5 сторок. Буду очень благодарна. Спасибо

@~~Апострофф~~ · 21.05.2014, 12:22

Visual Basic

1
2
3

    For Each cc In r 'для каждой ячейки из r As Range
        sm = sm + val(cc): i = i + 1 'считаем сумму sm и к-во ячеек i
    Next 'граница цикла

@ffff777 · 21.05.2014, 12:28 **[ТС]**

Спасибо большое)

@Hugo121 · 21.05.2014, 12:35

Апострофф, у пустых не будет VarType(cc) = 5
А у "неАттестация" VarType(cc) = 8.
И вообще - я ведь в первой теме уже всё написал - неужели трудно заменить одно слово на другое?
Пользовательская функция

@ffff777 0 / 0 / 0 Регистрация: 20.03.2014 Сообщений: 5
	21.05.2014, 12:03 [ТС]	3
	Спасибо большое, а ты сможешь прокомментировать строки от 3 до 5 сторок. Буду очень благодарна. Спасибо 0

@ffff777 0 / 0 / 0 Регистрация: 20.03.2014 Сообщений: 5
	21.05.2014, 12:28 [ТС]	5
	Спасибо большое) 0

@Hugo121 6919 / 2829 / 543 Регистрация: 19.10.2012 Сообщений: 8,645
	21.05.2014, 12:35	6
	Апострофф, у пустых не будет VarType(cc) = 5 А у "неАттестация" VarType(cc) = 8. И вообще - я ведь в первой теме уже всё написал - неужели трудно заменить одно слово на другое? Пользовательская функция 0

Опции темы

Функция Vba

Решение