Создание новой функции

[aaf]

Люди добрые, подскажите как в EXCEL сделать функцию - чтоб там выбор диапозона был и результат в нужную ячейку помещался?

[Vitaly1]

надо написать функцию в модуле макросов, вот пример:

Код: Выделить всё

Function Max(r As Range)
k = 0
For Each n In r
If k = 0 Then
M = n
ElseIf n > M Then
M = n
End If
k = k + 1
Next n
Max = M
End Function

Меню: Вставка-Функции- Пользовательская Функция

В модуле листа прописать:

Код: Выделить всё

Private Sub Worksheet_Activate()
Application.Calculate
End Sub

[aaf]

Сенкс! Именно то что надо!
А еще один вопрос - пробую в функции менять формат ячеек (шрифт, цвет т.п.) - и ни как... В процедуре получается, если как макрос ее делать, а в функции то же самое ни как и все, даже пытался процедуру из ф-ии вызвать - результат нулевой. Это особености EXCELL или я чето не догоняю?

код примерно такой:

Код: Выделить всё

Function aa(tt As Range)
i = 0
    For Each c In tt
         c.font.bold=true
    Next
End Function


[GSerg]

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