VBA functions

[sir.andrey]

Добрый день.
Подскажите пожалуйста, как осуществить возврат значения из функции?

Спасибо.

[gaw4]

пр-р

Private Sub Command1_Click()
Dim angle#
angle = 45
radian = gr_to_rad(angle)
MsgBox angle & "gr = " & radian
End Sub

Function gr_to_rad#(a#)
Dim Pi#
Pi = 4 * Atn(1)
gr_to_rad = a * Pi / 180
End Function

[ViktorR]

Как предложение универсального варианта бысто получить подсказку по VBA (и не только ...).

1. Загрузи Excel.
2. Сервис -> Макрос -> Начать запись.
3. Кликни на какой либо ячейке.
4. Останови запись макроса.
5. Сервис -> Макрос -> Макросы -> Изменить
6. Пишешь, в открывшемся окне, например, Function и устанавливаешь маркер на слове
7. Жмешь Ctr+F1
8. Читаешь Help

В частности, там можно увидеть и некоторые тонкости, которые спрятаны в предложенном варианте от gaw4.
Например, для того что бы функция возвращала не Variant, а предопределенный тип, следует указывать тип возвращаемого значения после определения заголовка функции. Или вот ещё. Как передавать данные в функцию и получать их значения обратно через параметры.

Help не всегда на русском, но многое можно понять (для перевода можно воспользоваться переводчиком, коих в интернете ...).


Как-то так ...