Как создать макрос в Exсel позволяющий рассчитать значение тригонометрической функции для заданного значения аргумента?

Здравствуйте!

В VBA есть встроенные функции - cos, sin, tan для вычисления значения синуса, косинуса и тангенса по заданному значению угла в радианах. Если угол в градусах, его переводим в радианы по формуле

Угол(в радианах)=угол(в градусах)*pi/180,где pi=3.14159265358979 (можно точность уменьшить, округлив значение Pi.

Вот пример с тангенсом

sub GradusToTangens

Dim MyAngle, retval, GradToRad

Const pi = 3.14159265358979

MyAngle=InputBox("Введите угол в градусах")

GradToRad=MyAngle*pi/180

retval=Tan(GradToRad)

MsgBox(retval)

end sub

Вместо вывода сообщения можно записать результат в заданную ячейку. Можно брать из списка ячеек градусы. Можно сразу брать значения в радианах, тогда перевода из градусов в радианы не потребуется.