АК
Алексей Кувардин

Помогите, очень прошу. Экзамен по информатике.

Экзамен по информатике.
Разработать функцию на VBA, котраянаходит в диапозоне максимальное значение. Для проверки вставить функцию в формулу ячейки.

АЗ
Андрей Захаров

Public Function fmax(xxx As Range)
priz = True
For Each qqq In xxx
If priz Then
fmax = qqq.Value
priz = False
Else
fmax = IIf(qqq.Value > fmax, qqq.Value, fmax)
End If
Next
End Function
а вот результат ее работы:

ТМ
Татьяна Михайлова



в первой строке массив значений.. .
во второй количество элементов
в третьей - результат работы искомой функции

Похожие вопросы
Помогите пожалуйста решить задачу по информатике. Результаты экзамена по информатике 32 студентов записали в файл,
экзамен по информатике
помогите по информатике, прошу!
прошу помогите по информатике
помогите с вопросами на экзамен информатике
Прошу!!!! помогите завтра экзамен по информатике как решать это в excel????
Помогите с ответамы на экзамен по информатике, очень нужно?
Помогите пожалуйста по информатике, очень прошу
помогите я вас очень прошу !!!:-(
как выучить экзамен быстро и эффективно за день до экзамена прошу помогите мне хреново