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

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

Форум программистов > Центр помощи > [VBA] Функции в Excel

Автор: Jenny 19.4.2007, 15:13

Привет всем! У меня проблема с заданием, никак не могу составить код: Создайте две функции пользователя в соответствии с формулами. Проверьте, что вновь созданные функции появились в общем списке функций, вызвав, например, Мастер функций в MS Excel. Используя функции пользователя, протабулируйте каждую функцию в MS Excel.

Автор: Genyaa 23.4.2007, 10:15

См. файл.

Автор: Jenny 24.4.2007, 04:21

Спасибо за помощь smile

Автор: Jenny 27.4.2007, 11:46

Мне препод сказал, что задание не полностью сделано. Сказал, что для этих функций надо разработать пользовательскую форму, в которой в качестве элемента управления для выбора варианта решения применяются переключатели. На форме определить поля ввода данных для расчета значения функций в заданной точке и вывода результата вычислений. Добавьте в форму кнопку Отмена для завершения работы с пользовательской формой. smile

Автор: Jenny 29.4.2007, 15:40

Я код составила, а VB ошибку выдаёт, где у меняне правильно?

Код


Private Sub CommandButton1_Click()
If OptionButton1.Value = True Then
MsgBox "Вы выбрали функцию 1"
ElseIf OptionButton2.Value = True Then
MsgBox "Вы выбрали функцию 2"
End If
End Sub

Public Function Y() As Double
Dim paramX As Double
Const Pi As Double = 3.1415925626
paramX = txtparamX.TextAlign
Y = 0.4 * Cos(Pi * paramX) * Sin(Pi * paramX) * Cos(3 * Pi * paramX)
lblY.Caption = Y
End Function

Private Sub CommandButton3_Click()
Call Y
End Sub

Public Function g() As Double
Dim x As Double
x = txtx.TextAlign
If (x < 5) Then
g = Abs(x)
lblg.Caption = g
ElseIf (x >= 5) Then
g = 1 + x ^ 2
lblg.Caption = g
End If
End Function

Private Sub CommandButton4_Click()
Call g
End Sub