Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > Пользовательская функция

Автор: Alles 10.4.2006, 07:28

Всем привет !
Столкнулься вот с такой траблой. Есть формула :
Y=0.4cos(PiX)sin(PiX)cos(3PiX)

Нужно сделать пользовательскую функию в EXCEL , или вообще мозги съехали или я ни чего не понимаю.
Может кто поможет ?

Автор: ~FoX~ 10.4.2006, 08:21

=0,4*COS(ПИ()*A1)*SIN(ПИ()*A1)*COS(3*ПИ()*A1)
Где А1 - номер ячейки со значением Х

Автор: Akina 10.4.2006, 08:47

Ну и?
Сервис-Макрос-Редактор VBA
Insert-Module

Код


Public Function Y(X As Double) As Double
Public Const Pi As Double = 3.1415925626
Y = 0.4 * Cos(Pi * X) * Sin(Pi * X) * Cos(3 * Pi * X)
End Function

В ячейке: B1 = Y(A1)

Автор: Alles 10.4.2006, 09:22

Всем большое спасибо !!!!