АК
Алексей Кувардин
Помогите, очень прошу. Экзамен по информатике.
Экзамен по информатике.
Разработать функцию на VBA, котраянаходит в диапозоне максимальное значение. Для проверки вставить функцию в формулу ячейки.
Экзамен по информатике.
Разработать функцию на 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
а вот результат ее работы:
в первой строке массив значений.. .
во второй количество элементов
в третьей - результат работы искомой функции